Bug 2505 - Add commented use warnings where missing in the misc/ directory

[koha.git] / misc / cronjobs / notifyMailsOp.pl

diff --git a/misc/cronjobs/notifyMailsOp.pl b/misc/cronjobs/notifyMailsOp.pl
index 4b8c4a4..630b159 100755 (executable)
--- a/misc/cronjobs/notifyMailsOp.pl
+++ b/misc/cronjobs/notifyMailsOp.pl
@@ -1,9 +1,17 @@
+#!/usr/bin/perl
 use strict;
+#use warnings; FIXME - Bug 2505
+BEGIN {
+    # find Koha's Perl modules
+    # test carefully before changing this
+    use FindBin;
+    eval { require "$FindBin::Bin/../kohalib.pl" };
+}
 use C4::Context;
-use C4::Date;
+use C4::Dates qw/format_date/;
 use Mail::Sendmail;  # comment out if not doing e-mail notices
 use Getopt::Long;
-use C4::Circulation::Circ2;
+use C4::Circulation;
 # use C4::Members;
 #  this module will notify only the mail case
 # Now it's only programmed for ouest provence, you can modify it for yourself
@@ -41,8 +49,6 @@ sub GetBorrowerNotifys{
                        AND
                        (notifys.borrowernumber=issues.borrowernumber AND notifys.itemnumber=issues.itemnumber)
                        AND
-                       issues.returndate IS NULL
-                       AND
                        notifys.borrowernumber=?
                        AND notify_send_date IS NULL");
                        $sth2->execute($borrowernumber);
@@ -204,7 +210,7 @@ foreach my $num (@getnofifys) {
                                        
 # now deal with the debarred mode
 #              if ($debarred eq 1) {
-#              à ajouter : si le lecteur est en mode debarred, ajouter la fonction qui nous permettra cela
+#              �ajouter : si le lecteur est en mode debarred, ajouter la fonction qui nous permettra cela
 #              UpdateBorrowerDebarred($num->{'borrowernumber'});
 #              }
        close(OUT);