[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] [L]Table[/L] [value mv_data_table] [title-bar size=2][page index]__COMPANY__[/page][/title-bar] [title-bar][L]Table[/L] [page href="@@MM_BASE@@/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/@@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]

[if-mm advanced mml] [/if-mm] [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:
[if-mm advanced mml] [/if-mm]