Lines 265-280
sub get_letter_loop {
Link Here
|
265 |
]; |
265 |
]; |
266 |
} |
266 |
} |
267 |
|
267 |
|
268 |
sub _get_sub_length { |
|
|
269 |
my ($type, $length) = @_; |
270 |
return |
271 |
( |
272 |
$type eq 'issues' ? $length : 0, |
273 |
$type eq 'weeks' ? $length : 0, |
274 |
$type eq 'months' ? $length : 0, |
275 |
); |
276 |
} |
277 |
|
278 |
sub _guess_enddate { |
268 |
sub _guess_enddate { |
279 |
my ($startdate_iso, $frequencyid, $numberlength, $weeklength, $monthlength) = @_; |
269 |
my ($startdate_iso, $frequencyid, $numberlength, $weeklength, $monthlength) = @_; |
280 |
my ($year, $month, $day); |
270 |
my ($year, $month, $day); |
Lines 330-336
sub redirect_add_subscription {
Link Here
|
330 |
my $subtype = $query->param('subtype'); |
320 |
my $subtype = $query->param('subtype'); |
331 |
my $sublength = $query->param('sublength'); |
321 |
my $sublength = $query->param('sublength'); |
332 |
my ( $numberlength, $weeklength, $monthlength ) |
322 |
my ( $numberlength, $weeklength, $monthlength ) |
333 |
= _get_sub_length( $subtype, $sublength ); |
323 |
= C4::Serials->_get_sub_length( $subtype, $sublength ); |
334 |
my $add1 = $query->param('add1'); |
324 |
my $add1 = $query->param('add1'); |
335 |
my $lastvalue1 = $query->param('lastvalue1'); |
325 |
my $lastvalue1 = $query->param('lastvalue1'); |
336 |
my $innerloop1 = $query->param('innerloop1'); |
326 |
my $innerloop1 = $query->param('innerloop1'); |
Lines 443-450
sub redirect_mod_subscription {
Link Here
|
443 |
|
433 |
|
444 |
my $subtype = $query->param('subtype'); |
434 |
my $subtype = $query->param('subtype'); |
445 |
my $sublength = $query->param('sublength'); |
435 |
my $sublength = $query->param('sublength'); |
446 |
my ($numberlength, $weeklength, $monthlength) |
436 |
my ($numberlength, $weeklength, $monthlength) = C4::Serials->get_sub_length( $subtype, $sublength ); |
447 |
= _get_sub_length( $subtype, $sublength ); |
437 |
my $numberpattern = $query->param('numbering_pattern'); |
448 |
my $locale = $query->param('locale'); |
438 |
my $locale = $query->param('locale'); |
449 |
my $lastvalue1 = $query->param('lastvalue1'); |
439 |
my $lastvalue1 = $query->param('lastvalue1'); |
450 |
my $innerloop1 = $query->param('innerloop1'); |
440 |
my $innerloop1 = $query->param('innerloop1'); |