Lines 25-31
use C4::Search qw( enabled_staff_search_views );
Link Here
|
25 |
|
25 |
|
26 |
use Koha::AdditionalFields; |
26 |
use Koha::AdditionalFields; |
27 |
use Koha::AuthorisedValues; |
27 |
use Koha::AuthorisedValues; |
28 |
use Koha::DateUtils qw( output_pref ); |
28 |
use Koha::DateUtils qw( output_pref dt_from_string ); |
29 |
use Koha::Acquisition::Bookseller; |
29 |
use Koha::Acquisition::Bookseller; |
30 |
use Koha::Subscriptions; |
30 |
use Koha::Subscriptions; |
31 |
|
31 |
|
Lines 117-122
$subs->{location} = $av->count ? $av->next->lib : '';
Link Here
|
117 |
$av = Koha::AuthorisedValues->search({ category => 'CCODE', authorised_value => $subs->{ccode} }); |
117 |
$av = Koha::AuthorisedValues->search({ category => 'CCODE', authorised_value => $subs->{ccode} }); |
118 |
$subs->{ccode} = $av->count ? $av->next->lib : ''; |
118 |
$subs->{ccode} = $av->count ? $av->next->lib : ''; |
119 |
$subs->{abouttoexpire} = abouttoexpire($subs->{subscriptionid}); |
119 |
$subs->{abouttoexpire} = abouttoexpire($subs->{subscriptionid}); |
|
|
120 |
$subs->{has_expired_already} = dt_from_string($subs->{enddate})->compare(dt_from_string); |
120 |
$template->param(%{ $subs }); |
121 |
$template->param(%{ $subs }); |
121 |
$template->param(biblionumber_for_new_subscription => $subs->{bibnum}); |
122 |
$template->param(biblionumber_for_new_subscription => $subs->{bibnum}); |
122 |
my @irregular_issues = split /;/, $subs->{irregularity}; |
123 |
my @irregular_issues = split /;/, $subs->{irregularity}; |
123 |
- |
|
|