|
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 |
- |
|
|