3 # Copyright 2017 PTFS-Europe Ltd
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 use JSON
qw( encode_json );
29 use Koha
::Illrequest
::Config
;
30 use Koha
::Illrequests
;
33 use Koha
::Illrequest
::Availability
;
37 # Grab all passed data
38 # 'our' since Plack changes the scoping
40 our $params = $query->Vars();
42 # if illrequests is disabled, leave immediately
43 if ( ! C4
::Context
->preference('ILLModule') ) {
44 print $query->redirect("/cgi-bin/koha/errors/404.pl");
48 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
({
49 template_name
=> "opac-illrequests.tt",
54 # Are we able to actually work?
55 my $reduced = C4
::Context
->preference('ILLOpacbackends');
56 my $backends = Koha
::Illrequest
::Config
->new->available_backends($reduced);
57 my $backends_available = ( scalar @
{$backends} > 0 );
58 $template->param( backends_available
=> $backends_available );
60 my $op = $params->{'method'} || 'list';
62 if ( $op eq 'list' ) {
64 my $requests = Koha
::Illrequests
->search(
65 { borrowernumber
=> $loggedinuser }
67 my $req = Koha
::Illrequest
->new;
69 requests
=> $requests,
73 } elsif ( $op eq 'view') {
74 my $request = Koha
::Illrequests
->find({
75 borrowernumber
=> $loggedinuser,
76 illrequest_id
=> $params->{illrequest_id
}
82 } elsif ( $op eq 'update') {
83 my $request = Koha
::Illrequests
->find({
84 borrowernumber
=> $loggedinuser,
85 illrequest_id
=> $params->{illrequest_id
}
87 $request->notesopac($params->{notesopac
})->store;
88 # Send a notice to staff alerting them of the update
89 $request->send_staff_notice('ILL_REQUEST_MODIFIED');
90 print $query->redirect(
91 '/cgi-bin/koha/opac-illrequests.pl?method=view&illrequest_id=' .
92 $params->{illrequest_id
} .
96 } elsif ( $op eq 'cancreq') {
97 my $request = Koha
::Illrequests
->find({
98 borrowernumber
=> $loggedinuser,
99 illrequest_id
=> $params->{illrequest_id
}
101 $request->status('CANCREQ')->store;
102 print $query->redirect(
103 '/cgi-bin/koha/opac-illrequests.pl?method=view&illrequest_id=' .
104 $params->{illrequest_id
} .
108 } elsif ( $op eq 'create' ) {
109 if (!$params->{backend
}) {
110 my $req = Koha
::Illrequest
->new;
112 backends
=> $req->available_backends
115 my $request = Koha
::Illrequest
->new
116 ->load_backend($params->{backend
});
118 # Does this backend enable us to insert an availability stage and should
119 # we? If not, proceed as normal.
121 C4
::Context
->preference("ILLCheckAvailability") &&
122 $request->_backend_capability(
123 'should_display_availability',
126 # If the user has elected to continue with the request despite
127 # having viewed availability info, this flag will be set
128 !$params->{checked_availability
}
130 # Establish which of the installed availability providers
131 # can service our metadata, if so, jump in
132 my $availability = Koha
::Illrequest
::Availability
->new($params);
133 my $services = $availability->get_services({
136 if (scalar @
{$services} > 0) {
137 # Modify our method so we use the correct part of the
139 $op = 'availability';
140 # Prepare the metadata we're sending them
141 my $metadata = $availability->prep_metadata($params);
143 metadata
=> $metadata,
144 services_json
=> encode_json
($services),
145 services
=> $services,
146 illrequestsview
=> 1,
147 message
=> $params->{message
},
151 output_html_with_http_headers
$query, $cookie,
152 $template->output, undef, { force_no_caching
=> 1 };
157 $params->{cardnumber
} = Koha
::Patrons
->find({
158 borrowernumber
=> $loggedinuser
161 my $backend_result = $request->backend_create($params);
162 if ($backend_result->{stage
} eq 'copyrightclearance') {
164 stage
=> $backend_result->{stage
},
165 whole
=> $backend_result
169 types
=> [ "Book", "Article", "Journal" ],
170 branches
=> Koha
::Libraries
->search->unblessed,
171 whole
=> $backend_result,
174 if ($backend_result->{stage
} eq 'commit') {
175 print $query->redirect('/cgi-bin/koha/opac-illrequests.pl?message=2');
184 message
=> $params->{message
},
185 illrequestsview
=> 1,
189 output_html_with_http_headers
$query, $cookie, $template->output, undef, { force_no_caching
=> 1 };