sub load_items { ($source, $po) = ( param('source'),param('po') ); if(!$source || !$po){ param(-name=>'action', -value=>''); print header(), start_html(-title=>"Title", -style=>{-code=>$got_no_style}, -BGCOLOR=>'tan'); print h1({class=>'Default'},'ERROR'), p({class=>'Error'},$mess_nosource); print start_multipart_form(), submit(-name=>'junk', -label=>'Return to Source/Ship Method/PO'), hidden(-name=>'flags', -value=>$flags), hidden(-name=>'source', -value=>uc($source)), hidden(-name=>'po', -value=>$po), hidden(-name=>'file', -value=>param($file)), hidden(-name=>'action', -value=>'Accept These Customers'); end_form(),""; debug_plop(); } else { #not hit right now } } #### key source value zot key sm value 85 key po value key file value C:\temp\CGItemp4840001 key flags value 2345 key action value