Lines 111-117
Link Here
|
111 |
my ( $expire_year, $expire_month, $expire_day ) = split (/-/, $num->{'expirationdate'}); |
111 |
my ( $expire_year, $expire_month, $expire_day ) = split (/-/, $num->{'expirationdate'}); |
112 |
my $calcDate = Date_to_Days( $expire_year, $expire_month, $expire_day ); |
112 |
my $calcDate = Date_to_Days( $expire_year, $expire_month, $expire_day ); |
113 |
|
113 |
|
114 |
$getreserv{'itemtype'} = $itemtype->description; # FIXME Should not it be translated_description? |
114 |
$getreserv{'itemtype'} = $itemtype->description if $itemtype; # FIXME Should not it be translated_description? |
115 |
$getreserv{'title'} = $biblio->title; |
115 |
$getreserv{'title'} = $biblio->title; |
116 |
$getreserv{'subtitle'} = GetRecordValue( |
116 |
$getreserv{'subtitle'} = GetRecordValue( |
117 |
'subtitle', |
117 |
'subtitle', |