- my $issuedate = $it->{'issuedate'};
- $issuedate =~ s/-//g;
- $issuedate = substr( $issuedate, 0, 8 );
- if ( $todaysdate == $issuedate ) {
- (
- $it->{'charge'},
- $it->{'itemtype_charge'}
- )
- = GetIssuingCharges(
- $it->{'itemnumber'},
- $borrower->{'borrowernumber'}
- );
- $it->{'charge'} =
- sprintf( "%.2f", $it->{'charge'} );
- (
- $it->{'can_renew'},
- $it->{'can_renew_error'}
- )
- = CanBookBeRenewed(
- $borrower->{'borrowernumber'},
- $it->{'itemnumber'}
- );
- my ( $restype, $reserves ) =
- CheckReserves( $it->{'itemnumber'} );
- if ($restype) {
- $it->{'can_renew'} = 0;
- }
- push @todaysissues, $it;
- }
- else {
- (
- $it->{'charge'},
- $it->{'itemtype_charge'}
- )
- = GetIssuingCharges(
- $it->{'itemnumber'},
- $borrower->{'borrowernumber'}
- );
- $it->{'charge'} =
- sprintf( "%.2f", $it->{'charge'} );
- (
- $it->{'can_renew'},
- $it->{'can_renew_error'}
- )
- = CanBookBeRenewed(
- $borrower->{'borrowernumber'},
- $it->{'itemnumber'}
- );
- my ( $restype, $reserves ) =
- CheckReserves( $it->{'itemnumber'} );
- if ($restype) {
- $it->{'can_renew'} = 0;
- }
- push @previousissues, $it;
- }
- }
- my $od; # overdues
- my $i = 0;
- my $togglecolor;
+ my $itemtypeinfo = getitemtypeinfo( (C4::Context->preference('item-level_itypes')) ? $it->{'itype'} : $it->{'itemtype'} );
+ # set itemtype per item-level_itype syspref - FIXME this is an ugly hack
+ $it->{'itemtype'} = ( C4::Context->preference( 'item-level_itypes' ) ) ? $it->{'itype'} : $it->{'itemtype'};