[calc] $Values->{ui_data_fields} = $CGI->{ui_data_fields} = 'status archive delete'; $CGI->{mv_data_table} = 'transactions'; $CGI->{item_id} ||= $CGI->{order}; $CGI->{order} = $CGI->{item_id}; return; [/calc] [if cgi ship_auto] [calc] my $orders = join ",", delete $CGI->{item_id}, delete $CGI->{item_id_left}; $orders =~ s/-_NULL_-/\0/g; $orders =~ s/\0+/,/g; $orders =~ s/,+/,/g; delete $CGI->{order}; $Scratch->{order_list} = $orders; [/calc] [flag type=write value=1 tables="orderline transactions"] [loop list="[scratch order_list]"] [update-order-status order_number="[loop-code]" ship_all=1 [if-loop-data transactions order_id] settle_transaction="__SETTLE_TRANSACTION__" [/if-loop-data] archive=1] [if scratch ship_notice_username] [email-raw][include etc/ship_notice][/email-raw] [/if] [/loop] [/if] [if !cgi order] [bounce page="__UI_BASE__/order"] [/if] [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 form_include]