|
Lines 24-29
use C4::Dates qw/format_date/;
Link Here
|
| 24 |
use C4::Serials; |
24 |
use C4::Serials; |
| 25 |
use C4::Output; |
25 |
use C4::Output; |
| 26 |
use C4::Context; |
26 |
use C4::Context; |
|
|
27 |
use C4::Branch; |
| 27 |
use C4::Search qw/enabled_staff_search_views/; |
28 |
use C4::Search qw/enabled_staff_search_views/; |
| 28 |
use Date::Calc qw/Today Day_of_Year Week_of_Year Add_Delta_Days/; |
29 |
use Date::Calc qw/Today Day_of_Year Week_of_Year Add_Delta_Days/; |
| 29 |
use Carp; |
30 |
use Carp; |
|
Lines 112-117
for my $date ( qw(startdate enddate firstacquidate histstartdate histenddate) )
Link Here
|
| 112 |
} |
113 |
} |
| 113 |
$subs->{location} = GetKohaAuthorisedValueLib("LOC",$subs->{location}); |
114 |
$subs->{location} = GetKohaAuthorisedValueLib("LOC",$subs->{location}); |
| 114 |
$subs->{abouttoexpire} = abouttoexpire($subs->{subscriptionid}); |
115 |
$subs->{abouttoexpire} = abouttoexpire($subs->{subscriptionid}); |
|
|
116 |
$subs->{branchname} = GetBranchName($subs->{branchcode}) if defined $subs->{branchcode}; |
| 115 |
$template->param(%{ $subs }); |
117 |
$template->param(%{ $subs }); |
| 116 |
$template->param(biblionumber_for_new_subscription => $subs->{bibnum}); |
118 |
$template->param(biblionumber_for_new_subscription => $subs->{bibnum}); |
| 117 |
my @irregular_issues = split /,/, $subs->{irregularity}; |
119 |
my @irregular_issues = split /,/, $subs->{irregularity}; |
| 118 |
- |
|
|