%
% $pkgnum=$cust_svc->pkgnum;
% $svcpart=$cust_svc->svcpart;
-% $config=$svc_www->config;
+% $config=$cgi->escapeHTML($svc_www->config);
%
% $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
% die "No part_svc entry!" unless $part_svc;
%
%
%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');
%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) {
%
%print '</TABLE><BR><INPUT TYPE="submit" VALUE="Submit">';
%
-%print <<END;
-%
-% </FORM>
-% </BODY>
-%</HTML>
-%END
-%
+</FORM>
+
+<% include('/elements/footer.html') %>