sub process_order_pkg {
- my $results = order_pkg (
+ my $results = '';
+
+ if ( $cgi->param('_password') ne $cgi->param('_password2') ) {
+ my $init_data = signup_info( 'session_id' => $session_id );
+ $results = { error => $init_data->{msgcat}{passwords_dont_match} };
+ $cgi->param('_password', '');
+ $cgi->param('_password2', '');
+ }
+
+ $results ||= order_pkg (
'agent_session_id' => $session_id,
map { $_ => $cgi->param($_) }
qw( custnum pkgpart username _password _password2 sec_phrase popnum )