From: ivan <ivan>
Date: Mon, 21 Jun 2004 14:24:21 +0000 (+0000)
Subject: fix dup password checking on add'l package order
X-Git-Tag: BEFORE_FINAL_MASONIZE~1022
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=2772fa107c03791feee54c544e379f7431bef950;hp=91c530c9c397573559834d298ffd7c1d9f7ecb44

fix dup password checking on add'l package order
---

diff --git a/fs_selfservice/FS-SelfService/cgi/agent.cgi b/fs_selfservice/FS-SelfService/cgi/agent.cgi
index a219fe771..9b07ee16b 100644
--- a/fs_selfservice/FS-SelfService/cgi/agent.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/agent.cgi
@@ -208,14 +208,16 @@ sub view_customer {
 
 sub process_order_pkg {
 
+  my $results = '';
+
   if ( $cgi->param('_password') ne $cgi->param('_password2') ) {
     my $init_data = signup_info( 'session_id' => $session_id );
-    $error = $init_data->{msgcat}{passwords_dont_match}; #msgcat
+    $results = { error => $init_data->{msgcat}{passwords_dont_match} };
     $cgi->param('_password', '');
     $cgi->param('_password2', '');
   }
 
-  my $results = order_pkg (
+  $results ||= order_pkg (
     'agent_session_id' => $session_id,
     map { $_ => $cgi->param($_) }
         qw( custnum pkgpart username _password _password2 sec_phrase popnum )