$main::SQL="SELECT oid,* FROM timeclock WHERE end_stamp = NULL AND username = '$username'";
    common::sql::Do_SQL();
  
          @clocked_in = $common::sql::sth->fetchrow();
            #unless ($clocked_in[1] eq "$username"){
 

             if (@clocked_in == undef){
             clock_in_form($username, $date, $time);