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

(-)a/tools/inventory.pl (-16 / +9 lines)
Lines 257-276 if( @scanned_items ) { Link Here
257
# status, or are still checked out.
257
# status, or are still checked out.
258
foreach my $item ( @scanned_items ) {
258
foreach my $item ( @scanned_items ) {
259
    $item->{notforloancode} = $item->{notforloan}; # save for later use
259
    $item->{notforloancode} = $item->{notforloan}; # save for later use
260
260
    my $fc = $item->{'frameworkcode'} || '';
261
    # Populating with authorised values
261
262
    foreach my $field ( keys %$item ) {
262
    # Populating with authorised values description
263
        # If the koha field is mapped to a marc field
263
    foreach my $field (qw/ location notforloan itemlost damaged withdrawn /) {
264
        my $fc = $item->{'frameworkcode'} || '';
264
        my $av = Koha::AuthorisedValues->get_description_by_koha_field(
265
        my ($f, $sf) = GetMarcFromKohaField("items.$field", $fc);
265
            { frameworkcode => $fc, kohafield => "items.$field", authorised_value => $item->{$field} } );
266
        if ($f and $sf) {
266
        if ( $av and defined $item->{$field} and defined $av->{lib} ) {
267
            # We replace the code with it's description
267
            $item->{$field} = $av->{lib};
268
            my $av = Koha::AuthorisedValues->search_by_marc_field({ frameworkcode => $fc, tagfield => $f, tagsubfield => $sf, });
269
            $av = $av->count ? $av->unblessed : [];
270
            my $authvals = { map { ( $_->{authorised_value} => $_->{lib} ) } @$av };
271
            if ($authvals and defined $item->{$field} and defined $authvals->{$item->{$field}}) {
272
              $item->{$field} = $authvals->{$item->{$field}};
273
            }
274
        }
268
        }
275
    }
269
    }
276
270
Lines 358-364 if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){ Link Here
358
    $csv->combine(@translated_keys);
352
    $csv->combine(@translated_keys);
359
    print $csv->string, "\n";
353
    print $csv->string, "\n";
360
354
361
    my @keys = qw / title author barcode itemnumber homebranch location itemcallnumber notforloan lost damaged withdrawn stocknumber /;
355
    my @keys = qw/ title author barcode itemnumber homebranch location itemcallnumber notforloan lost damaged withdrawn stocknumber /;
362
    for my $item ( @$loop ) {
356
    for my $item ( @$loop ) {
363
        my @line;
357
        my @line;
364
        for my $key (@keys) {
358
        for my $key (@keys) {
365
- 

Return to bug 19023