diff options
| author | ivan <ivan> | 2000-06-24 00:28:30 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2000-06-24 00:28:30 +0000 |
| commit | d2c5fa2eb293628ae281120322eb0e70d6a92a7d (patch) | |
| tree | c03196ffff4c4def2ae7d6fc310218ae534e748e | |
| parent | b4a403644cb80a612dd028882f971bdd20839275 (diff) | |
don't use Date::Manip; report correct program name in freeside-bill usage msg
| -rw-r--r-- | FS/FS/cust_main.pm | 7 | ||||
| -rwxr-xr-x | FS/bin/freeside-bill | 4 |
2 files changed, 6 insertions, 5 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 34d601d67..2a8a8b7ee 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -11,7 +11,7 @@ use Safe; use Carp; use Time::Local; use Date::Format; -use Date::Manip; +#use Date::Manip; use Mail::Internet; use Mail::Header; use Business::CreditCard; @@ -546,7 +546,8 @@ sub bill { warn "Error reval-ing part_pkg->recur pkgpart ", $part_pkg->pkgpart, ": $@"; } else { - #change this bit to use Date::Manip? + #change this bit to use Date::Manip? CAREFUL with timezones (see + # mailing list archive) #$sdate=$cust_pkg->bill || time; #$sdate=$cust_pkg->bill || $time; $sdate = $cust_pkg->bill || $cust_pkg->setup || $time; @@ -994,7 +995,7 @@ sub check_invoicing_list { =head1 VERSION -$Id: cust_main.pm,v 1.5 2000-06-15 12:38:09 ivan Exp $ +$Id: cust_main.pm,v 1.6 2000-06-24 00:28:30 ivan Exp $ =head1 BUGS diff --git a/FS/bin/freeside-bill b/FS/bin/freeside-bill index 680d29da5..42991c4f8 100755 --- a/FS/bin/freeside-bill +++ b/FS/bin/freeside-bill @@ -80,7 +80,7 @@ sub untaint_argv { } sub usage { - die "Usage:\n\n bill [ -c [ i ] ] [ -d 'date' ] [ -b ] user\n"; + die "Usage:\n\n freeside-bill [ -c [ i ] ] [ -d 'date' ] [ -b ] user\n"; } =head1 NAME @@ -114,7 +114,7 @@ customers. Otherwise, bills all customers. =head1 VERSION -$Id: freeside-bill,v 1.5 2000-06-22 10:52:37 ivan Exp $ +$Id: freeside-bill,v 1.6 2000-06-24 00:28:30 ivan Exp $ =head1 BUGS |