* Read shipmode from either CGI or Values, which allows us

to bounce to the ship_data page and retain the mode.
interchange · Jul 18, 2001 · e55f46d · e55f46d
1 parent 3abcd46
commit e55f46d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/dist/lib/UI/pages/admin/ship_data.html b/dist/lib/UI/pages/admin/ship_data.html
@@ -13,6 +13,7 @@
 <!-- do update?: [cgi price_ok]
 	[perl]
 		return if ! $CGI->{price_ok};
+		$CGI->{ui_shipmode} ||= $Values->{ui_shipmode};
 		my $inmode = $CGI->{ui_shipmode};
 		$inmode =~ s/\W+//g;
 		#Log("write inmode=$inmode");
@@ -129,6 +130,7 @@
 </tr>
 
 [perl]
+		$CGI->{ui_shipmode} ||= $Values->{ui_shipmode};
 		my $inmode = $CGI->{ui_shipmode};
 		#Log("ship_data inmode=$inmode");
 		my $lines = $Config->{Shipping_line};