View | Details | Raw Unified | Return to bug 17656
Collapse All | Expand All

(-)a/serials/subscription-renew.pl (-7 / +6 lines)
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
- 

Return to bug 17656