Lines 38-43
my $op = $query->param('op') || q{};
Link Here
|
38 |
my $issueconfirmed = $query->param('issueconfirmed'); |
38 |
my $issueconfirmed = $query->param('issueconfirmed'); |
39 |
my $dbh = C4::Context->dbh; |
39 |
my $dbh = C4::Context->dbh; |
40 |
my $subscriptionid = $query->param('subscriptionid'); |
40 |
my $subscriptionid = $query->param('subscriptionid'); |
|
|
41 |
my $subscription = Koha::Subscriptions->find( $subscriptionid ); |
41 |
|
42 |
|
42 |
if ( $op and $op eq "close" ) { |
43 |
if ( $op and $op eq "close" ) { |
43 |
C4::Serials::CloseSubscription( $subscriptionid ); |
44 |
C4::Serials::CloseSubscription( $subscriptionid ); |
Lines 124-135
my @irregular_issues = split /;/, $subs->{irregularity};
Link Here
|
124 |
my $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subs->{periodicity}); |
125 |
my $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subs->{periodicity}); |
125 |
my $numberpattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subs->{numberpattern}); |
126 |
my $numberpattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subs->{numberpattern}); |
126 |
|
127 |
|
127 |
my $subscription_object = Koha::Subscriptions->find( $subscriptionid ); |
|
|
128 |
$template->param( |
128 |
$template->param( |
129 |
available_additional_fields => Koha::AdditionalFields->search( { tablename => 'subscription' } ), |
129 |
available_additional_fields => Koha::AdditionalFields->search( { tablename => 'subscription' } ), |
130 |
additional_field_values => { |
130 |
additional_field_values => { |
131 |
map { $_->field->name => $_->value } |
131 |
map { $_->field->name => $_->value } |
132 |
$subscription_object->additional_field_values->as_list |
132 |
$subscription->additional_field_values->as_list |
133 |
}, |
133 |
}, |
134 |
); |
134 |
); |
135 |
|
135 |
|
Lines 151-156
while ( my $o = $orders->next ) {
Link Here
|
151 |
} |
151 |
} |
152 |
|
152 |
|
153 |
$template->param( |
153 |
$template->param( |
|
|
154 |
subscription => $subscription, |
154 |
subscriptionid => $subscriptionid, |
155 |
subscriptionid => $subscriptionid, |
155 |
serialslist => \@serialslist, |
156 |
serialslist => \@serialslist, |
156 |
hasRouting => $hasRouting, |
157 |
hasRouting => $hasRouting, |
157 |
- |
|
|