|
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'); |