From ce775cce9c68f4c96f481643d22ba76fb8af2c5c Mon Sep 17 00:00:00 2001
From: joshferraro <joshferraro>
Date: Wed, 4 May 2005 13:58:35 +0000
Subject: [PATCH] Fixes priority of reserves it also e-mails a list of
 'problem' reserves to me at the library

---
 misc/cronjobs/reservefix.pl | 102 ++++++++++++++++++++++++++++++++++++
 1 file changed, 102 insertions(+)
 create mode 100755 misc/cronjobs/reservefix.pl

diff --git a/misc/cronjobs/reservefix.pl b/misc/cronjobs/reservefix.pl
new file mode 100755
index 0000000000..61b9956a26
--- /dev/null
+++ b/misc/cronjobs/reservefix.pl
@@ -0,0 +1,102 @@
+#!/usr/bin/perl -w
+#-----------------------------------
+# Script Name: reservefix.pl
+# Script Version: 1.0.0
+# Date:  2004/02/22
+# Author:  Stephen Hedges  shedges@skemotah.com
+# Description: fixes priority of reserves
+#    It also e-mails a list of 'problem' reserves
+#    to me at the library
+# Usage: reservefix.pl.
+# Revision History:
+#    1.0.0  2004/02/22:  original version
+#-----------------------------------
+
+use lib '/usr/local/koha/intranet/modules/';
+
+use strict;
+use C4::Context;
+use Date::Manip;
+use Mail::Sendmail;
+
+my $dbh   = C4::Context->dbh;
+my $message;   # e-mail message
+my $admin = "root@localhost"; #To
+my @library = "root@localhost"; #From
+#    get biblionumbers of unfilled reserves
+my $bibnos_sth=$dbh->prepare("SELECT DISTINCT biblionumber FROM reserves WHERE cancellationdate IS NULL AND found IS NULL AND priority>0");
+my $get_sth=$dbh->prepare("SELECT * FROM reserves WHERE biblionumber=? AND cancellationdate IS NULL AND found IS NULL ORDER BY reservedate,priority");
+#    checking reservedate avoids overwriting legitimate duplicate reserves
+my $put_sth=$dbh->prepare("UPDATE reserves SET priority=? WHERE biblionumber=? AND borrowernumber=? AND reservedate=?");
+my $count_sth=$dbh->prepare("SELECT COUNT(itemnumber) FROM items WHERE biblionumber=?");
+my $dvd_sth=$dbh->prepare("SELECT itemtype FROM biblioitems WHERE biblionumber=?");
+
+$bibnos_sth->execute();
+
+while (my $number=$bibnos_sth->fetchrow_arrayref) {
+    my $bibliono=$number->[0];
+
+    $get_sth->execute($bibliono);
+
+    my $priority=0;
+    while (my $data=$get_sth->fetchrow_hashref){
+	$priority++;
+	my $bibno = $data->{'biblionumber'};
+	my $borrno = $data->{'borrowernumber'};
+	my $resdate = $data->{'reservedate'};
+	if ($priority==1) {
+	    my $date1 = DateCalc("today","- 60 days"); # calculate date 60 days ago
+	    my $date2 = ParseDate($resdate);
+	    my $flag = Date_Cmp($date2,$date1);
+	    if ($flag<0) {      # date1 is later
+		$dvd_sth->execute($bibno);
+		while (my $itemtype=$dvd_sth->fetchrow_arrayref) {
+		    my $it = $itemtype->[0];
+		    if ($it) {
+			if ($it ne 'DVD') {
+			    $message .= "Check $bibno\n";
+#			    print "Check $bibno\n";
+			}
+		    } else {
+			$message .= "$bibno has no itemtype\n";
+#			print "$bibno has no itemtype\n";
+		    }
+		}
+		$dvd_sth->finish;
+	    }
+	}
+	$put_sth->execute($priority,$bibno,$borrno,$resdate);
+	$put_sth->finish;
+    }
+
+    $count_sth->execute($bibliono);         # get item count
+    my $itemcount=$count_sth->fetchrow;
+    if (($priority/4)>$itemcount) {      # no more than 4 reserves per item
+	$dvd_sth->execute($bibliono);
+	while (my $itemtype=$dvd_sth->fetchrow_arrayref) {
+	    my $it = $itemtype->[0];
+	    if ($it) {
+		if ($it ne 'DVD') {
+		    $message .= "Check $bibliono\n";
+#		    print "Check $bibliono\n";
+		}
+	    } else {
+		$message .= "$bibliono has no itemtype\n"
+#		print "$bibliono has no itemtype\n";
+	    }
+	}
+	$dvd_sth->finish;
+    }
+    $count_sth->finish;
+    $get_sth->finish;
+}
+$bibnos_sth->finish;
+$dbh->disconnect;
+
+my %mail = ( To      => '$admin',
+             From    => '$library',
+             Subject => 'Reserve problems',
+             Message => $message,
+ 	    );
+sendmail(%mail);
+
-- 
2.39.5