stray closing /TABLE in the no-ticket case
[freeside.git] / FS / bin / freeside-pkg-date-midnight
index ad6ea59..dd322e2 100755 (executable)
@@ -5,7 +5,6 @@ use Getopt::Std;
 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)
@@ -26,11 +25,6 @@ while ( $row = $sth->fetchrow_hashref ) {
     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;