[Koha-cvs] koha/tools inventory.pl [rel_3_0]

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	paul poulain <tipaul>	06/10/30 10:23:09

Added files:
	tools          : inventory.pl 

Log message:
	moving inventory script to tools &bugfixing some features

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/tools/inventory.pl?cvsroot=koha&only_with_tag=rel_3_0&rev=1.1.2.1

Patches:
Index: inventory.pl
===================================================================
RCS file: inventory.pl
diff -N inventory.pl
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ inventory.pl	30 Oct 2006 10:23:09 -0000	1.1.2.1
@@ -0,0 +1,132 @@
+#!/usr/bin/perl
+
+# 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::Auth;
+use C4::Context;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+use C4::Date;
+use HTML::Template;
+
+# Fixed variables
+my $linecolor1='#ffffcc';
+my $linecolor2='white';
+my $backgroundimage="/images/background-mem.gif";
+my $script_name="/cgi-bin/koha/admin/branches.pl";
+my $pagepagesize=20;
+
+
+#######################################################################################
+# Main loop....
+my $input = new CGI;
+my $minlocation=$input->param('minlocation');
+my $maxlocation=$input->param('maxlocation');
+$maxlocation=$minlocation.'Z' unless $maxlocation;
+my $datelastseen = $input->param('datelastseen');
+$datelastseen = format_date_in_iso($datelastseen);
+my $offset = $input->param('offset');
+my $markseen = $input->param('markseen');
+$offset=0 unless $offset;
+my $pagesize = $input->param('pagesize');
+$pagesize=50 unless $pagesize;
+my $uploadbarcodes = $input->param('uploadbarcodes');
+# warn "uploadbarcodes : ".$uploadbarcodes;
+
+my ($template, $borrowernumber, $cookie)
+    = get_template_and_user({template_name => "tools/inventory.tmpl",
+                query => $input,
+                type => "intranet",
+                authnotrequired => 0,
+                flagsrequired => {editcatalogue => 1},
+                debug => 1,
+                });
+$template->param(minlocation => $minlocation,
+                maxlocation => $maxlocation,
+                offset => $offset,
+                pagesize => $pagesize,
+                datelastseen => $datelastseen,
+                intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
+                intranetstylesheet => C4::Context->preference("intranetstylesheet"),
+                IntranetNav => C4::Context->preference("IntranetNav"),
+                );
+if ($uploadbarcodes && length($uploadbarcodes)>0){
+    my $dbh=C4::Context->dbh;
+    my $date=format_date($input->param('setdate'));
+    $date = format_date("today") unless $date;
+# 	warn "$date";
+    my $strsth="update items set (datelastseen = $date) where items.barcode =?";
+    my $qupdate = $dbh->prepare($strsth);
+    my $strsth="select * from issues, items where items.itemnumber=issues.itemnumber and items.barcode =? and issues.returndate is null";
+    my $qonloan = $dbh->prepare($strsth);
+    my $strsth="select * from items where items.barcode =? and issues.wthdrawn=1";
+    my $qwthdrawn = $dbh->prepare($strsth);
+    my @errorloop;
+    my $count=0;
+    while (my $barcode=<$uploadbarcodes>){
+        chomp $barcode;
+# 		warn "$barcode";
+        if ($qwthdrawn->execute($barcode) &&$qwthdrawn->rows){
+            push @errorloop, {'barcode'=>$barcode,'ERR_WTHDRAWN'=>1};
+        }else{
+            $qupdate->execute($barcode);
+            $count += $qupdate->rows;
+# 			warn "$count";
+            if ($count){
+                $qonloan->execute($barcode);
+                if ($qonloan->rows){
+                    my $data = $qonloan->fetchrow_hashref;
+                    my ($doreturn, $messages, $iteminformation, $borrower) =returnbook($barcode, $data->{homebranch});
+                    if ($doreturn){push @errorloop, {'barcode'=>$barcode,'ERR_ONLOAN_RET'=>1}}
+                    else {push @errorloop, {'barcode'=>$barcode,'ERR_ONLOAN_NOT_RET'=>1}}
+                }
+            } else {
+                push @errorloop, {'barcode'=>$barcode,'ERR_BARCODE'=>1};
+            }
+        }
+    }
+    $qupdate->finish;
+    $qonloan->finish;
+    $qwthdrawn->finish;
+    $template->param(date=>$date,Number=>$count);
+# 	$template->param(errorfile=>$errorfile) if ($errorfile);
+    $template->param(errorloop=>\@errorloop) if (@errorloop);
+}else{
+    if ($markseen) {
+        foreach my $field ($input->param) {
+            if ($field =~ /SEEN-(.*)/) {
+                &itemseen($1);
+            }
+        }
+    }
+    if ($minlocation) {
+        my $res = C4::Circulation::Circ2::GetItemsForInventory($minlocation,$maxlocation,$datelastseen,$offset,$pagesize);
+        $template->param(loop =>$res,
+                        nextoffset => ($offset+$pagesize),
+                        prevoffset => ($offset?$offset-$pagesize:0),
+                        );
+    }
+}
+output_html_with_http_headers $input, $cookie, $template->output;
+
+# Local Variables:
+# tab-width: 8
+# End: