[if-mm !tables] [set ui_error]Not authorized for table.[/set] [bounce page="__UI_BASE__/error"] [/if-mm] [if !advanced report] [bounce page="__UI_BASE__/error"] [value name=saved_report set=""] [/if] [seti page_title]Reports[/seti] [set ui_class]Reports[/set] [set help_name]report[/set] [set icon_name]admin/icon_config.gif[/set] [seti name=tables][list-databases][/seti] @_UI_STD_HEAD_@ [seti table_list] [loop prefix=table list="[scratch tables]"] [/loop] [/seti]
Run saved report Retrieve saved definition Delete report
[loop list="[list-glob spec='pages/__UI_BASE__/reports/* pages/__UI_BASE__/user/[data session mm_username]/reports/*']"] [calc] $lab = q{[loop-code]}; $lab =~ s:\.html.*::; $opt = $lab; $opt =~ s:^pages/::; $lab =~ s:.*/::; $lab =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge; my $out = $Tag->page($opt); $out .= $lab; $out .= '
' [/calc] [/loop]
[loop list="[list-glob spec='pages/__UI_BASE__/report_def/* pages/__UI_BASE__/user/[data session mm_username]/report_def/*']"] [calc] $lab = q{[loop-code]}; $lab =~ s:\.html.*::; $opt = $lab; $opt =~ s:^pages/::; $lab =~ s:.*/::; $lab =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge; my $out = $Tag->page($opt); $out .= $lab; $out .= '
' [/calc] [/loop]
[if-mm super] [seti report_spec][list-glob spec='pages/__UI_BASE__/report*/* pages/__UI_BASE__/user/[data session mm_username]/report*/*'][/seti] [else] [seti report_spec][list-glob spec='pages/__UI_BASE__/user/[data session mm_username]/report*/*'][/seti] [/else] [/if-mm] [set del_report] [calc] $out = ''; my @files; if($CGI->{ui_report_delete}) { @possible = split /\s+/, $Scratch->{report_spec}; @files = grep /$CGI->{ui_report_delete}$/, @possible; } for(@files) { my $lab = $_; $lab =~ s:.*/([^/]+/.+)\.html:$1:; $lab =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge; $out .= "Delete $lab: "; $out .= $Tag->unlink_file($_, 'pages/config') ? 'success' : 'FAILED'; $out .= '
'; } $Scratch->{report_delete_message} = $out; return; [/calc] [/set] [scratch report_delete_message] [set report_delete_message][/set]

@_UI_STD_FOOTER_@