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
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.
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 } )
;
sub cust_pay {
my $self = shift;
- sort { $a->_date <=> $b->date }
+ sort { $a->_date <=> $b->_date }
qsearch( 'cust_pay', { 'invnum' => $self->invnum } )
;
}
=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
#!/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
#
# 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
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);
#!/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
# 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
"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>',
;