Lines 120-125
for my $date ( qw(startdate enddate firstacquidate histstartdate histenddate) )
Link Here
|
120 |
my $av = Koha::AuthorisedValues->search({ category => 'LOC', authorised_value => $subs->{location} }); |
120 |
my $av = Koha::AuthorisedValues->search({ category => 'LOC', authorised_value => $subs->{location} }); |
121 |
$subs->{location} = $av->count ? $av->next->lib : ''; |
121 |
$subs->{location} = $av->count ? $av->next->lib : ''; |
122 |
$subs->{abouttoexpire} = abouttoexpire($subs->{subscriptionid}); |
122 |
$subs->{abouttoexpire} = abouttoexpire($subs->{subscriptionid}); |
|
|
123 |
$subs->{has_expired_already} = dt_from_string($subs->{enddate})->compare(dt_from_string); |
123 |
$template->param(%{ $subs }); |
124 |
$template->param(%{ $subs }); |
124 |
$template->param(biblionumber_for_new_subscription => $subs->{bibnum}); |
125 |
$template->param(biblionumber_for_new_subscription => $subs->{bibnum}); |
125 |
my @irregular_issues = split /;/, $subs->{irregularity}; |
126 |
my @irregular_issues = split /;/, $subs->{irregularity}; |
126 |
- |
|
|