На счет helloworld понятно. Но что делать если необходимо например выполнить запрос к Базе данных и вывести результат в, например, список.
На сколько я понимаю необходимо сделать следующее
1) В модуле pm либо kernel либо frontend (необходимо выполнить SQL запрос например)
Code: Select all
my $Limit = 1000;
my @Row;
my %responsible_users = ();
my $SQLquery = "SELECT id, login FROM users";
$Self->{DBObject}->Prepare( SQL => $SQLquery, Limit => $Limit );
while ( @Row = $Self->{DBObject}->FetchrowArray() ) {
$responsible_users{@Row[0]} = @Row[1];
}
Code: Select all
$Param{ResponStrg} = $Self->{LayoutObject}->BuildSelection(
Data => \%responsible_users, # use $HashRef, $ArrayRef or $ArrayHashRef (see below)
SelectedID => 1, # (optional) use integer or arrayref (unable to use with ArrayHashRef)
Name => 'Responsible_users', # name of element
Size => 10, # (optional) default 1 element size
);
my $Output = $Self->{LayoutObject}->Block(
Name => 'Responsible',
Data => \%Param,
);
return $Output;
Code: Select all
<label for="NewResponsibleID">$Text{"Responsible"}:</label>
<div class="Field">
$Data{"Responsible"}
</div>
<div class="Clear"></div>
Спасибо!