From 8542e06b25e81c1f5a0481a2d6a3e80cde3a6391 Mon Sep 17 00:00:00 2001
From: Paul POULAIN <paul@koha-fr.org>
Date: Wed, 8 Aug 2007 14:06:15 +0200
Subject: [PATCH] reservelist.pl is now in Koha itself, in
 circ/transfertodo.pl, removing the old script

Signed-off-by: Chris Cormack <crc@liblime.com>
---
 misc/cronjobs/reservelist.pl | 85 ------------------------------------
 1 file changed, 85 deletions(-)
 delete mode 100755 misc/cronjobs/reservelist.pl

diff --git a/misc/cronjobs/reservelist.pl b/misc/cronjobs/reservelist.pl
deleted file mode 100755
index dc7374c208..0000000000
--- a/misc/cronjobs/reservelist.pl
+++ /dev/null
@@ -1,85 +0,0 @@
-#!/usr/bin/perl 
-#-----------------------------------
-# Script Name: reservelist.pl
-# Script Version: 1.0
-# Date:  2003/9/18
-# Author:  Stephen Hedges  shedges@skemotah.com
-# Description: produces a comma separated list of currently
-#    available reserves, with item and borrower details
-# Usage: reservelist.pl.
-# Revision History:
-#    1.0  2003/9/18:  original version
-#    1.1  2003/10/1:  modified to load into a MySQL table
-#-----------------------------------
-
-use lib '/usr/local/koha/intranet/modules/';
-
-use strict;
-use C4::Context;
-use C4::Biblio;
-
-my ($biblionumber,$barcode,$holdingbranch,$pickbranch,$notes,$cardnumber,$lastname,$firstname,$phone,$title,$callno,$rdate,$borrno);
-
-my $dbh   = C4::Context->dbh;
-
-$dbh->do("DELETE FROM reservelist");  # clear the old table for new info
-
-my $sth=$dbh->prepare("SELECT biblionumber,reserves.branchcode,reservenotes,borrowers.borrowernumber,cardnumber,surname,firstname,phone,reservedate FROM reserves,borrowers WHERE reserves.borrowernumber=borrowers.borrowernumber AND priority=1 AND cancellationdate IS NULL GROUP BY biblionumber");
-
-my $sth_load=$dbh->prepare("INSERT INTO reservelist (biblionumber,barcode,lastname,firstname,phone,borrowernumber,cardnumber,reservedate,title,callno,holdingbranch,pickbranch,notes) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)");
-
-$sth->execute();      # get the list of biblionumbers for unfilled reserves
-
-GETIT: while (my $data=$sth->fetchrow_hashref){
-    $biblionumber = $data->{'biblionumber'};   # get the basic reserve info
-    $pickbranch = $data->{'branchcode'};
-    $notes = $data->{'reservenotes'};
-    $borrno = $data->{'borrowernumber'};
-    $cardnumber = $data->{'cardnumber'};
-    $lastname = $data->{'surname'};
-    $firstname = $data->{'firstname'};
-    $phone = $data->{'phone'};
-    $rdate = $data->{'reservedate'};
-    my @items = GetItemsInfo($biblionumber,''); # get the items for this biblio
-    my @itemorder;   #  prepare a new array to hold re-ordered items
-
-# The following lines take the retrieved items and run them through various
-# tests to decide if they are to be used and then put them in the preferred
-# 'pick' order.
-    foreach my $itm (@items) {
-    if ($itm->{"datedue"} eq "Reserved") {   # is item ready for member?
-        if ($itm->{'holdingbranch'} eq $pickbranch) {
-        $itemorder[0]=$itm;
-        } elsif ($itm->{'homebranch'} eq 'NPL') {
-        $itemorder[1]=$itm;
-        } elsif ($itm->{'homebranch'} eq 'CPL') {
-        $itemorder[2]=$itm;
-        } elsif ($itm->{'homebranch'} eq 'COV') {
-        $itemorder[3]=$itm;
-        } elsif ($itm->{'homebranch'} eq 'GPL') {
-        $itemorder[4]=$itm;
-        } elsif ($itm->{'homebranch'} eq 'ALB') {
-        $itemorder[5]=$itm;
-        } elsif ($itm->{'homebranch'} eq 'PPL') {
-        $itemorder[6]=$itm;
-        } elsif ($itm->{'homebranch'} eq 'APL') {
-        $itemorder[7]=$itm;
-        }
-    }
-    }
-    my $count = @itemorder;
-    next GETIT if $count<1;  # if the re-ordered array is empty, skip to next
-    PREP: foreach my $itmlist (@itemorder) {
-    if ($itmlist) {
-        $barcode = $itmlist->{'barcode'};
-        $holdingbranch = $itmlist->{'holdingbranch'};
-        $title = $itmlist->{'title'};
-        $callno = $itmlist->{'classification'};
-        last PREP;    # we only want the first def item in the array
-    }
-    }
-    $sth_load->execute($biblionumber,$barcode,$lastname,$firstname,$phone,$borrno,$cardnumber,$rdate,$title,$callno,$holdingbranch,$pickbranch,$notes);
-    $sth_load->finish;
-}
-$sth->finish;
-$dbh->disconnect;
-- 
2.39.5