diff options
Diffstat (limited to 'htdocs/browse/part_referral.cgi')
-rwxr-xr-x | htdocs/browse/part_referral.cgi | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/htdocs/browse/part_referral.cgi b/htdocs/browse/part_referral.cgi index 3357ec841..b08efdbbc 100755 --- a/htdocs/browse/part_referral.cgi +++ b/htdocs/browse/part_referral.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: part_referral.cgi,v 1.4 1998-12-17 04:32:55 ivan Exp $ +# $Id: part_referral.cgi,v 1.5 1998-12-17 05:25:20 ivan Exp $ # # ivan@sisd.com 98-feb-23 # @@ -10,7 +10,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: part_referral.cgi,v $ -# Revision 1.4 1998-12-17 04:32:55 ivan +# Revision 1.5 1998-12-17 05:25:20 ivan +# fix visual and other bugs +# +# Revision 1.4 1998/12/17 04:32:55 ivan # print $cgi->header # # Revision 1.3 1998/12/17 04:31:36 ivan @@ -26,31 +29,33 @@ use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup swapuid); use FS::Record qw(qsearch); use FS::CGI qw(header menubar popurl table); +use FS::part_referral; my $cgi = new CGI; &cgisuidsetup($cgi); +my $p = popurl(2); + print $cgi->header, header("Referral Listing", menubar( - 'Main Menu' => popurl(2), + 'Main Menu' => $p, # 'Add new referral' => "../edit/part_referral.cgi", -)), table, <<END; +)), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", table, <<END; <TR> <TH COLSPAN=2>Referral</TH> </TR> END my($part_referral); -my($p)=popurl(2); foreach $part_referral ( sort { $a->getfield('refnum') <=> $b->getfield('refnum') } qsearch('part_referral',{}) ) { my($hashref)=$part_referral->hashref; print <<END; <TR> - <TD><A HREF="$p/edit/part_referral.cgi?$hashref->{refnum}"> + <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}"> $hashref->{refnum}</A></TD> - <TD><A HREF="$p/edit/part_referral.cgi?$hashref->{refnum}"> + <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}"> $hashref->{referral}</A></TD> </TR> END @@ -59,7 +64,7 @@ END print <<END; <TR> - <TD COLSPAN=2><A HREF="$p/edit/part_referral.cgi"><I>Add new referral</I></A></TD> + <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add new referral</I></A></TD> </TR> </TABLE> </CENTER> |