Lines 93-99
if ($op eq 'del') {
Link Here
|
93 |
} |
93 |
} |
94 |
} |
94 |
} |
95 |
my $hasRouting = check_routing($subscriptionid); |
95 |
my $hasRouting = check_routing($subscriptionid); |
96 |
my ($totalissues,@serialslist) = GetSerials($subscriptionid); |
|
|
97 |
$totalissues-- if $totalissues; # the -1 is to have 0 if this is a new subscription (only 1 issue) |
96 |
$totalissues-- if $totalissues; # the -1 is to have 0 if this is a new subscription (only 1 issue) |
98 |
# the subscription must be deletable if there is NO issues for a reason or another (should not happend, but...) |
97 |
# the subscription must be deletable if there is NO issues for a reason or another (should not happend, but...) |
99 |
|
98 |
|
Lines 106-113
my ($user, $sessionID, $flags);
Link Here
|
106 |
for my $date qw(startdate enddate firstacquidate histstartdate histenddate){ |
105 |
for my $date qw(startdate enddate firstacquidate histstartdate histenddate){ |
107 |
$$subs{$date} = format_date($$subs{$date}) if $date && $$subs{$date}; |
106 |
$$subs{$date} = format_date($$subs{$date}) if $date && $$subs{$date}; |
108 |
} |
107 |
} |
|
|
108 |
$subs->{location} = GetKohaAuthorisedValueLib("LOC",$subs->{location}); |
109 |
$subs->{abouttoexpire} = abouttoexpire($subs->{subscriptionid}); |
109 |
$subs->{abouttoexpire} = abouttoexpire($subs->{subscriptionid}); |
110 |
|
|
|
111 |
$template->param($subs); |
110 |
$template->param($subs); |
112 |
$template->param(biblionumber_for_new_subscription => $subs->{bibnum}); |
111 |
$template->param(biblionumber_for_new_subscription => $subs->{bibnum}); |
113 |
my @irregular_issues = split /,/, $subs->{irregularity}; |
112 |
my @irregular_issues = split /,/, $subs->{irregularity}; |
114 |
- |
|
|