> Hi All,
>
> I have been asked to transform this bit of PERL coding into plain
english,
> Can someone help me please.
>
> Regards,
> Elaine.
Before anyone attempts an answer, are you a programmer?
Do you know what, say, parameters are?
> # 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);
> }
> }
>
>
>
>
>
