Re: Adding a pop up confirmation box

You need more subroutines, once you add more subroutines, adding a confirmation step gets lots easier (its just another function)

See these mostly non running examples Re^5: I need help with displaying newline or paragraph using perl on my website (pass arguments more subs) (esp part a part 5)
Re^9: FormBuilder fails in "Multi screen mode"
Re: reg access of stored session variable
Re^3: Trying to get an RSS to display
Re^5: Cookie and Session

Especially see notes about reading CGI docs/examples and never using that # Read information from the form stuff, thats what CGI modules does for you (CGI reads form data for you)

Then your program basically comes down to

Main( @ARGV );
exit( 0 );
sub Main {
    my $q = CGI->new; ## read form data
    print fancyDatabaseStuff( $q );
}
sub fancyDatabaseStuff {
    my( $q ) = @_;
    my $action = $q->param('action');
    if( !defined $action or !length $action ){
        return ShowEmployees( $q );
    }
    elsif( $action eq 'confirmDelete' ){
        return ConfirmDeleteEmployees( $q );
    }
    elsif( $action eq 'delete' ){
        return DeleteEmployees( $q );
    }
    else {
        return UnrecognizedAction( $q );
    }
}

sub UnrecognizedAction {
    my( $q ) = @_;
    my $header = $q->header;
    return qq{$header
<!DOCTYPE html>
<html>
<title>Ooops</title>
<p>Ooops, don't know what to do, I didn't understand that
};
}
[download]

Comment on Re: Adding a pop up confirmation box Download Code