security phrase bug fixes

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 8d22c21..8e25f6a 100644 (file)
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -170,6 +170,8 @@ FS::svc_Common.  The following fields are currently supported:
 
 =item _password - generated if blank
 
+=item sec_phrase - security phrase
+
 =item popnum - Point of presence (see L<FS::svc_acct_pop>)
 
 =item uid

diff --git a/httemplate/edit/svc_acct.cgi b/httemplate/edit/svc_acct.cgi
index 540d04c..eca0a31 100755 (executable)
--- a/httemplate/edit/svc_acct.cgi
+++ b/httemplate/edit/svc_acct.cgi
@@ -122,6 +122,7 @@ print &ntable("#cccccc",2), <<END;
 </TR>
 END
 
+my $sec_phrase = $svc_acct->sec_phrase;
 if ( $conf->exists('security_phrase') ) {
   print <<END;
   <TR><TD ALIGN="right">Security phrase</TD>
@@ -129,6 +130,8 @@ if ( $conf->exists('security_phrase') ) {
     (for forgotten passwords)</TD>
   </TD>
 END
+} else {
+  print qq!<INPUT TYPE="hidden" NAME="sec_phrase" VALUE="$sec_phrase">!;
 }
 
 #domain

diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi
index 496dab3..fd2a325 100755 (executable)
--- a/httemplate/view/svc_acct.cgi
+++ b/httemplate/view/svc_acct.cgi
@@ -82,7 +82,7 @@ $password = '';
 if ( $conf->exists('security_phrase') ) {
   my $sec_phrase = $svc_acct->sec_phrase;
   print '<TR><TD ALIGN="right">Security phrase</TD><TD BGCOLOR="#ffffff">'.
-        $svc_acct->sec_phrase. '</TD></TR>;
+        $svc_acct->sec_phrase. '</TD></TR>';
 }
 
 my $svc_acct_pop = qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum});