|
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', |