35f8f65b41
with ModItem calls Signed-off-by: Chris Cormack <crc@liblime.com> Signed-off-by: Joshua Ferraro <jmf@liblime.com>
40 lines
1.1 KiB
Perl
Executable file
40 lines
1.1 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
#-----------------------------------
|
|
# Script Name: longoverdue.pl
|
|
# Script Version: 1.0.0
|
|
# Date: 2004/04/01
|
|
# Author: Stephen Hedges shedges@skemotah.com
|
|
# Description: set itemlost status to '2'
|
|
# ("long overdue") on items more than 90
|
|
# days overdue.
|
|
# Usage: longoverdue.pl.
|
|
# Revision History:
|
|
# 1.0.0 2004/04/01: original version
|
|
#-----------------------------------
|
|
|
|
use strict;
|
|
BEGIN {
|
|
# find Koha's Perl modules
|
|
# test carefully before changing this
|
|
use FindBin;
|
|
eval { require "$FindBin::Bin/../kohalib.pl" };
|
|
}
|
|
use C4::Context;
|
|
use C4::Items;
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
|
|
my $itemnos_sth=$dbh->prepare("SELECT items.itemnumber FROM issues,items WHERE items.itemnumber=issues.itemnumber AND DATE_SUB(CURDATE(),INTERVAL 90 DAY) > date_due AND returndate IS NULL AND (itemlost=0 OR itemlost IS NULL)");
|
|
|
|
# get itemnumbers of items more than 90 days overdue
|
|
$itemnos_sth->execute();
|
|
|
|
while (my $row=$itemnos_sth->fetchrow_arrayref) {
|
|
my $itemnumber=$row->[0];
|
|
|
|
ModItem({ itemlost => 2 }, undef, $itemnumber);
|
|
# print "$item\n";
|
|
}
|
|
|
|
$itemnos_sth->finish;
|
|
$dbh->disconnect;
|