|
Lines 311-317
sub redirect_add_subscription {
Link Here
|
| 311 |
my $firstacquidate = output_pref( { str => scalar $query->param('firstacquidate'), dateonly => 1, dateformat => 'iso' } ); |
311 |
my $firstacquidate = output_pref( { str => scalar $query->param('firstacquidate'), dateonly => 1, dateformat => 'iso' } ); |
| 312 |
|
312 |
|
| 313 |
if(!defined $enddate || $enddate eq '') { |
313 |
if(!defined $enddate || $enddate eq '') { |
| 314 |
my $subscription = Koha::Subscriptions->new({ |
314 |
my $subscription = Koha::Subscription->new({ |
| 315 |
startdate => $startdate, |
315 |
startdate => $startdate, |
| 316 |
periodicity => $periodicity, |
316 |
periodicity => $periodicity, |
| 317 |
weeklength => $weeklength, |
317 |
weeklength => $weeklength, |
|
Lines 420-426
sub redirect_mod_subscription {
Link Here
|
| 420 |
|
420 |
|
| 421 |
# Guess end date |
421 |
# Guess end date |
| 422 |
if(!defined $enddate || $enddate eq '') { |
422 |
if(!defined $enddate || $enddate eq '') { |
| 423 |
my $subscription = Koha::Subscriptions->new({ |
423 |
my $subscription = Koha::Subscription->new({ |
| 424 |
startdate => $startdate, |
424 |
startdate => $startdate, |
| 425 |
periodicity => $periodicity, |
425 |
periodicity => $periodicity, |
| 426 |
weeklength => $weeklength, |
426 |
weeklength => $weeklength, |
| 427 |
- |
|
|