diff options
Diffstat (limited to 'httemplate')
-rw-r--r-- | httemplate/edit/svc_www.cgi | 12 | ||||
-rw-r--r-- | httemplate/view/svc_www.cgi | 2 |
2 files changed, 13 insertions, 1 deletions
diff --git a/httemplate/edit/svc_www.cgi b/httemplate/edit/svc_www.cgi index 4b27752ff..a9f97ff85 100644 --- 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=$svc_www->config; % % $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart}); % die "No part_svc entry!" unless $part_svc; @@ -200,6 +202,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. diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index 0579a55b4..c503d1829 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -73,6 +73,8 @@ % % print '</TD></TR>'; %} + <% qq!<TR><TD ALIGN="right">Config lines</TD>! %> + <% qq!<TD BGCOLOR="#ffffff"><pre>!.$cgi->escapeHTML(join("\n",$svc_www->config))."</pre></TD></TR>" %> % %foreach (sort { $a cmp $b } $svc_www->virtual_fields) { % print $svc_www->pvf($_)->widget('HTML', 'view', $svc_www->getfield($_)), |