freeside/fs_selfservice/FS-SelfService/cgi agent.cgi,1.2,1.3

[ivan]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi
In directory pouncequick:/tmp/cvs-serv27421

Modified Files:
	agent.cgi 
Log Message:
fix dup password checking on add'l package order

Index: agent.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/agent.cgi,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- agent.cgi	21 Jun 2004 10:58:50 -0000	1.2
+++ agent.cgi	21 Jun 2004 14:24:21 -0000	1.3
@@ -208,14 +208,16 @@
 
 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 )