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

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

Return to bug 7872