Select Code to Download

sub load_items {
    ($source, $po) = ( param('source'),param('po') );
...
#not hit right now
    }
}

key source value zot
key sm value 85
...
key file value C:\temp\CGItemp4840001
key flags value 2345
key action value