[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] [L]Table[/L] [value mv_data_table] [title-bar size=2][page index]__COMPANY__[/page][/title-bar] [title-bar][L]Table[/L] [page href="config/dbedit" arg="[value mv_data_table]"][value mv_data_table] [/title-bar] [seti table_list] [loop prefix=table list="[scratch tables]"] [/loop] [/seti]
[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]

[loop list="0 1 2"] [/loop] [loop list="[scratch column_nums]"] [/loop]
Report Title Summary only Page size
Search filter
Sort order [loop-increment] Break: [if value break[loop-code]] no yes [else] no yes [/else] [/if]
Column [loop-increment]
insert
append
delete

Heading: Summary:
Align: Format:
Edit as key for: