Help for this page

Select Code to Download


  1. or download this
    My $interpreter = Verify->new( );
$interpreter->pluggedFunctions( { "zero" => { $_[0] * 0 } } );
...

My %bind_variables = get_variables_from_tk_interface_put_into_hash( $t
+k2 );
if  $interpreter( \%bind_variables ) ne "YAY" die("EEK MORE!!");
  2. or download this
    If( :company == "" or :stock == "" or :sku == 0 )
    Return "E_ROW_INVALID";
if( checkSalesPerson( :salesperson )  == false )
    return "E_INVALID_SALESPERSON";
  3. or download this
    if( :salesperson != "gsmith" and :salesperson != "rjohnson" )
    Return "E_INVALID_SALESPERSON".
  4. or download this
    Sp[0] = "gsmith";
Sp[1] = "rsmith";

if( inArray( :salesperson, sp ) == false )
    Return "E_INVALID_SALESPERSON".