diff options
| author | ivan <ivan> | 1998-12-17 05:25:22 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-12-17 05:25:22 +0000 |
| commit | 19a2ec12e14b0fba549e6b31a1fd92eedcc5c350 (patch) | |
| tree | 40d19aff4c1d3565fdcf06d532356796b942fba0 /htdocs/browse/part_pkg.cgi | |
| parent | d1407e95ff695055c3609eeee7599b32f3b54c54 (diff) | |
fix visual and other bugs
Diffstat (limited to 'htdocs/browse/part_pkg.cgi')
| -rwxr-xr-x | htdocs/browse/part_pkg.cgi | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/htdocs/browse/part_pkg.cgi b/htdocs/browse/part_pkg.cgi index 1a7b2cb48..5d4aaa11f 100755 --- a/htdocs/browse/part_pkg.cgi +++ b/htdocs/browse/part_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: part_pkg.cgi,v 1.3 1998-11-21 07:23:45 ivan Exp $ +# $Id: part_pkg.cgi,v 1.4 1998-12-17 05:25:19 ivan Exp $ # # ivan@sisd.com 97-dec-5,9 # @@ -10,7 +10,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: part_pkg.cgi,v $ -# Revision 1.3 1998-11-21 07:23:45 ivan +# Revision 1.4 1998-12-17 05:25:19 ivan +# fix visual and other bugs +# +# Revision 1.3 1998/11/21 07:23:45 ivan # visual # # Revision 1.2 1998/11/21 07:00:32 ivan @@ -31,8 +34,10 @@ my($cgi) = new CGI; &cgisuidsetup($cgi); +my $p = popurl(2); + print $cgi->header, header("Package Part Listing",menubar( - 'Main Menu' => popurl(2), + 'Main Menu' => $p, )), "One or more services are grouped together into a package and given", " pricing information. Customers purchase packages, not services.<BR><BR>", table, <<END; @@ -49,7 +54,6 @@ print $cgi->header, header("Package Part Listing",menubar( END my($part_pkg); -my($p)=popurl(2); foreach $part_pkg ( sort { $a->getfield('pkgpart') <=> $b->getfield('pkgpart') } qsearch('part_pkg',{}) ) { @@ -59,10 +63,10 @@ foreach $part_pkg ( sort { my($rowspan)=scalar(@pkg_svc); print <<END; <TR> - <TD ROWSPAN=$rowspan><A HREF="$p/edit/part_pkg.cgi?$hashref->{pkgpart}"> + <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_pkg.cgi?$hashref->{pkgpart}"> $hashref->{pkgpart} </A></TD> - <TD ROWSPAN=$rowspan><A HREF="$p/edit/part_pkg.cgi?$hashref->{pkgpart}">$hashref->{pkg}</A></TD> + <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_pkg.cgi?$hashref->{pkgpart}">$hashref->{pkg}</A></TD> <TD ROWSPAN=$rowspan>$hashref->{comment}</TD> <TD ROWSPAN=$rowspan>$hashref->{setup}</TD> <TD ROWSPAN=$rowspan>$hashref->{freq}</TD> @@ -74,7 +78,7 @@ END foreach $pkg_svc ( @pkg_svc ) { my($svcpart)=$pkg_svc->getfield('svcpart'); my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart }); - print $n,qq!<TD><A HREF="$p/edit/part_svc.cgi?$svcpart">!, + print $n,qq!<TD><A HREF="${p}edit/part_svc.cgi?$svcpart">!, $part_svc->getfield('svc'),"</A></TD><TD>", $pkg_svc->getfield('quantity'),"</TD></TR>\n"; $n="<TR>"; @@ -84,7 +88,7 @@ END } print <<END; - <TR><TD COLSPAN=2><I><A HREF="$p/edit/part_pkg.cgi">Add new package</A></I></TD></TR> + <TR><TD COLSPAN=2><I><A HREF="${p}edit/part_pkg.cgi">Add new package</A></I></TD></TR> </TABLE> </BODY> </HTML> |