Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity
Koha/circ/circulation.pl
Chris Nighswonger c6d6f60013 More fixes for patron images 
Added GetPatronImage function to Members.pm
Added code to circulation.pl, boraccount.pl, readingrec.pl, and moremember.pl to grab patron image and pass it off to the template
Corrected code in circ-menu.inc to properly display patron image.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
2008-02-03 07:24:28 -06:00

712 lines
24 KiB
Perl
Executable file
Raw Blame History

#!/usr/bin/perl
# Please use 8-character tabs for this file (indents are every 4 characters)
# written 8/5/2002 by Finlay
# script to execute issuing of books
# 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::Output;
use C4::Print;
use C4::Auth qw/:DEFAULT get_session/;
use C4::Dates qw/format_date/;
use C4::Branch; # GetBranches
use C4::Koha; # GetPrinter
use C4::Circulation;
use C4::Members;
use C4::Biblio;
use C4::Reserves;
use C4::Context;
use CGI::Session;
use Date::Calc qw(
Today
Today_and_Now
Add_Delta_YM
Add_Delta_Days
Date_to_Days
);
#
# PARAMETERS READING
#
my $query = new CGI;
# new op dev the branch and the printer are now defined by the userenv
# but first we have to check if someone has tried to change them
my $branch = $query->param('branch');
if ($branch){
# update our session so the userenv is updated
my $dbh=C4::Context->dbh;
my $sessionID = $query->cookie("CGISESSID") ;
my $session = get_session($sessionID);
$session->param('branch',$branch);
my $branchname = GetBranchName($branch);
$session->param('branchname',$branchname);
}
my $printer = $query->param('printer');
if ($printer){
# update our session so the userenv is updated
my $dbh=C4::Context->dbh;
my $sessionID = $query->cookie("CGISESSID") ;
my $session = get_session($sessionID);
$session->param('branchprinter',$printer);
}
if (!C4::Context->userenv && !$branch){
my $sessionID = $query->cookie("CGISESSID") ;
my $session = get_session($sessionID);
if ($session->param('branch') eq 'NO_LIBRARY_SET'){
# no branch set we can't issue
print $query->redirect("/cgi-bin/koha/circ/selectbranchprinter.pl");
exit;
}
}
my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
{
template_name => 'circ/circulation.tmpl',
query => $query,
type => "intranet",
authnotrequired => 0,
flagsrequired => { circulate => 1 },
}
);
my $branches = GetBranches();
my $printers = GetPrinters();
my @failedrenews = $query->param('failedrenew');
my @renew_failed;
for (@failedrenews) { $renew_failed[$_] = 1; }
my $findborrower = $query->param('findborrower');
$findborrower =~ s|,| |g;
#$findborrower =~ s|'| |g;
my $borrowernumber = $query->param('borrowernumber');
$branch = C4::Context->userenv->{'branch'};
$printer = C4::Context->userenv->{'branchprinter'};
# If Autolocated is not activated, we show the Circulation Parameters to chage settings of librarian
if (C4::Context->preference("AutoLocation") ne 1)
{
$template->param(
ManualLocation => 1,
);
}
my $barcode = $query->param('barcode') || '';
# strip whitespace
$barcode =~ s/\s*//g;
my $year = $query->param('year');
my $month = $query->param('month');
my $day = $query->param('day');
my $stickyduedate = $query->param('stickyduedate');
my $duedatespec = $query->param('duedatespec');
my $issueconfirmed = $query->param('issueconfirmed');
my $cancelreserve = $query->param('cancelreserve');
my $organisation = $query->param('organisations');
my $print = $query->param('print');
my $newexpiry = $query->param('dateexpiry');
#set up cookie.....
# my $branchcookie;
# my $printercookie;
# if ($query->param('setcookies')) {
# $branchcookie = $query->cookie(-name=>'branch', -value=>"$branch", -expires=>'+1y');
# $printercookie = $query->cookie(-name=>'printer', -value=>"$printer", -expires=>'+1y');
# }
#
my ($datedue,$invalidduedate);
if ($duedatespec) {
$datedue = C4::Dates->new($duedatespec);
$invalidduedate=1 unless $datedue;
}
#if (defined($year)) {
# $duedatespec = "$year-$month-$day";
#} else {
# ($year, $month, $day) = ($duedatespec) ? split /-/, $duedatespec : (0,0,0);
#}
my @datearr = localtime();
# FIXME - Could just use POSIX::strftime("%Y%m%d", localtime);
my $todaysdate =
( 1900 + $datearr[5] )
. sprintf( "%0.2d", ( $datearr[4] + 1 ) )
. sprintf( "%0.2d", ( $datearr[3] ) );
# check and see if we should print
if ( $barcode eq '' && $print eq 'maybe' ) {
$print = 'yes';
}
my $inprocess = ($barcode eq '') ? '' : $query->param('inprocess');
if ( $barcode eq '' && $query->param('charges') eq 'yes' ) {
$template->param(
PAYCHARGES => 'yes',
borrowernumber => $borrowernumber
);
}
if ( $print eq 'yes' && $borrowernumber ne '' ) {
printslip( $borrowernumber );
$query->param( 'borrowernumber', '' );
$borrowernumber = '';
}
#
# STEP 2 : FIND BORROWER
# if there is a list of find borrowers....
#
my $borrowerslist;
my $message;
if ($findborrower) {
my ( $count, $borrowers ) =
SearchMember($findborrower, 'cardnumber', 'web' );
my @borrowers = @$borrowers;
if ( $#borrowers == -1 ) {
$query->param( 'findborrower', '' );
$message = "'$findborrower'";
}
elsif ( $#borrowers == 0 ) {
$query->param( 'borrowernumber', $borrowers[0]->{'borrowernumber'} );
$query->param( 'barcode', '' );
$borrowernumber = $borrowers[0]->{'borrowernumber'};
}
else {
$borrowerslist = \@borrowers;
}
}
# get the borrower information.....
my $borrower;
my @lines;
if ($borrowernumber) {
$borrower = GetMemberDetails( $borrowernumber, 0 );
my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrowernumber );
# Warningdate is the date that the warning starts appearing
my ( $today_year, $today_month, $today_day ) = Today();
my ( $warning_year, $warning_month, $warning_day ) = split /-/,
$borrower->{'dateexpiry'};
my ( $enrol_year, $enrol_month, $enrol_day ) = split /-/,
$borrower->{'dateenrolled'};
# Renew day is calculated by adding the enrolment period to today
my ( $renew_year, $renew_month, $renew_day ) =
Add_Delta_YM( $enrol_year, $enrol_month, $enrol_day,
0 , $borrower->{'enrolmentperiod'}) if ($enrol_year*$enrol_month*$enrol_day>0);
# if the expiry date is before today ie they have expired
if ( $warning_year*$warning_month*$warning_day==0
|| Date_to_Days( $today_year, $today_month, $today_day )
> Date_to_Days( $warning_year, $warning_month, $warning_day ) )
{
#borrowercard expired, no issues
$template->param(
flagged => "1",
noissues => "1",
expired => format_date($borrower->{dateexpiry}),
renewaldate => format_date("$renew_year-$renew_month-$renew_day")
);
}
# check for NotifyBorrowerDeparture
elsif ( C4::Context->preference('NotifyBorrowerDeparture') &&
Date_to_Days(Add_Delta_Days($warning_year,$warning_month,$warning_day,- C4::Context->preference('NotifyBorrowerDeparture'))) <
Date_to_Days( $today_year, $today_month, $today_day ) )
{
# borrower card soon to expire warn librarian
$template->param("warndeparture" => format_date($borrower->{dateexpiry}),
flagged => "1",);
if ( C4::Context->preference('ReturnBeforeExpiry')){
$template->param("returnbeforeexpiry" => 1);
}
}
$template->param(
overduecount => $od,
issuecount => $issue,
finetotal => $fines
);
}
#
# STEP 3 : ISSUING
#
#
if ($barcode) {
# $barcode = cuecatbarcodedecode($barcode);
# always check for blockers on issuing
my ( $error, $question ) =
CanBookBeIssued( $borrower, $barcode, $datedue , $inprocess );
my $noerror = 1;
foreach my $impossible ( keys %$error ) {
$template->param(
$impossible => $$error{$impossible},
IMPOSSIBLE => 1
);
$noerror = 0;
}
if ($issueconfirmed && $noerror) {
# we have no blockers for issuing and any issues needing confirmation have been resolved
AddIssue( $borrower, $barcode, $datedue, $cancelreserve );
$inprocess = 1;
}
elsif ($issueconfirmed){
}
else {
my $noquestion = 1;
# Get the item title for more information
my $getmessageiteminfo = GetBiblioFromItemNumber(undef,$barcode);
foreach my $needsconfirmation ( keys %$question ) {
$template->param(
$needsconfirmation => $$question{$needsconfirmation},
getTitleMessageIteminfo => $getmessageiteminfo->{'title'},
NEEDSCONFIRMATION => 1
);
$noquestion = 0;
}
$template->param(
itemhomebranch => $getmessageiteminfo->{'homebranch'} ,
duedatespec => $duedatespec,
);
if ( $noerror && ( $noquestion || $issueconfirmed ) ) {
AddIssue( $borrower, $barcode, $datedue );
$inprocess = 1;
}
}
# FIXME If the issue is confirmed, we launch another time borrdata2, now display the issue count after issue
my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrowernumber );
$template->param(
issuecount => $issue,
);
}
# reload the borrower info for the sake of reseting the flags.....
if ($borrowernumber) {
$borrower = GetMemberDetails( $borrowernumber, 0 );
}
##################################################################################
# BUILD HTML
# show all reserves of this borrower, and the position of the reservation ....
if ($borrowernumber) {
# new op dev
# now we show the status of the borrower's reservations
my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber );
my @reservloop;
my @WaitingReserveLoop;
foreach my $num_res (@borrowerreserv) {
my %getreserv;
my %getWaitingReserveInfo;
my $getiteminfo = GetBiblioFromItemNumber( $num_res->{'itemnumber'} );
my $itemtypeinfo = getitemtypeinfo( (C4::Context->preference('item-level_itype')) ? $getiteminfo->{'itype'} : $getiteminfo->{'itemtype'} );
my ( $transfertwhen, $transfertfrom, $transfertto ) =
GetTransfers( $num_res->{'itemnumber'} );
$getreserv{waiting} = 0;
$getreserv{transfered} = 0;
$getreserv{nottransfered} = 0;
$getreserv{reservedate} = format_date( $num_res->{'reservedate'} );
$getreserv{title} = $getiteminfo->{'title'};
$getreserv{itemtype} = $itemtypeinfo->{'description'};
$getreserv{author} = $getiteminfo->{'author'};
$getreserv{barcodereserv} = $getiteminfo->{'barcode'};
$getreserv{itemcallnumber} = $getiteminfo->{'itemcallnumber'};
$getreserv{biblionumber} = $getiteminfo->{'biblionumber'};
# check if we have a waiting status for reservations
if ( $num_res->{'found'} eq 'W' ) {
$getreserv{color} = 'reserved';
$getreserv{waiting} = 1;
# genarate information displaying only waiting reserves
$getWaitingReserveInfo{title} = $getiteminfo->{'title'};
$getWaitingReserveInfo{biblionumber} = $getiteminfo->{'biblionumber'};
$getWaitingReserveInfo{itemtype} = $itemtypeinfo->{'description'};
$getWaitingReserveInfo{author} = $getiteminfo->{'author'};
$getWaitingReserveInfo{reservedate} = format_date( $num_res->{'reservedate'} );
if ($getiteminfo->{'holdingbranch'} ne $num_res->{'branchcode'} ) {
$getWaitingReserveInfo{waitingat} = GetBranchName( $num_res->{'branchcode'} );
}
}
# check transfers with the itemnumber foud in th reservation loop
if ($transfertwhen) {
$getreserv{color} = 'transfered';
$getreserv{transfered} = 1;
$getreserv{datesent} = format_date($transfertwhen);
$getreserv{frombranch} = GetBranchName($transfertfrom);
}
if ( ( $getiteminfo->{'holdingbranch'} ne $num_res->{'branchcode'} )
and not $transfertwhen )
{
$getreserv{nottransfered} = 1;
$getreserv{nottransferedby} =
GetBranchName( $getiteminfo->{'holdingbranch'} );
}
# if we don't have a reserv on item, we put the biblio infos and the waiting position
if ( $getiteminfo->{'title'} eq '' ) {
my $getbibinfo = GetBiblioData( $num_res->{'biblionumber'} );
my $getbibtype = getitemtypeinfo( $getbibinfo->{'itemtype'} ); # fixme - we should have item-level reserves here ?
$getreserv{color} = 'inwait';
$getreserv{title} = $getbibinfo->{'title'};
$getreserv{waitingposition} = $num_res->{'priority'};
$getreserv{nottransfered} = 0;
$getreserv{itemtype} = $getbibtype->{'description'};
$getreserv{author} = $getbibinfo->{'author'};
$getreserv{itemcallnumber} = '----------';
$getreserv{biblionumber} = $num_res->{'biblionumber'};
}
push( @reservloop, \%getreserv );
# if we have a reserve waiting, initiate waitingreserveloop
if ($getreserv{waiting} eq 1) {
push (@WaitingReserveLoop, \%getWaitingReserveInfo)
}
}
# return result to the template
$template->param(
countreserv => scalar @reservloop,
reservloop => \@reservloop ,
WaitingReserveLoop => \@WaitingReserveLoop,
);
}
# make the issued books table.
my $todaysissues = '';
my $previssues = '';
my @todaysissues;
my @previousissues;
my $allowborrow;
## ADDED BY JF: new itemtype issuingrules counter stuff
my $issued_itemtypes_loop;
my $issued_itemtypes_count;
my $issued_itemtypes_allowed_count; # hashref with total allowed by itemtype
my $issued_itemtypes_remaining; # hashref with remaining
my $issued_itemtypes_flags; #hashref that stores flags
my @issued_itemtypes_count_loop;
if ($borrower) {
# get each issue of the borrower & separate them in todayissues & previous issues
my ($countissues,$issueslist) = GetPendingIssues($borrower->{'borrowernumber'});
# split in 2 arrays for today & previous
foreach my $it ( @$issueslist ) {
my $issuedate = $it->{'issuedate'};
$issuedate =~ s/-//g;
$issuedate = substr( $issuedate, 0, 8 );
($it->{'charge'}, $it->{'itemtype_charge'}) = GetIssuingCharges(
$it->{'itemnumber'}, $borrower->{'borrowernumber'}
);
$it->{'charge'} = sprintf("%.2f", $it->{'charge'});
($it->{'can_renew'}, $it->{'can_renew_error'}) = CanBookBeRenewed(
$borrower->{'borrowernumber'},$it->{'itemnumber'}
);
my ($restype, $reserves) = CheckReserves($it->{'itemnumber'});
($restype) and $it->{'can_renew'} = 0;
$it->{'dd'} = format_date($it->{'date_due'});
my $datedue = $it->{'date_due'};
$datedue =~ s/-//g;
$it->{'od'} = ($datedue < $todaysdate) ? 1 : 0 ;
($it->{'author'} eq '') and $it->{'author'} = ' ';
$it->{'renew_failed'} = $renew_failed[$it->{'itemnumber'}];
# ADDED BY JF: NEW ITEMTYPE COUNT DISPLAY
$issued_itemtypes_count->{ $it->{'itemtype'} }++;
if ( $todaysdate == $issuedate ) {
push @todaysissues, $it;
} else {
push @previousissues, $it;
}
}
if (C4::Context->preference("todaysIssuesDefaultSortOrder") eq 'asc'){
@todaysissues = sort { $a->{'timestamp'} cmp $b->{'timestamp'} } @todaysissues;
}
else {
@todaysissues = sort { $b->{'timestamp'} cmp $a->{'timestamp'} } @todaysissues;
}
if (C4::Context->preference("previousIssuesDefaultSortOrder") eq 'asc'){
@previousissues = sort { $a->{'date_due' } cmp $b->{'date_due' } } @previousissues;
}
else {
@previousissues = sort { $b->{'date_due' } cmp $a->{'date_due' } } @previousissues;
}
my $i = 1;
foreach my $book (@todaysissues) {
$book->{'togglecolor'} = (++$i % 2) ? 0 : 1 ;
}
$i = 1;
foreach my $book (@previousissues) {
$book->{'togglecolor'} = (++$i % 2) ? 0 : 1 ;
}
}
#### ADDED BY JF FOR COUNTS BY ITEMTYPE RULES
# FIXME: This should utilize all the issuingrules options rather than just the defaults
# and it should be moved to a module
my $dbh = C4::Context->dbh;
# how many of each is allowed?
my $issueqty_sth = $dbh->prepare( "
SELECT itemtypes.description AS description,issuingrules.itemtype,maxissueqty
FROM issuingrules
LEFT JOIN itemtypes ON (itemtypes.itemtype=issuingrules.itemtype)
WHERE categorycode=?
" );
#my @issued_itemtypes_count; # huh?
$issueqty_sth->execute("*");
while ( my $data = $issueqty_sth->fetchrow_hashref() ) {
# subtract how many of each this borrower has
$data->{'count'} = $issued_itemtypes_count->{ $data->{'description'} };
$data->{'left'} =
( $data->{'maxissueqty'} -
$issued_itemtypes_count->{ $data->{'description'} } );
# can't have a negative number of remaining
if ( $data->{'left'} < 0 ) { $data->{'left'} = "0" }
$data->{'flag'} = 1 unless ( $data->{'maxissueqty'} > $data->{'count'} );
unless ( ( $data->{'maxissueqty'} < 1 )
|| ( $data->{'itemtype'} eq "*" )
|| ( $data->{'itemtype'} eq "CIRC" ) )
{
push @issued_itemtypes_count_loop, $data;
}
}
$issued_itemtypes_loop = \@issued_itemtypes_count_loop;
#### / JF
my @values;
my %labels;
my $CGIselectborrower;
if ($borrowerslist) {
foreach (
sort {
lc $a->{'surname'}
. lc $a->{'firstname'} cmp lc $b->{'surname'}
. lc $b->{'firstname'}
} @$borrowerslist
)
{
push @values, $_->{'borrowernumber'};
$labels{ $_->{'borrowernumber'} } =
"$_->{'surname'}, $_->{'firstname'} ... ($_->{'cardnumber'} - $_->{'categorycode'}) ... $_->{'address'} ";
}
$CGIselectborrower = CGI::scrolling_list(
-name => 'borrowernumber',
-class => 'focus',
-id => 'borrowernumber',
-values => \@values,
-labels => \%labels,
-size => 7,
-tabindex => '',
-multiple => 0
);
}
#title
my $flags = $borrower->{'flags'};
my $flag;
foreach $flag ( sort keys %$flags ) {
$template->param( flagged=> 1);
$flags->{$flag}->{'message'} =~ s/\n/<br>/g;
if ( $flags->{$flag}->{'noissues'} ) {
$template->param(
flagged => 1,
noissues => 'true',
);
if ( $flag eq 'GNA' ) {
$template->param( gna => 'true' );
}
if ( $flag eq 'LOST' ) {
$template->param( lost => 'true' );
}
if ( $flag eq 'DBARRED' ) {
$template->param( dbarred => 'true' );
}
if ( $flag eq 'CHARGES' ) {
$template->param(
charges => 'true',
chargesmsg => $flags->{'CHARGES'}->{'message'}
);
}
if ( $flag eq 'CREDITS' ) {
$template->param(
credits => 'true',
creditsmsg => $flags->{'CREDITS'}->{'message'}
);
}
}
else {
if ( $flag eq 'CHARGES' ) {
$template->param(
charges => 'true',
flagged => 1,
chargesmsg => $flags->{'CHARGES'}->{'message'}
);
}
if ( $flag eq 'CREDITS' ) {
$template->param(
credits => 'true',
creditsmsg => $flags->{'CREDITS'}->{'message'}
);
}
if ( $flag eq 'ODUES' ) {
$template->param(
odues => 'true',
flagged => 1,
oduesmsg => $flags->{'ODUES'}->{'message'}
);
my $items = $flags->{$flag}->{'itemlist'};
# useless ???
# {
# my @itemswaiting;
# foreach my $item (@$items) {
# my ($iteminformation) =
# getiteminformation( $item->{'itemnumber'}, 0 );
# push @itemswaiting, $iteminformation;
# }
# }
if ( $query->param('module') ne 'returns' ) {
$template->param( nonreturns => 'true' );
}
}
if ( $flag eq 'NOTES' ) {
$template->param(
notes => 'true',
flagged => 1,
notesmsg => $flags->{'NOTES'}->{'message'}
);
}
}
}
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0;
my @temp = split( /\$/, $amountold );
my $CGIorganisations;
my $member_of_institution;
if ( C4::Context->preference("memberofinstitution") ) {
my $organisations = get_institutions();
my @orgs;
my %org_labels;
foreach my $organisation ( keys %$organisations ) {
push @orgs, $organisation;
$org_labels{$organisation} =
$organisations->{$organisation}->{'surname'};
}
$member_of_institution = 1;
$CGIorganisations = CGI::popup_menu(
-id => 'organisations',
-name => 'organisations',
-labels => \%org_labels,
-values => \@orgs,
);
}
$amountold = $temp[1];
my $borrowercategory = GetBorrowercategory( $borrower->{'categorycode'} );
my $category_type = $borrowercategory->{'category_type'};
( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
$template->param(
issued_itemtypes_count_loop => $issued_itemtypes_loop,
findborrower => $findborrower,
borrower => $borrower,
borrowernumber => $borrowernumber,
branch => $branch,
printer => $printer,
printername => $printer,
firstname => $borrower->{'firstname'},
surname => $borrower->{'surname'},
dateexpiry => format_date($newexpiry),
expiry =>
$borrower->{'dateexpiry'}, #format_date($borrower->{'dateexpiry'}),
categorycode => $borrower->{'categorycode'},
address => $borrower->{'address'},
address2 => $borrower->{'address2'},
email => $borrower->{'email'},
emailpro => $borrower->{'emailpro'},
borrowernotes => $borrower->{'borrowernotes'},
city => $borrower->{'city'},
phone => $borrower->{'phone'} || $borrower->{'mobile'},
cardnumber => $borrower->{'cardnumber'},
amountold => $amountold,
barcode => $barcode,
stickyduedate => $stickyduedate,
message => $message,
CGIselectborrower => $CGIselectborrower,
todayissues => \@todaysissues,
previssues => \@previousissues,
inprocess => $inprocess,
memberofinstution => $member_of_institution,
CGIorganisations => $CGIorganisations,
circview => 1,
);
# set return date if stickyduedate
if ($stickyduedate) {
$template->param(
duedatespec => $duedatespec,
);
}
#if ($branchcookie) {
#$cookie=[$cookie, $branchcookie, $printercookie];
#}
# grab patron's image if available
my $picture = GetPatronImage($borrower->{'cardnumber'});
$template->param( picture => $picture );
$template->param(
SpecifyDueDate => C4::Context->preference("SpecifyDueDate"),
CircAutocompl => C4::Context->preference("CircAutocompl") ,
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
);
output_html_with_http_headers $query, $cookie, $template->output;
View git blame Copy permalink