Fix delete date

root/sbin/e-smith/expire-accounts

@@ -71,10 +71,12 @@ foreach my $user ($a->users){
         month => $2,
         day   => $3,
       );
-      my $delete_date = $locked->add( days => $delete);
+      my $delete_date = $locked->add( days => $delete );
+      if ( $delete_date < $now ){
         print $user->key . ": Account must be deleted\n" if $debug;
         push @delete, $user->key;
       }
+    }
     next;
   }
   my $lock_date = $user->prop('ExpireLockOn') || 'never';