Lines 62-67
my $dbh = C4::Context->dbh;
Link Here
|
62 |
my $mode = $query->param('mode') || q{}; |
62 |
my $mode = $query->param('mode') || q{}; |
63 |
my $op = $query->param('op') || 'display'; |
63 |
my $op = $query->param('op') || 'display'; |
64 |
my $subscriptionid = $query->param('subscriptionid'); |
64 |
my $subscriptionid = $query->param('subscriptionid'); |
|
|
65 |
my $sublength = $query->param('sublength'); |
66 |
my $subtype = $query->param('subtype'); |
67 |
my ($numberlength, $weeklength, $monthlength) = C4::Serials->_get_sub_length( $subtype, $sublength ); |
68 |
|
65 |
my $done = 0; # for after form has been submitted |
69 |
my $done = 0; # for after form has been submitted |
66 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
70 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
67 |
{ |
71 |
{ |
Lines 93-98
my $newstartdate = output_pref( { str => $subscription->{enddate}, dateonly => 1
Link Here
|
93 |
or output_pref( { dt => dt_from_string, dateonly => 1 } ); |
97 |
or output_pref( { dt => dt_from_string, dateonly => 1 } ); |
94 |
|
98 |
|
95 |
$template->param( |
99 |
$template->param( |
|
|
100 |
subtypes => [ qw( numberlength weeklength monthlength ) ], |
96 |
startdate => $newstartdate, |
101 |
startdate => $newstartdate, |
97 |
numberlength => $subscription->{numberlength}, |
102 |
numberlength => $subscription->{numberlength}, |
98 |
weeklength => $subscription->{weeklength}, |
103 |
weeklength => $subscription->{weeklength}, |
99 |
- |
|
|