Lines 43-49
my $subscriptionid = $query->param('subscriptionid');
Link Here
|
43 |
|
43 |
|
44 |
# Permission needed if it is a deletion (del) : delete_subscription |
44 |
# Permission needed if it is a deletion (del) : delete_subscription |
45 |
# Permission needed otherwise : * |
45 |
# Permission needed otherwise : * |
46 |
my $permission = ($op eq "cud-del") ? "delete_subscription" : "*"; |
46 |
|
|
|
47 |
my %permissions = ( |
48 |
"cud-del" => "delete_subscription", |
49 |
"cud-close" => "edit_subscription", |
50 |
"reopen" => "edit_subscription", |
51 |
); |
52 |
|
53 |
my $permission = $permissions{$op} // "*"; |
47 |
|
54 |
|
48 |
my ($template, $loggedinuser, $cookie) |
55 |
my ($template, $loggedinuser, $cookie) |
49 |
= get_template_and_user({template_name => "serials/subscription-detail.tt", |
56 |
= get_template_and_user({template_name => "serials/subscription-detail.tt", |
50 |
- |
|
|