[calc] return unless $CGI->{mv_more_ip}; $CGI->{mv_data_table} = $Values->{mv_data_table}; return; [/calc] [seti page_title] [either] [cgi page_title] [or] Spreadsheet Edit: [cgi mv_data_table] [/either] [/seti] [set ui_class]Admin[/set] [seti help_name][either][cgi help_name][or]gensql.main[/either][/seti] [seti icon_name][either][cgi icon_name][or]icon_config.gif[/either][/seti] @_UI_STD_HEAD_@ [perl tables="[cgi mv_data_table]"] my $table = $CGI->{mv_data_table}; my $db = $Db{$table}; $Values->{mv_data_table} = $table; $Values->{ui_data_key_name} = $Db{$table}->config('KEY'); $Values->{ui_data_fields} = $CGI->{ui_data_fields} || $CGI->{mv_data_fields} || $Values->{"spread:$table:ui_data_fields"} || join(" ", $db->columns()); my @fields; @fields = grep $_ ne $Values->{ui_data_key_name}, split /[\0\s,]+/, $Values->{ui_data_fields}; $Values->{ui_data_fields} = join " ", @fields; $Values->{"ui_spread_meta:$table"} = $CGI->{"ui_spread_meta:$table"} if defined $CGI->{"ui_spread_meta:$table"}; $Values->{ui_meta_display} = $Values->{"ui_spread_meta:$table"}; if($Values->{"ui_spreadsheet_rows:$table"}) { $Values->{"ui_spreadsheet_rows"} = $Values->{"ui_spreadsheet_rows:$table"}; } else { $Values->{"ui_spreadsheet_rows"} = 10; } if($Values->{"ui_textarea_rows:$table"}) { $Values->{"ui_textarea_rows"} = $Values->{"ui_textarea_rows:$table"}; } else { $Values->{"ui_textarea_rows"} = 4; } if($CGI->{"ui_spread_size:$table"}) { $Values->{"ui_spread_size"} = $Values->{"ui_spread_size:$table"} = $CGI->{"ui_spread_size:$table"}; } elsif($Values->{"ui_spread_size:$table"}) { $Values->{"ui_spread_size"} = $Values->{"ui_spread_size:$table"}; } else { $Values->{"ui_spread_size"} = 12; } return; [/perl] [if scratch ui_failure]
Error: [scratch ui_failure] [set ui_failure][/set]
[/if]
[calc] @areas = grep /\S/, split /[\s,\0]+/, $Values->{ui_data_fields}; $Scratch->{ui_num_col} = scalar(@areas) + 2; $Config->{NoSearch} = ''; if ($CGI->{ui_text_qualification} and $CGI->{ui_text_qualification} =~ /=/ ) { my ($f, $s) = split /\s*=\s*/, $CGI->{ui_text_qualification} , 2; $CGI->{ui_text_qualification} = "co=1\nop=eq\nse=$s\nsf=$f"; } elsif ($CGI->{ui_text_qualification}) { $CGI->{ui_text_qualification} = "se=$CGI->{ui_text_qualification}"; } else { $CGI->{ui_text_qualification} = "ra=yes"; } $CGI->{ui_description_field} = q{[data table=__UI_META_TABLE__ col=field key="[cgi mv_data_table]" ]}; return; [/calc] [if !value ui_spreadsheet_rows] [value name=ui_spreadsheet_rows set=10 hide=1] [/if] [search-region more=1 arg=" [cgi ui_text_qualification] ml=[value ui_spreadsheet_rows] rf=[value ui_data_key_name] tf=[value ui_data_key_name] st=db sp=@@MV_PAGE@@ fi=[value mv_data_table] "] [rotate-table reparse=0 rotate="[value ui_rotate_spread]" interpolate=1] [with param=table value="[value mv_data_table]"] [row-edit columns="[value ui_data_fields]" height=`$Values->{"ui_textarea_rows:$Values->{mv_data_table}"}` textarea="[value name='ui_textarea_fields:[value mv_data_table]']" ] [search-list] [if-mm keys [item-code]] [row-edit key="[item-code]" size="[value ui_spread_size]" columns="[value ui_data_fields]" height=` my $tab = $Values->{mv_data_table}; return $Values->{"ui_textarea_rows:$tab"}; ` textarea=` my $tab = $Values->{mv_data_table}; return $Values->{"ui_textarea_fields:$tab"}; ` ] [/if-mm] [set row_number][item-increment][/set] [/search-list] [row-edit blank=1 size="[value ui_spread_size]" columns="[value ui_data_fields]"] [more-list] [/more-list]
  [value ui_data_key_name]
[page href="__UI_BASE__/flex_editor" form=| page_title=Edit [value mv_data_table]: [item-code] mv_data_table=[value mv_data_table] item_id=[item-code] |]edit [item-code]
  More pages: [more]
     [button text="Ok" bold=1] mv_todo=set [return-to click] [/button]       [button text="Change display"] mv_todo=return mv_data_table=[cgi mv_data_table] mv_nextpage=__UI_BASE__/spread_control [/button] [button text="Delete checked rows" confirm="Are you sure you want to delete the checked rows?"] [flag type=write table="[cgi mv_data_table]"] mv_nextpage=__UI_BASE__/flex_select mv_auto_export= mv_todo=return [if-mm tables =d] [perl tables="[cgi mv_data_table]"] my $tab = $CGI->{mv_data_table}; my $db = $Db{$tab}; unless ($db) { $Scratch->{ui_message} = "No table '$tab'"; return; } my @items = split /\0/, $CGI->{batch_id}; foreach my $item (@items) { if ($db->delete_record($item)) { $out .= "Deleted $item from table $tab
"; } else { $out .= "Item $item not in $tab table (or delete failed)
"; } } $Scratch->{ui_message} = $out; return; [/perl] [else] [set ui_message]Not authorized to delete items.[/set] [/else] [/if-mm] [return-to click] [/button]    [if-mm super]
Auto-export [/if-mm]
[/rotate-table] [/search-region]
@_UI_STD_FOOTER_@