[if session arg] [value name="mvc_data_table" set="[data session arg]" scratch=1 hide=1] [value name="mv_data_table" set="[value mvc_data_table]" hide=1] [value name=saved_report set=""] [/if]
[seti name=tables][list-databases][/seti] [perl table="[scratch tables]"] my @tables = split /\s+/, $Scratch->{tables}; my $out; for(@tables) { $tables{$_} = [ $Db{$_}->columns() ]; } $out = " EOF [/perl] [if-mm !tables] [bounce href="[area @@MM_BASE@@/violation]"] [/if-mm] [calc] $Config->{NoSearch} = ''; [/calc]
[title-bar 200 2]Run saved report[/title-bar]
[loop list="[list-glob spec='pages/@@MM_BASE@@/reports/* pages/@@MM_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] |
[title-bar 200 2]Retrieve saved definition[/title-bar]
[loop list="[list-glob spec='pages/@@MM_BASE@@/report_def/* pages/@@MM_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] |
[title-bar 200 2]Delete report[/title-bar]
[if-mm super]
[seti report_spec][list-glob spec='pages/@@MM_BASE@@/report*/* pages/@@MM_BASE@@/user/[data session mm_username]/report*/*'][/seti]
[else]
[seti report_spec][list-glob spec='pages/@@MM_BASE@@/user/[data session mm_username]/report*/*'][/seti]
[/else]
[/if-mm]
[set del_report]
[calc]
$out = '';
my @files;
if($CGI->{mvc_report_delete}) {
@possible = split /\s+/, $Scratch->{report_spec};
@files = grep /$CGI->{mvc_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] |