|
Lines 29-42
use CGI;
Link Here
|
| 29 |
|
29 |
|
| 30 |
my $input = CGI->new; |
30 |
my $input = CGI->new; |
| 31 |
|
31 |
|
| 32 |
my ( $auth_status, $sessionID ) = |
|
|
| 33 |
check_cookie_auth( $input->cookie('CGISESSID'), |
| 34 |
{ serials => 'create_subscription' } ); |
| 35 |
|
| 36 |
if ( $auth_status ne "ok" ) { |
| 37 |
exit 0; |
| 38 |
} |
| 39 |
|
| 40 |
my $templatename; |
32 |
my $templatename; |
| 41 |
if ($input->param( "resource" ) eq 'report') { |
33 |
if ($input->param( "resource" ) eq 'report') { |
| 42 |
$templatename = "mana/mana-report-search-result.tt"; |
34 |
$templatename = "mana/mana-report-search-result.tt"; |
| 43 |
- |
|
|