View | Details | Raw Unified | Return to bug 7872
Collapse All | Expand All

(-)a/C4/Items.pm (-62 / +7 lines)
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
- 

Return to bug 7872