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

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

Return to bug 17656