[if !cgi order] [bounce page="__UI_BASE__/order"] [/if] [calc] $Values->{ui_data_fields} = $CGI->{ui_data_fields} = 'status archive delete'; $CGI->{mv_data_table} = 'transactions'; $CGI->{item_id} = $CGI->{order}; return; [/calc] [comment]BEGIN former UI_STD_DBEDIT_HEAD[/comment] [if cgi mv_data_table] [value name=mv_data_table set="[cgi mv_data_table]" hide=1] [else] [value name=mv_data_table set="[calc]$Config->{ProductFiles}[0][/calc]" hide=1] [/else] [/if] [if-mm !tables] [calc] delete $Scratch->{no_bounce}; my $tmp = delete $Scratch->{ui_override_table}; if($tmp eq $Values->{mv_data_table}) { $Scratch->{no_bounce} = 1; } return; [/calc] [if scratch no_bounce] [set no_bounce][/set] [else] [seti ui_error][msg arg.0="[value mv_data_table]"]Not authorized for table %s.[/msg][/seti] [bounce page="__UI_BASE__/error"] [/else] [/if] [/if-mm] [if-mm function=keys name="[cgi item_id]"] [else][bounce href="[area admin/special/key_violation]"][/else] [/if-mm] [perl tables="[value mv_data_table] __UI_META_TABLE__"] my $table = $Values->{mv_data_table}; my $db = $Db{$table}; my $mdb = $Db{__UI_META_TABLE__}; if(! $db) { $Scratch->{ui_error} = errmsg("Bad table '%s'", $table); $Tag->bounce( { page => '__UI_BASE__/error' } ); } $Values->{ui_data_key_name} = $db->config('KEY'); ############################################################### # Get the field display information including breaks and labels ############################################################### if( $mdb and ! $CGI->{ui_data_fields} and ! $CGI->{ui_data_fields_all} and $mdb->record_exists($table) ) { $CGI->{ui_data_fields} = $mdb->field($table, 'options'); $CGI->{ui_data_fields} =~ s/\r\n/\n/g; $CGI->{ui_data_fields} =~ s/\r/\n/g; if($CGI->{ui_data_fields} =~ /\n\n/) { my @breaks; my @break_labels; while ($CGI->{ui_data_fields} =~ s/\n+(?:\n=(.*)\n)?\n+(\w+)/\n$2/) { push @breaks, $2; push @break_labels, "$2=$1" if $1; } $CGI->{ui_break_before} = join " ", @breaks; $CGI->{ui_break_before_label} = join ",", @break_labels; } $CGI->{ui_data_fields} =~ s/^\s+//; $CGI->{ui_data_fields} =~ s/\s+$//; } $Values->{ui_data_fields} = $CGI->{ui_data_fields} || $CGI->{mv_data_fields} || $Values->{"$table:ui_data_fields"} || (join " ", $db->columns()); #Log("data fields: '$Values->{ui_data_fields}' cgi='$CGI->{ui_data_fields}'"); $Values->{ui_data_fields} =~ s/[,\0\s]+/ /g; ############################################################### my @cols = split /[,\0\s]/, $Values->{ui_data_fields}; @cols = grep /:/ || $db->column_exists($_), @cols; $Values->{ui_data_fields} = $CGI->{ui_data_fields} = join " ", @cols; return; [/perl] [comment]END former UI_STD_DBEDIT_HEAD[/comment] [set ui_class]Orders[/set] [seti page_title][L]Order status[/L] -- [cgi order][/seti] [tmp page_banner][L]Order status[/L]: [L]order[/L] [page href="__UI_BASE__/order_view" form="order=[cgi order]"][cgi order][/tmp] [set help_name]item.edit[/set] [set icon_name]icon_item.gif[/set] @_UI_STD_HEAD_@ [tmp order_lines_tmp][loop search=" fi=orderline st=db sf=order_number se=[cgi order] ml=1000 "][loop-code] [/loop][/tmp]
[/loop]