diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt index 7c493d8020..af9074b34f 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt @@ -388,7 +388,16 @@ >
  • - + Preview SQL
  • diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl index d1444a7c6e..065b31027f 100755 --- a/reports/guided_reports.pl +++ b/reports/guided_reports.pl @@ -58,15 +58,18 @@ my $usecache = Koha::Caches->get_instance->memcached_cache; my $op = $input->param('op') // ''; my $flagsrequired; -if ( ( $op eq 'add_form' ) - || ( $op eq 'add_form_sql' ) - || ( $op eq 'edit_form' ) - || ( $op eq 'duplicate' ) ) +if ( $op eq 'add_form' + || $op eq 'add_form_sql' + || $op eq 'edit_form' + || $op eq 'duplicate' + || $op eq 'cud-save' + || $op eq 'cud-update_sql' + || $op eq 'cud-update_and_run_sql' ) { $flagsrequired = 'create_reports'; } elsif ( $op eq 'list' ) { $flagsrequired = 'execute_reports'; -} elsif ( $op eq 'delete' ) { +} elsif ( $op eq 'cud-delete' ) { $flagsrequired = 'delete_reports'; } else { $flagsrequired = '*';