Bug 2900: fix GetPendingIssues.
[wip/koha-chris_n.git] / opac / sco / sco-main.pl
1 #!/usr/bin/perl
2 # This code has been modified by Trendsetters (originally from opac-user.pl)
3 # This code has been modified by rch
4 # We're going to authenticate a self-check user.  we'll add a flag to borrowers 'selfcheck'
5 # We're in a controlled environment; we trust the user. so the selfcheck station will accept a patronid and 
6 # issue items to that borrower.
7 #
8 use strict;
9 use warnings;
10
11 use CGI;
12
13 #use C4::Authsco;
14 use C4::Auth;
15 use C4::Koha;
16 use C4::Circulation;
17 use C4::Reserves;
18 use C4::Search;
19 use C4::Output;
20 use C4::Members;
21 use HTML::Template::Pro;
22 use C4::Dates;
23 use C4::Biblio;
24 use C4::Items;
25
26 my $query = new CGI;
27 my ($template, $loggedinuser, $cookie)
28     = get_template_and_user({template_name => "sco/sco-main.tmpl",
29                              query => $query,
30                              type => "opac",
31                              authnotrequired => 0,
32                              flagsrequired => { circulate => "circulate_remaining_permissions" },
33                              debug => 1,
34                              });
35 my $dbh = C4::Context->dbh;
36
37 my $issuerid = $loggedinuser;
38 my ($op, $patronid, $barcode, $confirmed, $timedout) = (
39     $query->param("op")         || '',
40     $query->param("patronid")   || '',
41     $query->param("barcode")    || '',
42     $query->param( "confirmed") || '',
43     $query->param( "timedout")  || '', #not actually using this...
44 );
45
46 my %confirmation_strings = ( RENEW_ISSUE => "This item is already checked out to you.  Return it?", );
47 my $issuenoconfirm = 1; #don't need to confirm on issue.
48 my $cnt = 0;
49 #warn "issuerid: " . $issuerid;
50 my ($issuer) = GetMemberDetails($issuerid);
51 my $item = GetItem(undef,$barcode);
52 my $borrower;
53 ($borrower) = GetMemberDetails(undef,$patronid);
54
55 my $branch = $issuer->{branchcode};
56 my $confirm_required = 0;
57 my $return_only = 0;
58 #warn "issuer cardnum: " . $issuer->{cardnumber};
59 #warn "cardnumber= ".$borrower->{cardnumber};
60 if ($op eq "logout") {
61         $query->param( patronid => undef );
62 }
63   if ($op eq "returnbook") {
64       my ($doreturn ) = AddReturn($barcode, $branch);
65      #warn "returnbook: " . $doreturn;
66     ($borrower) = GetMemberDetails(undef, $patronid);
67   }
68   
69   if ($op eq "checkout" ) {
70         my $impossible = {};
71         my $needconfirm = {};
72       if ( !$confirmed ) {
73          ($impossible,$needconfirm) = CanBookBeIssued($borrower,$barcode);
74       }
75         $confirm_required = scalar(keys(%$needconfirm));
76         #warn "confirm_required: " . $confirm_required ;
77         if (scalar(keys(%$impossible))) {
78     #  warn "impossible: numkeys: " . scalar (keys(%$impossible));
79          my ($issue_error) = keys %$impossible ;
80          # FIXME  we assume only one error.
81          $template->param( impossible => $issue_error,
82                         title => $item->{title} ,
83                         hide_main => 1,
84                         );
85         #warn "issue_error: " . $issue_error ;
86         if ($issue_error eq "NO_MORE_RENEWALS") {
87                 $return_only = 1;
88                 $template->param ( returnitem => 1,
89                                 barcode => $barcode ,
90                                 );
91          }
92       } elsif ($needconfirm->{RENEW_ISSUE} ) {
93           if ( $confirmed ) {
94           #warn "renewing";
95             AddRenewal($borrower,$item->{itemnumber});
96           } else {
97           #warn "renew confirmation";
98            $template->param( renew => 1,
99                         barcode => $barcode,
100             confirm => 1,
101             confirm_renew_issue => 1,
102                         hide_main => 1,
103                         );
104           }
105       } elsif ( $confirm_required && !$confirmed ) {
106       #warn "failed confirmation";
107          my ($confirmation) = keys %$needconfirm ;
108          $template->param( impossible => $confirmation,
109                         hide_main => 1,
110                         );
111       } else {
112          if ( $confirmed || $issuenoconfirm ) {  # we'll want to call getpatroninfo again to get updated issues.
113             #warn "issuing book?";
114             AddIssue($borrower,$barcode);
115         #    ($borrower, $flags) = getpatroninformation(undef,undef, $patronid);
116                 
117        #    $template->param( patronid => $patronid,
118 #                       validuser => 1,
119 #                       );
120          } else {
121            $confirm_required = 1;
122            #warn "issue confirmation";
123            $template->param( confirm => "Issuing title: " . $item->{title} ,
124                         barcode => $barcode,
125                         hide_main => 1,
126                         inputfocus => 'confirm',
127                         );
128         }
129       }
130    } # op=checkout
131
132 if ($borrower->{cardnumber}) {
133
134 #   warn "here's the issuer's  branchcode: ".$issuer->{branchcode};
135 #   warn "here's the user's  branchcode: ".$borrower->{branchcode};
136         my $bornum = $borrower->{borrowernumber};
137         my $borrowername = $borrower->{firstname} . " " . $borrower->{surname};
138         my @issues;
139         my ($issueslist) = GetPendingIssues($borrower->{'borrowernumber'});
140         foreach my $it ( @$issueslist ) {
141                 push @issues, $it;
142                 $cnt++;
143         }
144    $template->param(  validuser => 1,  
145                         borrowername => $borrowername,
146                         issues_count => $cnt, 
147                         ISSUES => \@issues,,
148                         patronid => $patronid ,
149                         noitemlinks => 1 ,
150                 );
151    $cnt = 0;
152    my $inputfocus;
153    if ($return_only ==1) {
154       $inputfocus = 'returnbook' ;
155    }elsif ($confirm_required == 1) {
156       $inputfocus = 'confirm' ;
157    } else {
158       $inputfocus = 'barcode' ;
159     }
160
161 $template->param( inputfocus => $inputfocus,
162                 nofines => 1,
163                 );
164
165 } else {
166
167  $template->param( patronid => $patronid,  nouser => $patronid,
168                         inputfocus => 'patronid', );
169 }
170
171 output_html_with_http_headers $query, $cookie, $template->output;