Lines 100-119
if ($op eq 'add_form') {
Link Here
|
100 |
$sth->execute($searchfield,$frameworkcode); |
100 |
$sth->execute($searchfield,$frameworkcode); |
101 |
$data=$sth->fetchrow_hashref; |
101 |
$data=$sth->fetchrow_hashref; |
102 |
} |
102 |
} |
103 |
my $sth = $dbh->prepare("select distinct category from authorised_values"); |
103 |
|
104 |
$sth->execute; |
104 |
my @authorised_values = ( "", @{C4::Koha::GetAuthorisedValueCategories()} ); |
105 |
my @authorised_values; |
105 |
my $authorised_value = { |
106 |
push @authorised_values,""; |
106 |
values => \@authorised_values, |
107 |
while ((my $category) = $sth->fetchrow_array) { |
107 |
default => $data->{'authorised_value'}, |
108 |
push @authorised_values, $category; |
108 |
}; |
109 |
} |
|
|
110 |
my $authorised_value = CGI::scrolling_list(-name=>'authorised_value', |
111 |
-values=> \@authorised_values, |
112 |
-size=>1, |
113 |
-id=>"authorised_value", |
114 |
-multiple=>0, |
115 |
-default => $data->{'authorised_value'}, |
116 |
); |
117 |
|
109 |
|
118 |
if ($searchfield) { |
110 |
if ($searchfield) { |
119 |
$template->param(searchfield => $searchfield); |
111 |
$template->param(searchfield => $searchfield); |