[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 config/violation]"] [/if-mm] [calc] $Config->{NoSearch} = ''; [/calc]
[title-bar 200 2]Run saved report[/title-bar]
[loop list="[list-glob spec='pages/config/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/config/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] |