3 # This code has been modified by Trendsetters (originally from opac-user.pl)
4 # This code has been modified by rch
5 # Parts Copyright 2010-2011, ByWater Solutions (those related to username/password auth)
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it under the
10 # terms of the GNU General Public License as published by the Free Software
11 # Foundation; either version 2 of the License, or (at your option) any later
14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
16 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License along
19 # with Koha; if not, write to the Free Software Foundation, Inc.,
20 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22 # We're going to authenticate a self-check user. we'll add a flag to borrowers 'selfcheck'
24 # We're in a controlled environment; we trust the user.
25 # So the selfcheck station will accept a patronid and issue items to that borrower.
26 # FIXME: NOT really a controlled environment... We're on the internet!
28 # The checkout permission comes form the CGI cookie/session of a staff user.
29 # The patron is not really logging in here in the same way as they do on the
30 # rest of the OPAC. So don't confuse loggedinuser with the patron user.
32 # FIXME: inputfocus not really used in TMPL
38 use Digest
::MD5
qw(md5_base64);
40 use C4
::Auth
qw(get_template_and_user checkpw);
51 unless (C4
::Context
->preference('WebBasedSelfCheck')) {
52 # redirect to OPAC home if self-check is not enabled
53 print $query->redirect("/cgi-bin/koha/opac-main.pl");
57 if (C4
::Context
->preference('AutoSelfCheckAllowed'))
59 my $AutoSelfCheckID = C4
::Context
->preference('AutoSelfCheckID');
60 my $AutoSelfCheckPass = C4
::Context
->preference('AutoSelfCheckPass');
61 $query->param(-name
=>'userid',-values=>[$AutoSelfCheckID]);
62 $query->param(-name
=>'password',-values=>[$AutoSelfCheckPass]);
63 $query->param(-name
=>'koha_login_context',-values=>['sco']);
65 my ($template, $loggedinuser, $cookie) = get_template_and_user
({
66 template_name
=> "sco/sco-main.tt",
68 flagsrequired
=> { circulate
=> "circulate_remaining_permissions" },
73 if (C4
::Context
->preference('SelfCheckoutByLogin'))
75 $template->param(authbylogin
=> 1);
78 # Get the self checkout timeout preference, or use 120 seconds as a default
79 my $selfchecktimeout = 120000;
80 if (C4
::Context
->preference('SelfCheckTimeout')) {
81 $selfchecktimeout = C4
::Context
->preference('SelfCheckTimeout') * 1000;
83 $template->param(SelfCheckTimeout
=> $selfchecktimeout);
85 # Checks policy laid out by AllowSelfCheckReturns, defaults to 'on' if preference is undefined
86 my $allowselfcheckreturns = 1;
87 if (defined C4
::Context
->preference('AllowSelfCheckReturns')) {
88 $allowselfcheckreturns = C4
::Context
->preference('AllowSelfCheckReturns');
90 $template->param(AllowSelfCheckReturns
=> $allowselfcheckreturns);
93 my $issuerid = $loggedinuser;
94 my ($op, $patronid, $patronlogin, $patronpw, $barcode, $confirmed) = (
95 $query->param("op") || '',
96 $query->param("patronid") || '',
97 $query->param("patronlogin")|| '',
98 $query->param("patronpw") || '',
99 $query->param("barcode") || '',
100 $query->param("confirmed") || '',
103 my $issuenoconfirm = 1; #don't need to confirm on issue.
104 #warn "issuerid: " . $issuerid;
105 my $issuer = GetMemberDetails
($issuerid);
106 my $item = GetItem
(undef,$barcode);
107 if (C4
::Context
->preference('SelfCheckoutByLogin') && !$patronid) {
108 my $dbh = C4
::Context
->dbh;
110 ($resval, $patronid) = checkpw
($dbh, $patronlogin, $patronpw);
112 my $borrower = GetMemberDetails
(undef,$patronid);
114 my $currencySymbol = "";
115 if ( defined C4
::Budgets
->GetCurrency() ) {
116 $currencySymbol = C4
::Budgets
->GetCurrency()->{symbol
};
119 my $branch = $issuer->{branchcode
};
120 my $confirm_required = 0;
122 #warn "issuer cardnumber: " . $issuer->{cardnumber};
123 #warn "patron cardnumber: " . $borrower->{cardnumber};
124 if ($op eq "logout") {
125 $query->param( patronid
=> undef, patronlogin
=> undef, patronpw
=> undef );
127 elsif ( $op eq "returnbook" && $allowselfcheckreturns ) {
128 my ($doreturn) = AddReturn
( $barcode, $branch );
129 #warn "returnbook: " . $doreturn;
130 $borrower = GetMemberDetails
(undef,$patronid);
132 elsif ( $op eq "checkout" ) {
134 my $needconfirm = {};
136 ( $impossible, $needconfirm ) = CanBookBeIssued
(
141 C4
::Context
->preference("AllowItemsOnHoldCheckout")
144 $confirm_required = scalar keys %$needconfirm;
146 #warn "confirm_required: " . $confirm_required ;
147 if (scalar keys %$impossible) {
149 # warn "impossible: numkeys: " . scalar (keys(%$impossible));
150 #warn join " ", keys %$impossible;
151 my $issue_error = (keys %$impossible)[0];
153 # FIXME we assume only one error.
155 impossible
=> $issue_error,
156 "circ_error_$issue_error" => 1,
157 title
=> $item->{title
},
160 if ($issue_error eq 'DEBT') {
161 $template->param(amount
=> $currencySymbol.$impossible->{DEBT
});
163 #warn "issue_error: " . $issue_error ;
164 if ( $issue_error eq "NO_MORE_RENEWALS" ) {
171 } elsif ( $needconfirm->{RENEW_ISSUE
} ) {
174 AddRenewal
( $borrower, $item->{itemnumber
} );
176 #warn "renew confirmation";
181 confirm_renew_issue
=> 1,
185 } elsif ( $confirm_required && !$confirmed ) {
186 #warn "failed confirmation";
187 my $issue_error = (keys %$needconfirm)[0];
189 impossible
=> (keys %$needconfirm)[0],
190 "circ_error_$issue_error" => 1,
193 if ($issue_error eq 'DEBT') {
194 $template->param(amount
=> $currencySymbol.$needconfirm->{DEBT
});
197 if ( $confirmed || $issuenoconfirm ) { # we'll want to call getpatroninfo again to get updated issues.
198 # warn "issuing book?";
199 AddIssue
( $borrower, $barcode );
200 # ($borrower, $flags) = getpatroninformation(undef,undef, $patronid);
202 # patronid => $patronid,
206 $confirm_required = 1;
207 #warn "issue confirmation";
209 confirm
=> "Issuing title: " . $item->{title
},
212 inputfocus
=> 'confirm',
218 if ($borrower->{cardnumber
}) {
219 # warn "issuer's branchcode: " . $issuer->{branchcode};
220 # warn "user's branchcode: " . $borrower->{branchcode};
221 my $borrowername = sprintf "%s %s", ($borrower->{firstname
} || ''), ($borrower->{surname
} || '');
223 my ($issueslist) = GetPendingIssues
( $borrower->{'borrowernumber'} );
224 foreach my $it (@
$issueslist) {
225 my ($renewokay, $renewerror) = CanBookBeIssued
(
230 C4
::Context
->preference("AllowItemsOnHoldCheckout")
232 $it->{'norenew'} = 1 if $renewokay->{'NO_MORE_RENEWALS'};
238 borrowername
=> $borrowername,
239 issues_count
=> scalar(@issues),
241 patronid
=> $patronid,
242 patronlogin
=> $patronlogin,
243 patronpw
=> $patronpw,
245 borrowernumber
=> $borrower->{'borrowernumber'},
247 my $inputfocus = ($return_only == 1) ?
'returnbook' :
248 ($confirm_required == 1) ?
'confirm' : 'barcode' ;
250 inputfocus
=> $inputfocus,
254 if (C4
::Context
->preference('ShowPatronImageInWebBasedSelfCheck')) {
255 my ($image, $dberror) = GetPatronImage
($borrower->{borrowernumber
});
258 display_patron_image
=> 1,
259 cardnumber
=> $borrower->{cardnumber
},
265 patronid
=> $patronid,
271 SCOUserJS
=> C4
::Context
->preference('SCOUserJS'),
272 SCOUserCSS
=> C4
::Context
->preference('SCOUserCSS'),
275 output_html_with_http_headers
$query, $cookie, $template->output, undef, { force_no_caching
=> 1 };