|
Lines 57-63
my $usecache = Koha::Caches->get_instance->memcached_cache;
Link Here
|
| 57 |
my $phase = $input->param('phase') // ''; |
57 |
my $phase = $input->param('phase') // ''; |
| 58 |
my $flagsrequired; |
58 |
my $flagsrequired; |
| 59 |
if ( ( $phase eq 'Build new' ) || ( $phase eq 'Create report from SQL' ) || ( $phase eq 'Edit SQL' ) |
59 |
if ( ( $phase eq 'Build new' ) || ( $phase eq 'Create report from SQL' ) || ( $phase eq 'Edit SQL' ) |
| 60 |
|| ( $phase eq 'Build new from existing' ) ) { |
60 |
|| ( $phase eq 'Build new from existing' ) || ( $phase eq 'Create report from existing' ) ) { |
| 61 |
$flagsrequired = 'create_reports'; |
61 |
$flagsrequired = 'create_reports'; |
| 62 |
} |
62 |
} |
| 63 |
elsif ( $phase eq 'Use saved' ) { |
63 |
elsif ( $phase eq 'Use saved' ) { |
|
Lines 66-71
elsif ( $phase eq 'Use saved' ) {
Link Here
|
| 66 |
elsif ( $phase eq 'Delete Saved' ) { |
66 |
elsif ( $phase eq 'Delete Saved' ) { |
| 67 |
$flagsrequired = 'delete_reports'; |
67 |
$flagsrequired = 'delete_reports'; |
| 68 |
} |
68 |
} |
|
|
69 |
elsif ( $phase eq 'Run this Report') { |
| 70 |
$flagsrequired = 'execute_reports'; |
| 71 |
} |
| 69 |
else { |
72 |
else { |
| 70 |
$flagsrequired = '*'; |
73 |
$flagsrequired = '*'; |
| 71 |
} |
74 |
} |
| 72 |
- |
|
|