Attachment #100501 for bug #5103

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

Lines 297-304 foreach my $field (@fields) { Link Here

(-)a/catalogue/MARCdetail.pl (-2 / +6 lines)
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 ( $subf[$i][0] eq 'd' \|\| $subf[$i][0] eq 'q' \|\| $subf[$i][0] eq 'r' \|\| $subf[$i][0] eq 's' \|\| $subf[$i][0] eq 'w' ){	300	if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.dateaccessioned' \|\|
301	# date accessioned \|\| on loan \|\| date last seen \|\| date last borrowed \|\| replacement price date	301	$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.onloan' \|\|
		302	$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.datelastseen' \|\|
		303	$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.datelastborrowed' \|\|
		304	$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.replacementpricedate'
		305	){
302	$item->{$subf[$i][0]} = output_pref({ dt => dt_from_string( $item->{$subf[$i][0]} ), dateonly => 1 });	306	$item->{$subf[$i][0]} = output_pref({ dt => dt_from_string( $item->{$subf[$i][0]} ), dateonly => 1 });
303	}	307	}
304	}	308	}

Lines 864-870 for my $row ( @big_array ) { Link Here

(-)a/cataloguing/additem.pl (-1 / +7 lines)
864	} else {	864	} else {
865	$item_field->{field} = '';	865	$item_field->{field} = '';
866	}	866	}
867	if ( $key eq 'd' \|\| $key eq 'q' \|\| $key eq 'r' \|\| $key eq 's' \|\| $key eq 'w' ){	867
		868	my ($tmpa, $dateaccessioned) = &GetMarcFromKohaField( "items.dateaccessioned" );
		869	my ($tmpb, $onloan) = &GetMarcFromKohaField( "items.onloan" );
		870	my ($tmpc, $datelastseen) = &GetMarcFromKohaField( "items.datelastseen" );
		871	my ($tmpd, $datelastborrowed) = &GetMarcFromKohaField( "items.datelastborrowed" );
		872	my ($tmpe, $replacementpricedate) = &GetMarcFromKohaField( "items.replacementpricedate" );
		873	if ( $key eq $dateaccessioned \|\| $key eq $onloan \|\| $key eq $datelastseen \|\| $key eq $datelastborrowed \|\| $key eq $replacementpricedate ){
868	# date accessioned \|\| on loan \|\| date last seen \|\| date last borrowed \|\| replacement price date	874	# date accessioned \|\| on loan \|\| date last seen \|\| date last borrowed \|\| replacement price date
869	$item_field->{field} = output_pref({ dt => dt_from_string( $row->{$key} ), dateonly => 1 });	875	$item_field->{field} = output_pref({ dt => dt_from_string( $row->{$key} ), dateonly => 1 });
870	}	876	}

Lines 313-320 foreach my $field (@fields) { Link Here

(-)a/opac/opac-MARCdetail.pl (-3 / +6 lines)
313	$subf[$i][1], '', $tagslib, '', 'opac' );	313	$subf[$i][1], '', $tagslib, '', 'opac' );
314	}	314	}
315		315
316	if ( $subf[$i][0] eq 'd' \|\| $subf[$i][0] eq 'q' \|\| $subf[$i][0] eq 'r' \|\| $subf[$i][0] eq 's' \|\| $subf[$i][0] eq 'w' ){	316	if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.dateaccessioned' \|\|
317	# date accessioned \|\| on loan \|\| date last seen \|\| date last borrowed \|\| replacement price date	317	$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.onloan' \|\|
		318	$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.datelastseen' \|\|
		319	$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.datelastborrowed' \|\|
		320	$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.replacementpricedate'
		321	){
318	$item->{$subf[$i][0]} = output_pref({ dt => dt_from_string( $item->{$subf[$i][0]} ), dateonly => 1 });;	322	$item->{$subf[$i][0]} = output_pref({ dt => dt_from_string( $item->{$subf[$i][0]} ), dateonly => 1 });;
319	}	323	}
320	}	324	}
321	-

Return to bug 5103