|
Lines 1270-1275
sub GetItemsInfo {
Link Here
|
| 1270 |
$data->{notforloanvalue} = $lib; |
1270 |
$data->{notforloanvalue} = $lib; |
| 1271 |
} |
1271 |
} |
| 1272 |
|
1272 |
|
|
|
1273 |
# get restricted status and description if applicable |
| 1274 |
my $restrictedstatus = $dbh->prepare( |
| 1275 |
'SELECT authorised_value |
| 1276 |
FROM marc_subfield_structure |
| 1277 |
WHERE kohafield="items.restricted" |
| 1278 |
' |
| 1279 |
); |
| 1280 |
|
| 1281 |
$restrictedstatus->execute; |
| 1282 |
my ($authorised_valuecode) = $restrictedstatus->fetchrow; |
| 1283 |
if ($authorised_valuecode) { |
| 1284 |
$restrictedstatus = $dbh->prepare( |
| 1285 |
"SELECT lib,lib_opac FROM authorised_values |
| 1286 |
WHERE category=? |
| 1287 |
AND authorised_value=?" |
| 1288 |
); |
| 1289 |
$restrictedstatus->execute( $authorised_valuecode, |
| 1290 |
$data->{restricted} ); |
| 1291 |
|
| 1292 |
if ( my $rstdata = $restrictedstatus->fetchrow_hashref ) { |
| 1293 |
$data->{restricted} = $rstdata->{'lib'}; |
| 1294 |
$data->{restrictedopac} = $rstdata->{'lib_opac'}; |
| 1295 |
} |
| 1296 |
} |
| 1297 |
|
| 1273 |
# my stack procedures |
1298 |
# my stack procedures |
| 1274 |
my $stackstatus = $dbh->prepare( |
1299 |
my $stackstatus = $dbh->prepare( |
| 1275 |
'SELECT authorised_value |
1300 |
'SELECT authorised_value |