add regular header/footer to svc_www view and edit

[freeside.git] / httemplate / edit / svc_www.cgi

diff --git a/httemplate/edit/svc_www.cgi b/httemplate/edit/svc_www.cgi
index 4b27752..56dd602 100644 (file)
--- a/httemplate/edit/svc_www.cgi
+++ b/httemplate/edit/svc_www.cgi
@@ -1,6 +1,6 @@
 %my $conf = new FS::Conf;
 %
-%my( $svcnum,  $pkgnum, $svcpart, $part_svc, $svc_www );
+%my( $svcnum,  $pkgnum, $svcpart, $part_svc, $svc_www, $config );
 %
 %if ( $cgi->param('error') ) {
 %
@@ -10,6 +10,7 @@
 %  $svcnum = $svc_www->svcnum;
 %  $pkgnum = $cgi->param('pkgnum');
 %  $svcpart = $cgi->param('svcpart');
+%  $config = $cgi->param('config');
 %  $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
 %  die "No part_svc entry!" unless $part_svc;
 %
@@ -42,6 +43,7 @@
 %
 %  $pkgnum=$cust_svc->pkgnum;
 %  $svcpart=$cust_svc->svcpart;
+%  $config=$cgi->escapeHTML($svc_www->config);
 %  
 %  $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
 %  die "No part_svc entry!" unless $part_svc;
@@ -154,8 +156,9 @@
 %
 %
 %my $p1 = popurl(1);
-%print header("Web Hosting $action", '');
-%
+
+<% include("/elements/header.html", "Web Hosting $action", '') %>
+
 %print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
 %      "</FONT>"
 %  if $cgi->param('error');
@@ -190,7 +193,7 @@
 %print "</SELECT></TD></TR>";
 %
 %if ( $part_svc->part_svc_column('usersvc')->columnflag ne 'F'
-%     || $part_svc->part_svc_column('usersvc')->columnvalue !~ /^\s*$/) {
+%     || $part_svc->part_svc_column('usersvc')->columnvalue =~ /^\s*$/) {
 %  print '<TR><TD ALIGN="right">Username</TD><TD><SELECT NAME="usersvc" SIZE=1>';
 %  print '<OPTION VALUE="">(none)';
 %  foreach $_ (keys %svc_acct) {
@@ -200,6 +203,14 @@
 %  print "</SELECT></TD></TR>";
 %}
 %
+%if ( $part_svc->part_svc_column('config')->columnflag ne 'F' &&
+%     $FS::CurrentUser::CurrentUser->access_right('Edit www config') ) {
+%  print '<TR><TD ALIGN="right">Config lines</TD><TD>';
+%  print qq!<TEXTAREA NAME="config" rows="15" cols="80">$config</TEXTAREA></TD></TR>!
+%}else{
+%  print qq!<INPUT TYPE="hidden" NAME="config" VALUE="$config">!;
+%}
+%
 %foreach my $field ($svc_www->virtual_fields) {
 %  if ( $part_svc->part_svc_column($field)->columnflag ne 'F' ) {
 %    # If the flag is X, it won't even show up in $svc_acct->virtual_fields.
@@ -210,11 +221,7 @@
 %
 %print '</TABLE><BR><INPUT TYPE="submit" VALUE="Submit">';
 %
-%print <<END;
-%
-%    </FORM>
-%  </BODY>
-%</HTML>
-%END
-%
 
+</FORM>
+
+<% include('/elements/footer.html') %>