Bug 9912: DateUtils.t must not access database

[koha_fer] / serials / serials-collection.pl

diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl
index cdeb6eb..ad57e07 100755 (executable)
--- a/serials/serials-collection.pl
+++ b/serials/serials-collection.pl
@@ -109,6 +109,9 @@ if (@subscriptionid){
     $subs->{missinglist}  =~ s/\n/\<br\/\>/g;
     $subs->{recievedlist} =~ s/\n/\<br\/\>/g;
     ##these are display information
+    $subs->{ "periodicity" . $subs->{periodicity} } = 1;
+    $subs->{ "numberpattern" . $subs->{numberpattern} } = 1;
+    $subs->{ "status" . $subs->{'status'} } = 1;
     $subs->{startdate}     = format_date( $subs->{startdate} );
     $subs->{histstartdate} = format_date( $subs->{histstartdate} );
     if ( !defined $subs->{enddate} || $subs->{enddate} eq '0000-00-00' ) {
@@ -122,10 +125,6 @@ if (@subscriptionid){
     $subs->{'subscriptionid'} = $subscriptionid;  # FIXME - why was this lost ?
        $location = GetAuthorisedValues('LOC', $subs->{'location'});
        $callnumber = $subs->{callnumber};
-    my $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subs->{periodicity});
-    my $numberpattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subs->{numberpattern});
-    $subs->{frequency} = $frequency;
-    $subs->{numberpattern} = $numberpattern;
     push @$subscriptiondescs,$subs;
     my $tmpsubscription= GetFullSubscription($subscriptionid);
     @subscriptioninformation=(@$tmpsubscription,@subscriptioninformation);
@@ -155,7 +154,6 @@ foreach (@$location) {
     $locationlib = $_->{'lib'} if $_->{'selected'};
 }
 
-
 chop $subscriptionidlist;
 $template->param(
           subscriptionidlist => $subscriptionidlist,