properly pass init_popstate to error pages
authorivan <ivan>
Fri, 4 Jul 2003 03:21:42 +0000 (03:21 +0000)
committerivan <ivan>
Fri, 4 Jul 2003 03:21:42 +0000 (03:21 +0000)
fs_signup/FS-SignupClient/cgi/signup.cgi

index 28b739e..57b93d4 100755 (executable)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
 #!/usr/bin/perl -Tw
 #
-# $Id: signup.cgi,v 1.42 2003-07-04 03:12:21 ivan Exp $
+# $Id: signup.cgi,v 1.43 2003-07-04 03:21:42 ivan Exp $
 
 use strict;
 use vars qw( @payby $cgi $locales $packages
 
 use strict;
 use vars qw( @payby $cgi $locales $packages
@@ -405,7 +405,8 @@ sub popselector {
 END
 
   if ( $init_popstate ) {
 END
 
   if ( $init_popstate ) {
-    $text .='<INPUT TYPE="hidden" NAME="init_popstate" VALUE="$init_popstate">';
+    $text .= '<INPUT TYPE="hidden" NAME="init_popstate" VALUE="'.
+             $init_popstate. '">';
   } else {
     $text .= <<END;
       function acstate_changed(what) {
   } else {
     $text .= <<END;
       function acstate_changed(what) {