RE: Can you someone help me please

[Crystal Gruetzmacher]

Is this your homework?

Crystal

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 20, 2001 4:19 AM
To: [EMAIL PROTECTED]
Subject: Can you someone help me please


Hi All,

I have been asked to transform this bit of PERL coding into plain english,
Can someone help me please.

Regards,
Elaine.



# Exit code for the ccount form
sub form_ccount_exit
     {
     if ( $_[0] == 0 )   # exit_RE detected
          {
          if ( $user_input eq $bn_done )
               {
               $next_form = ".." if ( $warehouse eq "" );
               &clear_fields($formname);
               }
          elsif ( $user_input eq $bn_main ||
               $user_input eq $bn_esc )
               {
               &clear_fields($formname);
               $next_form = "..";
               }
          elsif ( $user_input eq $bn_logout )
               {
               &reset_to_logout_form;
               }
          }
     else
          {
          &display_status("Processing...");
          #$err_no = &ilc_cycle_counting($order,$warehouse,$location,
          #    $item,undef,$lot,$stg_unit,$qty,undef);

          #Get FIFO/LIFO Date from Cycle Count Table
          #&get_ccorder_item_date($item,$location,$order,$warehouse,$lot);
          $err_no = &ilc_cycle_counting($order,$warehouse,$location,
               $item,undef,$lot,$cdate,$stg_unit,$qty,undef);
          &display_return_msg($err_no);
          }
     }