diff options
| author | jeff <jeff> | 2007-04-23 14:34:10 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-04-23 14:34:10 +0000 |
| commit | 1630fe1a8190feb6f0e7a1187333e01af9bea3f2 (patch) | |
| tree | 685311f71bfbbd03b2770cfe61fd02e62a4c4b8e /httemplate/edit | |
| parent | 5080562bde309a0501f003b1d6fa35d29f0885bd (diff) | |
quick hack to add extra 'config lines' to svc_www and otherwise enhance svc_www (backport)
Diffstat (limited to 'httemplate/edit')
| -rw-r--r-- | httemplate/edit/svc_www.cgi | 12 |
1 files changed, 11 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. |