[new] [L]Database Spreadsheet[/L] [if session arg] [set name=arg interpolate=1][data arg][/set] [else] [set name=arg]1[/set] [/else] [/if] [perl values cgi] my $table = $Safe{values}{mv_data_table}; $Safe{'values'}{mvc_data_fields} = $Safe{cgi}{mvc_data_fields} || $Safe{values}{"$table:mvc_data_fields"} || '' ; if($table eq delete $Safe{values}{mvc_auto_export}) { return "[set name=export_ok int][tag export $table][/tag][/set]"; } else { return '[set name=export_ok][/set]'; } [/perl] [title-bar][L]Spreadsheet[/L]: [value mv_data_table][if scratch export_ok] (exported[/L])[/if][/title-bar]

[L]Column width[/L] [L]Number of rows[/L]

[if !value mvc_spreadsheet_rows] [value name=mvc_spreadsheet_rows set=10 hide=1] [/if] [comment] [rotate-table rotate="0"] [/comment] [rotate-table rotate="[value mvc_rotate_spread]" interpolate=1] [with param=table value="[value mv_data_table]"] [row-edit columns="[value mvc_data_fields]"] [tag op=each base="[value mv_data_table]"][sort -[scratch arg] +[value mvc_spreadsheet_rows]] [row-edit key="[loop-code]" size="[value mvc_spread_size]" columns="[value mvc_data_fields]"] [set row_number][loop-increment][/set] [/tag]
Key
[page href="admin/db/dbedit" arg="[loop-code]"][e][loop-code][/e]
[/rotate-table]

[if scratch arg > 1] [page href="@@MV_PAGE@@" arg="[calc][scratch arg] - [value mvc_spreadsheet_rows][/calc]"] Previous ([calc] $size = [value mvc_spreadsheet_rows]; $begin = [scratch arg]; $tmp1 = $begin - $size; $tmp2 = $begin - 1; return "$tmp1 to $tmp2"; [/calc]) [/if]     [if type=scratch term=row_number op=">=" compare="[value mvc_spreadsheet_rows]"] [page href="@@MV_PAGE@@" arg="[calc][scratch arg] + [value mvc_spreadsheet_rows][/calc]"] Next ([calc] $size = [value mvc_spreadsheet_rows]; $begin = [scratch arg]; $tmp1 = $begin + $size; $tmp2 = $tmp1 + $size - 1; return "$tmp1 to $tmp2"; [/calc]) [/if]


[set [L]Submit[/L]] mv_todo=set mv_nextpage=admin/db/spread [/set]     Auto-export
[L]Edit/Insert row[/L]:
[value name=mvc_data_fields value=""]