fix dup password checking on add'l package order

[freeside.git] / fs_selfservice / FS-SelfService / cgi / agent.cgi

diff --git a/fs_selfservice/FS-SelfService/cgi/agent.cgi b/fs_selfservice/FS-SelfService/cgi/agent.cgi
index 3508e82..9b07ee1 100644 (file)
--- a/fs_selfservice/FS-SelfService/cgi/agent.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/agent.cgi
@@ -208,7 +208,16 @@ sub view_customer {
 
 sub process_order_pkg {
 
 
 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 )
     'agent_session_id' => $session_id,
     map { $_ => $cgi->param($_) }
         qw( custnum pkgpart username _password _password2 sec_phrase popnum )