[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 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]"] [table-code] [/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]

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

[if-mm advanced mml] [/if-mm]