diff --git a/serials/subscription-detail.pl b/serials/subscription-detail.pl index 2728df5dfa..7110476b54 100755 --- a/serials/subscription-detail.pl +++ b/serials/subscription-detail.pl @@ -40,8 +40,9 @@ my ($subscriptionid,$auser,$librarian,$cost,$aqbooksellerid, $aqbooksellername,$ $numberingmethod, $status, $biblionumber, $bibliotitle, $callnumber, $notes, $hemisphere,$letter,$manualhistory,$histstartdate,$enddate,$missinglist,$recievedlist,$opacnote,$librariannote); $subscriptionid = $query->param('subscriptionid'); - my $subs = &GetSubscription($subscriptionid); +$subs->{enddate} = GetExpirationDate($subscriptionid); + if ($op eq 'del') { if ($subs->{'cannotedit'}){ warn "Attempt to delete subscription $subscriptionid by ".C4::Context->userenv->{'id'}." not allowed";