Main Koha release repository https://koha-community.org
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

211 lines
6.2 KiB

#!/usr/bin/perl
# code modified by Trendsetters (from original circulation.pl)
# Please use 8-character tabs for this file (indents are every 4 characters)
#
# rychi edit: we're just trying to issue some books. 'Trendsetters' code mostly deleted.
# Note: This is incomplete; implemented for a library that trusts its users and has no fines;
# as such, there are some circ functions that are missing and tests that are skipped.
#
# The issuer is a special user
# with borrowerflag 'selfcheck' set. The borrower has been authenticated.
# We're going to post a barcode with a form, and check that barcode for issuability.
# If it's issuable, we issue it. If there's an error, we call a popup.
#
# Copyright 2006
# # 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::Circulation;
use C4::Search;
use DBI;
use C4::Auth;
use C4::Output;
use C4::Koha;
use HTML::Template::Pro;
use C4::Date;
my $query=new CGI;
#my ($loggedinuser, $sessioncookie, $sessionID) = checkauth
# ($query, 0, { circulate => 1 });
# loggedinuser is the 'selfchaeckout user'.
my ($template, $loggedinuser, $cookie) = get_template_and_user({
template_name => 'sco/sco-circ.tmpl',
query => $query,
type => "opac",
authnotrequired => 0,
flagsrequired => { selfcheckout => 1 },
});
my $issuerid = $loggedinuser;
my ( $userid, $op, $barcode, $confirmed )= $query->param("userid", "op", "barcode", "confirmed" );
my $env ;
my %confirmation_strings = ( RENEW_ISSUE => "This item is already checked out to you. Renew it?", );
my $cnt = 0;
my ($issuer, $flags) = getpatroninformation(undef,undef, $issuerid);
my $item = getiteminformation(undef,undef,$barcode);
if ($op eq "finish") {
$query->param( userid => undef );
} elsif ($userid) {
my $env = {branchcode => $issuer->{'branchcode'} };
warn "here's the branchcode: ".$issuer->{branchcode};
my ($borrower, $flags) = getpatroninformation(undef,undef, $userid);
my $bornum = $borrower->{borrowernumber};
my $borrowerissues = [];
my $issues = currentissues( $env, $borrower);
foreach (%$issues) {
$borrowerissues->[$cnt]->{issued} = $_ ;
$cnt++;
}
$cnt=0;
$template->param( OVERDUES => $borrower->{ODUES} ,
ISSUES => $borrowerissues,
);
if ($op eq "checkout" ) {
my ($impossible,$needconfirm) = canbookbeissued(undef,$borrower,$barcode);
if ($impossible) {
my ($issue_error) = keys %$impossible ;
$template->param( impossible => $issue_error );
} elsif ($needconfirm->{RENEW_ISSUE} ) {
if ( $confirmed ) {
renewbook($env,$bornum,$item->{itemnumber},"");
} else {
$template->param( confirm => $confirmation_strings{RENEW_ISSUE} );
}
} elsif ($needconfirm && !$confirmed ) {
my ($confirmation) = keys %$needconfirm ;
$template->param( impossible => $confirmation );
} else {
issuebook($env,$bornum,$barcode,"");
}
#getiteminformation(undef,undef,$item);
} else {
}
# reload the borrower info for the sake of reseting the flags.....
# if ($borrowernumber) {
# ($borrower, $flags) = getpatroninformation(\%env,$borrowernumber,0);
# }
} else {
$template->param( noauth => 1, );
}
output_html_with_http_headers $query, $cookie, $template->output;
#sub patrontable {
# my ($borrower) = @_;
# my $flags = $borrower->{'flags'};
# my $flaginfotable='';
# my $flaginfotext;
# #my $flaginfotext='';
# my $flag;
# my $color='';
# foreach $flag (sort keys %$flags) {
# warn $flag;
## my @itemswaiting='';
# ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
# $flags->{$flag}->{'message'}=~s/\n/<br>/g;
# if ($flags->{$flag}->{'noissues'}) {
# $template->param(
# noissues => 'true',
# color => $color,
# );
# 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'}
# );
# }
# } else {
# if ($flag eq 'CHARGES') {
# $template->param(
# charges => 'true',
# chargesmsg => $flags->{'CHARGES'}->{'message'}
# );
# }
# if ($flag eq 'WAITING') {
# my $items=$flags->{$flag}->{'itemlist'};
# my @itemswaiting;
# foreach my $item (@$items) {
# my ($iteminformation) = getiteminformation(\%env, $item->{'itemnumber'}, 0);
# $iteminformation->{'branchname'} = $branches->{$iteminformation->{'holdingbranch'}}->{'branchname'};
# push @itemswaiting, $iteminformation;
# }
# $template->param(
# waiting => 'true',
# waitingmsg => $flags->{'WAITING'}->{'message'},
# itemswaiting => \@itemswaiting,
# );
# }
# if ($flag eq 'ODUES') {
# $template->param(
# odues => 'true',
# oduesmsg => $flags->{'ODUES'}->{'message'}
# );
#
# my $items=$flags->{$flag}->{'itemlist'};
# my $currentcolor=$color;
# {
# my $color=$currentcolor;
# my @itemswaiting;
# foreach my $item (@$items) {
# ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
# my ($iteminformation) = getiteminformation(\%env, $item->{'itemnumber'}, 0);
# push @itemswaiting, $iteminformation;
# }
# }
# if ($query->param('module') ne 'returns'){
# $template->param( nonreturns => 'true' );
# }
# }
# if ($flag eq 'NOTES') {
# $template->param(
# notes => 'true',
# notesmsg => $flags->{'NOTES'}->{'message'}
# );
# }
# }
# }
# return($patrontable, $flaginfotext);
#}