Lines 1229-1250
sub GetKohaAuthorisedValueLib {
Link Here
|
1229 |
|
1229 |
|
1230 |
=head2 AddAuthorisedValue |
1230 |
=head2 AddAuthorisedValue |
1231 |
|
1231 |
|
1232 |
AddAuthorisedValue($category, $authorised_value, $lib, $lib_opac); |
1232 |
AddAuthorisedValue($category, $authorised_value, $lib, $lib_opac, $imageurl); |
1233 |
|
1233 |
|
1234 |
Create a new authorised value. |
1234 |
Create a new authorised value. |
1235 |
|
1235 |
|
1236 |
=cut |
1236 |
=cut |
1237 |
|
1237 |
|
1238 |
sub AddAuthorisedValue { |
1238 |
sub AddAuthorisedValue { |
1239 |
my ($category, $authorised_value, $lib, $lib_opac) = @_; |
1239 |
my ($category, $authorised_value, $lib, $lib_opac, $imageurl) = @_; |
1240 |
|
1240 |
|
1241 |
my $dbh = C4::Context->dbh; |
1241 |
my $dbh = C4::Context->dbh; |
1242 |
my $query = qq{ |
1242 |
my $query = qq{ |
1243 |
INSERT INTO authorised_values (category, authorised_value, lib, lib_opac) |
1243 |
INSERT INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl) |
1244 |
VALUES (?,?,?,?) |
1244 |
VALUES (?,?,?,?,?) |
1245 |
}; |
1245 |
}; |
1246 |
my $sth = $dbh->prepare($query); |
1246 |
my $sth = $dbh->prepare($query); |
1247 |
$sth->execute($category, $authorised_value, $lib, $lib_opac); |
1247 |
$sth->execute($category, $authorised_value, $lib, $lib_opac, $imageurl); |
1248 |
} |
1248 |
} |
1249 |
|
1249 |
|
1250 |
=head2 display_marc_indicators |
1250 |
=head2 display_marc_indicators |