diff options
author | ivan <ivan> | 1998-11-21 06:43:26 +0000 |
---|---|---|
committer | ivan <ivan> | 1998-11-21 06:43:26 +0000 |
commit | 78a74fecb785f7976a8a00fc38500d05c69c66a3 (patch) | |
tree | 5c792c9c1fda53c826d2c86ea79c4d17eb5a7909 /htdocs | |
parent | 2dacf920a13436813b6f7e51c2ba2ef465b8a4ba (diff) |
visual
Diffstat (limited to 'htdocs')
-rwxr-xr-x | htdocs/edit/part_svc.cgi | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/htdocs/edit/part_svc.cgi b/htdocs/edit/part_svc.cgi index e1897b2e6..6f0a322b5 100755 --- a/htdocs/edit/part_svc.cgi +++ b/htdocs/edit/part_svc.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: part_svc.cgi,v 1.2 1998-11-21 03:16:40 ivan Exp $ +# $Id: part_svc.cgi,v 1.3 1998-11-21 06:43:26 ivan Exp $ # # ivan@sisd.com 97-nov-14 # @@ -10,7 +10,7 @@ # use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12 # # $Log: part_svc.cgi,v $ -# Revision 1.2 1998-11-21 03:16:40 ivan +# Revision 1.3 1998-11-21 06:43:26 ivan # visual # @@ -40,8 +40,8 @@ my($hashref)=$part_svc->hashref; my $p = popurl(2); print $cgi->header, header("$action Service Definition", menubar( 'Main Menu' => $p, - 'View all services' => '$p/browse/part_svc.cgi', -)), '<FORM ACTION="', popurl(1), 'process/part_svc.cgi" METHOD=POST>'; + 'View all services' => "$p/browse/part_svc.cgi", +)), '<FORM ACTION="', popurl(1), '/process/part_svc.cgi" METHOD=POST>'; print qq!<INPUT TYPE="hidden" NAME="svcpart" VALUE="$hashref->{svcpart}">!, "Service Part #", $hashref->{svcpart} ? $hashref->{svcpart} : "(NEW)"; @@ -85,7 +85,7 @@ my(%defs)=( 'dir' => 'Home directory', 'uid' => 'UID (set to fixed and blank for dial-only)', 'slipip' => 'IP address', - 'popnum' => '<A HREF="$p/browse/svc_acct_pop.cgi/">POP number</A>', + 'popnum' => qq!<A HREF="$p/browse/svc_acct_pop.cgi/">POP number</A>!, 'username' => 'Username', 'quota' => '(unimplemented)', '_password' => 'Password', |