Lines 89-96
if ( $op eq "cud-renew" ) {
Link Here
|
89 |
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid"); |
89 |
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid"); |
90 |
} |
90 |
} |
91 |
|
91 |
|
92 |
my @permanent_irregularities = $query->param('permanent_irregularity'); |
92 |
my @irregularities = $query->param('irregularity'); |
93 |
my @irregularities = $query->param('irregularity'); |
|
|
94 |
my $startdate = output_pref( { str => scalar $query->param('startdate'), dateonly => 1, dateformat => 'iso' } ); |
93 |
my $startdate = output_pref( { str => scalar $query->param('startdate'), dateonly => 1, dateformat => 'iso' } ); |
95 |
( $numberlength, $weeklength, $monthlength ) = GetSubscriptionLength( $subtype, $sublength ); |
94 |
( $numberlength, $weeklength, $monthlength ) = GetSubscriptionLength( $subtype, $sublength ); |
96 |
ReNewSubscription( |
95 |
ReNewSubscription( |
Lines 122-130
if ( $op eq "cud-renew" ) {
Link Here
|
122 |
); |
121 |
); |
123 |
|
122 |
|
124 |
$subscription = Koha::Subscriptions->find($subscriptionid); |
123 |
$subscription = Koha::Subscriptions->find($subscriptionid); |
125 |
my @irregularities = $subscription->guess_irregularities; |
124 |
my @irregularities = $subscription->guess_irregularities; |
|
|
125 |
my @permanent_irregularities = $query->param('permanent_irregularity'); |
126 |
$subscription->permanent_irregularity( join( ';', @permanent_irregularities ) ); |
126 |
$subscription->permanent_irregularity( join( ';', @permanent_irregularities ) ); |
127 |
$subscription->irregularity( join( ';', @irregularities ) ) $subscription->store; |
127 |
$subscription->irregularity( join( ';', @irregularities ) ); |
|
|
128 |
$subscription->store; |
128 |
} |
129 |
} |
129 |
} elsif ( $op eq 'multi_renew' ) { |
130 |
} elsif ( $op eq 'multi_renew' ) { |
130 |
my @subscriptions; |
131 |
my @subscriptions; |
Lines 192-199
if ( $op eq "cud-renew" ) {
Link Here
|
192 |
} |
193 |
} |
193 |
|
194 |
|
194 |
$template->param( |
195 |
$template->param( |
195 |
op => $op, |
196 |
op => $op, |
196 |
popup => ( $mode eq 'popup' ), |
|
|
197 |
); |
197 |
); |
198 |
|
198 |
|
199 |
output_html_with_http_headers $query, $cookie, $template->output; |
199 |
output_html_with_http_headers $query, $cookie, $template->output; |
200 |
- |
|
|