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