diff options
author | jeff <jeff> | 2007-04-01 02:45:28 +0000 |
---|---|---|
committer | jeff <jeff> | 2007-04-01 02:45:28 +0000 |
commit | 8a507f43bfa5c5232b5babfbbf82ac5de5702add (patch) | |
tree | dd11d74323ec8c510ce21ea4a477bdd15fc9f628 /httemplate/edit | |
parent | b4060ee8879f433c3cdd4a2b6bef55f136863a5f (diff) |
quick hack to add extra 'config lines' to svc_www and otherwise enhance svc_www
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. |