|
Lines 46-56
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
Link Here
|
| 46 |
|
46 |
|
| 47 |
my $op = $input->param('op'); |
47 |
my $op = $input->param('op'); |
| 48 |
|
48 |
|
| 49 |
if($op && ($op eq 'new' || $op eq 'cud-modify')) { |
49 |
if($op && ($op eq 'new' || $op eq 'modify')) { |
| 50 |
my @units_loop; |
50 |
my @units_loop; |
| 51 |
push @units_loop, {val => $_} for (qw/ day week month year /); |
51 |
push @units_loop, {val => $_} for (qw/ day week month year /); |
| 52 |
|
52 |
|
| 53 |
if($op eq 'cud-modify') { |
53 |
if($op eq 'modify') { |
| 54 |
my $frequencyid = $input->param('frequencyid'); |
54 |
my $frequencyid = $input->param('frequencyid'); |
| 55 |
my $frequency = GetSubscriptionFrequency($frequencyid); |
55 |
my $frequency = GetSubscriptionFrequency($frequencyid); |
| 56 |
foreach (@units_loop) { |
56 |
foreach (@units_loop) { |
| 57 |
- |
|
|