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