projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix qualification link fallout from popup changes ... don't think anyone is using...
[freeside.git]
/
FS
/
bin
/
freeside-pkg-date-midnight
diff --git
a/FS/bin/freeside-pkg-date-midnight
b/FS/bin/freeside-pkg-date-midnight
index
ad6ea59
..
dd322e2
100755
(executable)
--- a/
FS/bin/freeside-pkg-date-midnight
+++ b/
FS/bin/freeside-pkg-date-midnight
@@
-5,7
+5,6
@@
use Getopt::Std;
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearch qsearchs dbh);
use Data::Dumper;
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearch qsearchs dbh);
use Data::Dumper;
-use Date::Manip::Date;
use POSIX;
&untaint_argv; #what it sounds like (eww)
use POSIX;
&untaint_argv; #what it sounds like (eww)
@@
-26,11
+25,6
@@
while ( $row = $sth->fetchrow_hashref ) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($bill);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($bill);
- my $date = new Date::Manip::Date;
- my $err = $date->parse($bill);
-
- my $datefixed = $date->calc(?,1);
-
if ( $hour != 0 || $min != 0 || $sec != 0 ) {
$hour = 0;
$min = 0;
if ( $hour != 0 || $min != 0 || $sec != 0 ) {
$hour = 0;
$min = 0;