From 409500a3f174609ba083290a765b9c2620096951 Mon Sep 17 00:00:00 2001 From: tipaul Date: Tue, 17 Jan 2006 16:21:49 +0000 Subject: [PATCH] removing unused script --- bookcount.pl | 186 --------------------------------------------------- 1 file changed, 186 deletions(-) delete mode 100755 bookcount.pl diff --git a/bookcount.pl b/bookcount.pl deleted file mode 100755 index 0fab4f78a9..0000000000 --- a/bookcount.pl +++ /dev/null @@ -1,186 +0,0 @@ -#!/usr/bin/perl - -# $Id$ - -#written 7/3/2002 by Finlay -#script to display reports - - -# Copyright 2000-2002 Katipo Communications -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - -use strict; -use CGI; -use C4::Context; -use C4::Search; -use C4::Circulation::Circ2; -use C4::Output; -use C4::Koha; -use C4::Auth; -use HTML::Template; -use C4::Date; - -# get all the data .... -my %env; -my $main='#cccc99'; -my $secondary='#ffffcc'; - -my $input = new CGI; -my $itm = $input->param('itm'); -my $bi = $input->param('bi'); -my $bib = $input->param('bib'); -my $branches = getbranches(\%env); - -my $idata = itemdatanum($itm); -my $data = bibitemdata($bi); - -my $homebranch = $branches->{$idata->{'homebranch'}}->{'branchname'}; -my $holdingbranch = $branches->{$idata->{'holdingbranch'}}->{'branchname'}; - -my ($lastmove, $message) = lastmove($itm); - -my $lastdate; -my $count; -if (not $lastmove) { - $lastdate = $message; - $count = issuessince($itm , 0); -} else { - $lastdate = $lastmove->{'datearrived'}; - $count = issuessince($itm ,$lastdate); -} - -# make the page ... - -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "bookcount.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {borrowers => 1}, - debug => 1, - }); - - - -my @branchloop; - -foreach my $branchcode (keys %$branches) { - my %linebranch; - $linebranch{issues} = issuesat($itm, $branchcode); - my $date = lastseenat($itm, $branchcode); - $linebranch{seen} = slashdate($date); - $linebranch{branchname}=$branches->{$branchcode}->{'branchname'}; - push(@branchloop,\%linebranch); -} - -$template->param( bib => $bib, - title => $data->{'title'}, - author => $data->{'author'}, - barcode => $idata->{'barcode'}, - homebranch =>$homebranch, - holdingbranch => $holdingbranch, - lastdate => format_date($lastdate), - count => $count, - branchloop => \@branchloop); - -print "Content-Type: text/html\n\n", $template->output; - -############################################## -# This stuff should probably go into C4::Search -# database includes -use DBI; - -sub itemdatanum { - my ($itemnumber)=@_; - my $dbh = C4::Context->dbh; - my $sth=$dbh->prepare("select * from items where itemnumber=?"); - $sth->execute($itemnumber); - my $data=$sth->fetchrow_hashref; - $sth->finish; - return($data); -} - -sub lastmove { - my ($itemnumber)=@_; - my $dbh = C4::Context->dbh; - my $sth =$dbh->prepare("select max(branchtransfers.datearrived) from branchtransfers where branchtransfers.itemnumber=?"); - $sth->execute($itemnumber); - my ($date) = $sth->fetchrow_array; - return(0, "Item has no branch transfers record") if not $date; - $sth=$dbh->prepare("Select * from branchtransfers where branchtransfers.itemnumber=? and branchtransfers.datearrived=?"); - $sth->execute($itemnumber,$date); - my ($data) = $sth->fetchrow_hashref; - return(0, "Item has no branch transfers record") if not $data; - $sth->finish; - return($data,""); - } - -sub issuessince { - my ($itemnumber, $date)=@_; - my $dbh = C4::Context->dbh; - my $sth=$dbh->prepare("Select count(*) from issues where issues.itemnumber=? and issues.timestamp > ?"); - $sth->execute($itemnumber,$date); - my $count=$sth->fetchrow_hashref; - $sth->finish; - return($count->{'count(*)'}); -} - -sub issuesat { - my ($itemnumber, $brcd)=@_; - my $dbh = C4::Context->dbh; - my $sth=$dbh->prepare("Select count(*) from issues where itemnumber=? and branchcode = ?"); - $sth->execute($itemnumber,$brcd); - my ($count)=$sth->fetchrow_array; - $sth->finish; - return($count); -} - -sub lastseenat { - my ($itm, $brc)=@_; - my $dbh = C4::Context->dbh; - my $sth=$dbh->prepare("Select max(timestamp) from issues where itemnumber=? and branchcode = ?"); - $sth->execute($itm,$brc); - my ($date1)=$sth->fetchrow_array; - $sth->finish; - $sth=$dbh->prepare("Select max(datearrived) from branchtransfers where itemnumber=? and tobranch = ?"); - $sth->execute($itm,$brc); - my ($date2)=$sth->fetchrow_array; - $sth->finish; - #FIXME: MJR thinks unsafe - $date2 =~ s/-//g; - $date2 =~ s/://g; - $date2 =~ s/ //g; - my $date; - if ($date1 < $date2) { - $date = $date2; - } else { - $date = $date1; - } - return($date); -} - - -##################################################### -# write date.... -sub slashdate { - my ($date) = @_; - if (not $date) { - return "never"; - } - my ($yr, $mo, $da, $hr, $mi) = (substr($date, 0, 4), substr($date, 4, 2), substr($date, 6, 2), substr($date, 8, 2), substr($date, 10, 2)); - return "$hr:$mi " . format_date("$yr-$mo-$da"); -} -- 2.39.5