} # End of checking required fields

                #addition of password check for registered users
                #we use name and password as check, first take case sensitivity
                #out of the name to elimanate that as a can not get the page to
                #accept my order.
  $form_input_name = "$form_data{'01-name'}";
  $form_input_name =~ tr/A-Z/a-z/;

                 #$use_password_file and $password_file added to setup file
                 #registration from a separate form stores a user name and password
                 #in a simple flat file bar delineated, the full info file for billing
                 #is kept seperate

  if ($use_password_file eq "yes"){
  print "<HR>\n";
  &get_file_lock ($password_file.lck);
      open(PLAYERS, "<$password_file") or die "CAN'T FIND $password_file";

      while($ck_registration = <PLAYERS>) {
        ($reg_id,$reg_passwrd) = split(/\|/,$ck_registration);
        chomp$reg_passwrd;
 $low_case_reg_id = "$reg_id";
 $low_case_reg_id =~ tr/A-Z/a-z/;
        if ("$form_input_name" eq "$low_case_reg_id"){
          $coded_password = "$form_data{'02-password'}";
          $coded_password =~ tr/A-Z/a-z/;
          $coded_password = crypt ($coded_password,10);
   if ($coded_password ne $reg_passwrd){
     close (PLAYERS);
     $ck_password = "ng";
            print "<H2>Sorry $reg_id the Password you entered did not match.</H2>\n";
            $required_fields_filled_in = "no";
     }
   if ($coded_password eq $reg_passwrd){
     close (PLAYERS);
     $form_data{'02-password'} = $coded_password;
     $ck_password = "ok";
            print "<H2>Thank you, $reg_id, for placing your order.<H2>\n";
     }
          }
        }
      close (PLAYERS);
      if ($ck_password eq ""){
        print "<H2>Sorry there was no record of a Registration for $form_data{'01-name'}.</H2>\n";
        $required_fields_filled_in = "no";
        }
  &release_file_lock ($password_file.lck);
  } # end of password check

print "<HR>\n";

                # Since the required fields were
                # filled in correctly, we process
                # the rest of the order