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

(-)a/catalogue/MARCdetail.pl (-8 / +4 lines)
Lines 297-310 foreach my $field (@fields) { Link Here
297
297
298
        $norequests = 0 if  $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.notforloan' and $subf[$i][1] == 0;
298
        $norequests = 0 if  $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.notforloan' and $subf[$i][1] == 0;
299
299
300
        if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.dateaccessioned' ||
300
        my $kohafield = $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield};
301
             $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.onloan' ||
301
        $item->{ $subf[$i][0] } = output_pref( { str => $item->{ $subf[$i][0] }, dateonly => 1 } )
302
             $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.datelastseen' ||
302
          if grep { $kohafield eq $_ }
303
             $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.datelastborrowed' ||
303
              qw( items.dateaccessioned items.onloan items.datelastseen items.datelastborrowed items.replacementpricedate );
304
             $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.replacementpricedate'
305
        ){
306
            $item->{$subf[$i][0]} = output_pref({ dt => dt_from_string( $item->{$subf[$i][0]} ), dateonly => 1 });
307
        }
308
    }
304
    }
309
    push @item_loop, $item if $item;
305
    push @item_loop, $item if $item;
310
}
306
}
(-)a/cataloguing/additem.pl (-8 / +7 lines)
Lines 865-878 for my $row ( @big_array ) { Link Here
865
            $item_field->{field} = '';
865
            $item_field->{field} = '';
866
        }
866
        }
867
867
868
        my ($tmpa, $dateaccessioned) = &GetMarcFromKohaField( "items.dateaccessioned" );
868
        for my $kohafield (
869
        my ($tmpb, $onloan) = &GetMarcFromKohaField( "items.onloan" );
869
            qw( items.dateaccessioned items.onloan items.datelastseen items.datelastborrowed items.replacementpricedate )
870
        my ($tmpc, $datelastseen) = &GetMarcFromKohaField( "items.datelastseen" );
870
          )
871
        my ($tmpd, $datelastborrowed) = &GetMarcFromKohaField( "items.datelastborrowed" );
871
        {
872
        my ($tmpe, $replacementpricedate) = &GetMarcFromKohaField( "items.replacementpricedate" );
872
            my ( undef, $subfield ) = GetMarcFromKohaField($kohafield);
873
        if ( $key eq $dateaccessioned || $key eq $onloan || $key eq $datelastseen || $key eq $datelastborrowed || $key eq $replacementpricedate ){
873
            next unless $key eq $subfield;
874
            # date accessioned || on loan || date last seen || date last borrowed || replacement price date
874
            $item_field->{field} = output_pref( { str => $row->{$key}, dateonly => 1 } );
875
            $item_field->{field} = output_pref({ dt => dt_from_string( $row->{$key} ), dateonly => 1 });
876
        }
875
        }
877
876
878
        push @item_fields, $item_field;
877
        push @item_fields, $item_field;
(-)a/opac/opac-MARCdetail.pl (-9 / +5 lines)
Lines 313-326 foreach my $field (@fields) { Link Here
313
                $subf[$i][1], '', $tagslib, '', 'opac' );
313
                $subf[$i][1], '', $tagslib, '', 'opac' );
314
        }
314
        }
315
315
316
        if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.dateaccessioned' ||
316
        my $kohafield = $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield};
317
            $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.onloan' ||
317
        $item->{ $subf[$i][0] } = output_pref( { str => $item->{ $subf[$i][0] }, dateonly => 1 } )
318
            $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.datelastseen' ||
318
          if grep { $kohafield eq $_ }
319
            $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.datelastborrowed' ||
319
              qw( items.dateaccessioned items.onloan items.datelastseen items.datelastborrowed items.replacementpricedate );
320
            $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.replacementpricedate'
320
321
        ){
322
            $item->{$subf[$i][0]} = output_pref({ dt => dt_from_string( $item->{$subf[$i][0]} ), dateonly => 1 });;
323
        }
324
    }
321
    }
325
    push @item_loop, $item if $item;
322
    push @item_loop, $item if $item;
326
}
323
}
327
- 

Return to bug 5103