From 3a95cc316da367ffd248ba29ac594f3efbc9db61 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 3 Dec 2000 15:14:00 +0000
Subject: [PATCH 1/1] bugfixes from Jeff Finucane <jeff@cmh.net>, thanks!

---
 CREDITS                    | 6 +++++-
 FS/FS/cust_bill.pm         | 6 +++---
 bin/svc_acct_sm.import     | 9 ++++++---
 htdocs/view/svc_domain.cgi | 9 ++++++---
 4 files changed, 20 insertions(+), 10 deletions(-)

diff --git a/CREDITS b/CREDITS
index e97167761..79b95b370 100644
--- a/CREDITS
+++ b/CREDITS
@@ -53,7 +53,8 @@ autoconfiguration support for the signup server.
 
 Jeff Finucane <jeff@cmh.net> send in a bunch of bugfixes (for the sendmail
 export, cancel-unaudited.cgi), patches to support billing date modification,
-and probably other things too (sorry if I forgot them).
+and probably other things too (sorry if I forgot them).  And yet even more
+bug squashing, thanks!
 
 Kenny Elliott <kenny@neoserve.com> contributed ICRADIUS radreply table support,
 allowing attributes with ICRADIUS, helped fix many bugs, and some
@@ -62,5 +63,8 @@ other stuff I can't recall (sorry).
 Stephen Amadei <amadei@dandy.net> contribued portability cleanups for the
 low-level DBI stuff.
 
+Jason Spence <thalakan@frys.com> contributed admin.html, autocapnames
+javascript, bugfixes & other neat stuff I can't remember.
+
 Everything else is my (Ivan Kohler <ivan@420.am>) fault.
 
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 2df92f75f..568f272aa 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -225,7 +225,7 @@ credits (FS::cust_credit objects).
 sub cust_credit {
   my $self = shift;
   my $total = 0;
-  my @cust_credit = sort { $a->_date <=> $b->date }
+  my @cust_credit = sort { $a->_date <=> $b->_date }
     grep { $_->credited != 0 && $_->_date < $self->_date }
       qsearch('cust_credit', { 'custnum' => $self->custnum } )
   ;
@@ -241,7 +241,7 @@ Returns all payments (see L<FS::cust_pay>) for this invoice.
 
 sub cust_pay {
   my $self = shift;
-  sort { $a->_date <=> $b->date }
+  sort { $a->_date <=> $b->_date }
     qsearch( 'cust_pay', { 'invnum' => $self->invnum } )
   ;
 }
@@ -424,7 +424,7 @@ sub print_text {
 
 =head1 VERSION
 
-$Id: cust_bill.pm,v 1.3 2000-09-20 10:35:21 ivan Exp $
+$Id: cust_bill.pm,v 1.4 2000-12-03 15:14:00 ivan Exp $
 
 =head1 BUGS
 
diff --git a/bin/svc_acct_sm.import b/bin/svc_acct_sm.import
index 349c4f26c..0714af3f1 100755
--- a/bin/svc_acct_sm.import
+++ b/bin/svc_acct_sm.import
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: svc_acct_sm.import,v 1.7 2000-06-29 10:51:52 ivan Exp $
+# $Id: svc_acct_sm.import,v 1.8 2000-12-03 15:14:00 ivan Exp $
 #
 # ivan@sisd.com 98-mar-9
 #
@@ -16,7 +16,10 @@
 # ivan@sisd.com 98-jul-13
 #
 # $Log: svc_acct_sm.import,v $
-# Revision 1.7  2000-06-29 10:51:52  ivan
+# Revision 1.8  2000-12-03 15:14:00  ivan
+# bugfixes from Jeff Finucane <jeff@cmh.net>, thanks!
+#
+# Revision 1.7  2000/06/29 10:51:52  ivan
 # oops, silly mistake
 #
 # Revision 1.6  2000/06/29 10:48:25  ivan
@@ -252,7 +255,7 @@ END
   while (<VIRTUSERTABLE>) {
     next if /^#/; #comments?
     next if /^\s*$/; #blank lines
-    /^([\w\-\.]+)?\@([\w\-\.]+)\t([\w\-\.]+)$/
+    /^([\w\-\.]+)?\@([\w\-\.]+)\t+([\w\-\.]+)$/
       #or do { warn "Strange virtusertable line: $_"; next; };
       or die "Strange virtusertable line: $_";
     my($domuser,$domain,$username)=($1,$2,$3);
diff --git a/htdocs/view/svc_domain.cgi b/htdocs/view/svc_domain.cgi
index fef5ad4f3..85c854ee0 100755
--- a/htdocs/view/svc_domain.cgi
+++ b/htdocs/view/svc_domain.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: svc_domain.cgi,v 1.10 1999-08-27 22:18:44 ivan Exp $
+# $Id: svc_domain.cgi,v 1.11 2000-12-03 15:14:00 ivan Exp $
 #
 # Usage: svc_domain svcnum
 #        http://server.name/path/svc_domain.cgi?svcnum
@@ -13,7 +13,10 @@
 #       bmccane@maxbaud.net     98-apr-3
 #
 # $Log: svc_domain.cgi,v $
-# Revision 1.10  1999-08-27 22:18:44  ivan
+# Revision 1.11  2000-12-03 15:14:00  ivan
+# bugfixes from Jeff Finucane <jeff@cmh.net>, thanks!
+#
+# Revision 1.10  1999/08/27 22:18:44  ivan
 # point to patrick instead of internic!
 #
 # Revision 1.9  1999/04/08 12:00:19  ivan
@@ -94,6 +97,6 @@ print $cgi->header( '-expires' => 'now' ), header('Domain View', menubar(
       "Service #$svcnum",
       "<BR>Service: <B>", $part_svc->svc, "</B>",
       "<BR>Domain name: <B>$domain</B>.",
-      qq!<BR><BR><A HREF="http://209.133.38.12/step1.cgi?query=$domain">View whois information.</A>!,
+      qq!<BR><BR><A HREF="http://www.geektools.com/cgi-bin/proxy.cgi?query=$domain;targetnic=auto">View whois information.</A>!,
       '</BODY></HTML>',
 ;
-- 
2.11.0