|
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 |