sub validate { my ($valid,$client,$mw,$dbh,$button,$browse) = @_; if(!$$client) { errorDisplay($mw,"You must select a client!"); } else { my $isValid = 0; foreach(@{$valid}) { if($_ eq $$client) { $isValid = 1; last; } } errorDisplay($mw,"Invalid Selection. Please use the drop-down!") if !$isValid ; if($isValid) { $button->packForget(); $browse->packForget(); #gui start ... coming up... guiStart($client,$dbh,$mw); } } return; }