|
Lines 1246-1318
sub GetItemsInfo {
Link Here
|
| 1246 |
$data->{'datedue'} = $datedue; |
1246 |
$data->{'datedue'} = $datedue; |
| 1247 |
|
1247 |
|
| 1248 |
# get notforloan complete status if applicable |
1248 |
# get notforloan complete status if applicable |
| 1249 |
my $sthnflstatus = $dbh->prepare( |
1249 |
if ( my $category = C4::Koha::GetAuthValCode( 'items.notforloan', $data->{frameworkcode} ) ) { |
| 1250 |
'SELECT authorised_value |
1250 |
$data->{notforloanvalue} = C4::Koha::GetAuthorisedValueByCode( $category, $data->{itemnotforloan} ); |
| 1251 |
FROM marc_subfield_structure |
|
|
| 1252 |
WHERE kohafield="items.notforloan" |
| 1253 |
' |
| 1254 |
); |
| 1255 |
|
| 1256 |
$sthnflstatus->execute; |
| 1257 |
my ($authorised_valuecode) = $sthnflstatus->fetchrow; |
| 1258 |
if ($authorised_valuecode) { |
| 1259 |
$sthnflstatus = $dbh->prepare( |
| 1260 |
"SELECT lib FROM authorised_values |
| 1261 |
WHERE category=? |
| 1262 |
AND authorised_value=?" |
| 1263 |
); |
| 1264 |
$sthnflstatus->execute( $authorised_valuecode, |
| 1265 |
$data->{itemnotforloan} ); |
| 1266 |
my ($lib) = $sthnflstatus->fetchrow; |
| 1267 |
$data->{notforloanvalue} = $lib; |
| 1268 |
} |
1251 |
} |
| 1269 |
|
1252 |
|
| 1270 |
# get restricted status and description if applicable |
1253 |
# get restricted status and description if applicable |
| 1271 |
my $restrictedstatus = $dbh->prepare( |
1254 |
if ( my $category = C4::Koha::GetAuthValCode( 'items.restricted', $data->{frameworkcode} ) ) { |
| 1272 |
'SELECT authorised_value |
1255 |
$data->{restricted} = C4::Koha::GetKohaAuthorisedValueLib( $category, $data->{restricted} ); |
| 1273 |
FROM marc_subfield_structure |
1256 |
$data->{restrictedopac} = C4::Koha::GetKohaAuthorisedValueLib( $category, $data->{restricted}, 'opac' ); |
| 1274 |
WHERE kohafield="items.restricted" |
|
|
| 1275 |
' |
| 1276 |
); |
| 1277 |
|
| 1278 |
$restrictedstatus->execute; |
| 1279 |
($authorised_valuecode) = $restrictedstatus->fetchrow; |
| 1280 |
if ($authorised_valuecode) { |
| 1281 |
$restrictedstatus = $dbh->prepare( |
| 1282 |
"SELECT lib,lib_opac FROM authorised_values |
| 1283 |
WHERE category=? |
| 1284 |
AND authorised_value=?" |
| 1285 |
); |
| 1286 |
$restrictedstatus->execute( $authorised_valuecode, |
| 1287 |
$data->{restricted} ); |
| 1288 |
|
| 1289 |
if ( my $rstdata = $restrictedstatus->fetchrow_hashref ) { |
| 1290 |
$data->{restricted} = $rstdata->{'lib'}; |
| 1291 |
$data->{restrictedopac} = $rstdata->{'lib_opac'}; |
| 1292 |
} |
| 1293 |
} |
1257 |
} |
| 1294 |
|
1258 |
|
| 1295 |
# my stack procedures |
1259 |
# my stack procedures |
| 1296 |
my $stackstatus = $dbh->prepare( |
1260 |
if ( my $category = C4::Koha::GetAuthValCode( 'items.stack', $data->{frameworkcode} ) ) { |
| 1297 |
'SELECT authorised_value |
1261 |
$data->{stack} = C4::Koha::GetKohaAuthorisedValueLib( $category, $data->{stack} ); |
| 1298 |
FROM marc_subfield_structure |
|
|
| 1299 |
WHERE kohafield="items.stack" |
| 1300 |
' |
| 1301 |
); |
| 1302 |
$stackstatus->execute; |
| 1303 |
|
| 1304 |
($authorised_valuecode) = $stackstatus->fetchrow; |
| 1305 |
if ($authorised_valuecode) { |
| 1306 |
$stackstatus = $dbh->prepare( |
| 1307 |
"SELECT lib |
| 1308 |
FROM authorised_values |
| 1309 |
WHERE category=? |
| 1310 |
AND authorised_value=? |
| 1311 |
" |
| 1312 |
); |
| 1313 |
$stackstatus->execute( $authorised_valuecode, $data->{stack} ); |
| 1314 |
my ($lib) = $stackstatus->fetchrow; |
| 1315 |
$data->{stack} = $lib; |
| 1316 |
} |
1262 |
} |
| 1317 |
# Find the last 3 people who borrowed this item. |
1263 |
# Find the last 3 people who borrowed this item. |
| 1318 |
my $sth2 = $dbh->prepare("SELECT * FROM old_issues,borrowers |
1264 |
my $sth2 = $dbh->prepare("SELECT * FROM old_issues,borrowers |
| 1319 |
- |
|
|