use CGI;
use C4::Auth;
use C4::Koha;
-use C4::Dates;
+use C4::Dates qw/format_date/;
use C4::Serials;
use C4::Output;
use C4::Context;
my ($template, $loggedinuser, $cookie, $hemisphere);
my $subscriptionid = $query->param('subscriptionid');
my $subs = &GetSubscription($subscriptionid);
+
$subs->{enddate} = GetExpirationDate($subscriptionid);
if ($op eq 'del') {
if($wkno > 52){$year++; $wkno=1;}
if($count>365){$count=$i-365;}
my ($y,$m,$d) = Add_Delta_Days($year,1,1, $count - 1);#Date_NthDayOfYear($year,$count);
- my $output = "$y-$m-$d";
+ # padding Add_Delta_Days;
+ my $output = sprintf("%04d-%02d-%02d",$y , $m, $d );
$weekarrayjs .= "'Wk $wkno: ".format_date($output)."',";
$wkno++;
}
$subs->{firstacquidate} = format_date($subs->{firstacquidate});
$subs->{histstartdate} = format_date($subs->{histstartdate});
$subs->{enddate} = format_date($subs->{enddate});
+$subs->{histenddate} = format_date($subs->{histenddate});
$subs->{abouttoexpire} = abouttoexpire($subs->{subscriptionid});
# Done in Serials.pm
# $subs->{'donotedit'}=(C4::Context->preference('IndependantBranches') &&
$template->param($subs);
$template->param(
+ subscriptionid => $subscriptionid,
routing => $routing,
serialslist => \@serialslist,
totalissues => $totalissues,