|
Lines 248-263
sub get_letter_loop {
Link Here
|
| 248 |
]; |
248 |
]; |
| 249 |
} |
249 |
} |
| 250 |
|
250 |
|
| 251 |
sub _get_sub_length { |
|
|
| 252 |
my ($type, $length) = @_; |
| 253 |
return |
| 254 |
( |
| 255 |
$type eq 'issues' ? $length : 0, |
| 256 |
$type eq 'weeks' ? $length : 0, |
| 257 |
$type eq 'months' ? $length : 0, |
| 258 |
); |
| 259 |
} |
| 260 |
|
| 261 |
sub _guess_enddate { |
251 |
sub _guess_enddate { |
| 262 |
my ($startdate_iso, $frequencyid, $numberlength, $weeklength, $monthlength) = @_; |
252 |
my ($startdate_iso, $frequencyid, $numberlength, $weeklength, $monthlength) = @_; |
| 263 |
my ($year, $month, $day); |
253 |
my ($year, $month, $day); |
|
Lines 301-307
sub redirect_add_subscription {
Link Here
|
| 301 |
my $subtype = $query->param('subtype'); |
291 |
my $subtype = $query->param('subtype'); |
| 302 |
my $sublength = $query->param('sublength'); |
292 |
my $sublength = $query->param('sublength'); |
| 303 |
my ( $numberlength, $weeklength, $monthlength ) |
293 |
my ( $numberlength, $weeklength, $monthlength ) |
| 304 |
= _get_sub_length( $subtype, $sublength ); |
294 |
= C4::Serials->_get_sub_length( $subtype, $sublength ); |
| 305 |
my $add1 = $query->param('add1'); |
295 |
my $add1 = $query->param('add1'); |
| 306 |
my $lastvalue1 = $query->param('lastvalue1'); |
296 |
my $lastvalue1 = $query->param('lastvalue1'); |
| 307 |
my $innerloop1 = $query->param('innerloop1'); |
297 |
my $innerloop1 = $query->param('innerloop1'); |
|
Lines 379-385
sub redirect_mod_subscription {
Link Here
|
| 379 |
my $subtype = $query->param('subtype'); |
369 |
my $subtype = $query->param('subtype'); |
| 380 |
my $sublength = $query->param('sublength'); |
370 |
my $sublength = $query->param('sublength'); |
| 381 |
my ($numberlength, $weeklength, $monthlength) |
371 |
my ($numberlength, $weeklength, $monthlength) |
| 382 |
= _get_sub_length( $subtype, $sublength ); |
372 |
= C4::Serials->_get_sub_length( $subtype, $sublength ); |
| 383 |
my $numberpattern = $query->param('numbering_pattern'); |
373 |
my $numberpattern = $query->param('numbering_pattern'); |
| 384 |
my $locale = $query->param('locale'); |
374 |
my $locale = $query->param('locale'); |
| 385 |
my $lastvalue1 = $query->param('lastvalue1'); |
375 |
my $lastvalue1 = $query->param('lastvalue1'); |