Lines 52-125
my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
Link Here
|
52 |
# Are we able to actually work? |
52 |
# Are we able to actually work? |
53 |
my $backends = Koha::Illrequest::Config->new->available_backends; |
53 |
my $backends = Koha::Illrequest::Config->new->available_backends; |
54 |
my $backends_available = ( scalar @{$backends} > 0 ); |
54 |
my $backends_available = ( scalar @{$backends} > 0 ); |
55 |
$template->param( backends_available => $backends_available ); |
55 |
$template->param( |
|
|
56 |
backends => $backends, |
57 |
backends_available => $backends_available |
58 |
); |
56 |
|
59 |
|
57 |
my $op = $params->{'method'} || 'list'; |
60 |
my $op = $params->{'method'} || 'list'; |
58 |
|
61 |
|
59 |
if ( $op eq 'list' ) { |
62 |
if ( $backends_available ) { |
60 |
|
63 |
|
61 |
my $requests = Koha::Illrequests->search( |
64 |
if ( $op eq 'list' ) { |
62 |
{ borrowernumber => $loggedinuser } |
65 |
|
63 |
); |
66 |
my $requests = Koha::Illrequests->search( |
64 |
my $req = Koha::Illrequest->new; |
67 |
{ borrowernumber => $loggedinuser } |
65 |
$template->param( |
68 |
); |
66 |
requests => $requests, |
|
|
67 |
backends => $req->available_backends |
68 |
); |
69 |
|
70 |
} elsif ( $op eq 'view') { |
71 |
my $request = Koha::Illrequests->find({ |
72 |
borrowernumber => $loggedinuser, |
73 |
illrequest_id => $params->{illrequest_id} |
74 |
}); |
75 |
$template->param( |
76 |
request => $request |
77 |
); |
78 |
|
79 |
} elsif ( $op eq 'update') { |
80 |
my $request = Koha::Illrequests->find({ |
81 |
borrowernumber => $loggedinuser, |
82 |
illrequest_id => $params->{illrequest_id} |
83 |
}); |
84 |
$request->notesopac($params->{notesopac})->store; |
85 |
print $query->redirect( |
86 |
'/cgi-bin/koha/opac-illrequests.pl?method=view&illrequest_id=' . |
87 |
$params->{illrequest_id} . |
88 |
'&message=1' |
89 |
); |
90 |
} elsif ( $op eq 'cancreq') { |
91 |
my $request = Koha::Illrequests->find({ |
92 |
borrowernumber => $loggedinuser, |
93 |
illrequest_id => $params->{illrequest_id} |
94 |
}); |
95 |
$request->status('CANCREQ')->store; |
96 |
print $query->redirect( |
97 |
'/cgi-bin/koha/opac-illrequests.pl?method=view&illrequest_id=' . |
98 |
$params->{illrequest_id} . |
99 |
'&message=1' |
100 |
); |
101 |
|
102 |
} elsif ( $op eq 'create' ) { |
103 |
if (!$params->{backend}) { |
104 |
my $req = Koha::Illrequest->new; |
105 |
$template->param( |
69 |
$template->param( |
106 |
backends => $req->available_backends |
70 |
requests => $requests |
107 |
); |
71 |
); |
108 |
} else { |
72 |
|
109 |
my $request = Koha::Illrequest->new |
73 |
} elsif ( $op eq 'view') { |
110 |
->load_backend($params->{backend}); |
74 |
my $request = Koha::Illrequests->find({ |
111 |
$params->{cardnumber} = Koha::Patrons->find({ |
75 |
borrowernumber => $loggedinuser, |
112 |
borrowernumber => $loggedinuser |
76 |
illrequest_id => $params->{illrequest_id} |
113 |
})->cardnumber; |
77 |
}); |
114 |
my $backend_result = $request->backend_create($params); |
|
|
115 |
$template->param( |
78 |
$template->param( |
116 |
media => [ "Book", "Article", "Journal" ], |
79 |
request => $request |
117 |
branches => Koha::Libraries->search->unblessed, |
|
|
118 |
whole => $backend_result, |
119 |
request => $request |
120 |
); |
80 |
); |
121 |
if ($backend_result->{stage} eq 'commit') { |
81 |
|
122 |
print $query->redirect('/cgi-bin/koha/opac-illrequests.pl?message=2'); |
82 |
} elsif ( $op eq 'update') { |
|
|
83 |
my $request = Koha::Illrequests->find({ |
84 |
borrowernumber => $loggedinuser, |
85 |
illrequest_id => $params->{illrequest_id} |
86 |
}); |
87 |
$request->notesopac($params->{notesopac})->store; |
88 |
print $query->redirect( |
89 |
'/cgi-bin/koha/opac-illrequests.pl?method=view&illrequest_id=' . |
90 |
$params->{illrequest_id} . |
91 |
'&message=1' |
92 |
); |
93 |
|
94 |
} elsif ( $op eq 'cancreq') { |
95 |
my $request = Koha::Illrequests->find({ |
96 |
borrowernumber => $loggedinuser, |
97 |
illrequest_id => $params->{illrequest_id} |
98 |
}); |
99 |
$request->status('CANCREQ')->store; |
100 |
print $query->redirect( |
101 |
'/cgi-bin/koha/opac-illrequests.pl?method=view&illrequest_id=' . |
102 |
$params->{illrequest_id} . |
103 |
'&message=1' |
104 |
); |
105 |
|
106 |
} elsif ( $op eq 'create' ) { |
107 |
if ($params->{backend}) { |
108 |
my $request = Koha::Illrequest->new |
109 |
->load_backend($params->{backend}); |
110 |
$params->{cardnumber} = Koha::Patrons->find({ |
111 |
borrowernumber => $loggedinuser |
112 |
})->cardnumber; |
113 |
my $backend_result = $request->backend_create($params); |
114 |
$template->param( |
115 |
media => [ "Book", "Article", "Journal" ], |
116 |
branches => Koha::Libraries->search->unblessed, |
117 |
whole => $backend_result, |
118 |
request => $request |
119 |
); |
120 |
if ($backend_result->{stage} eq 'commit') { |
121 |
print $query->redirect('/cgi-bin/koha/opac-illrequests.pl?message=2'); |
122 |
} |
123 |
} |
123 |
} |
124 |
} |
124 |
} |
125 |
} |
125 |
} |
Lines 127-133
if ( $op eq 'list' ) {
Link Here
|
127 |
$template->param( |
127 |
$template->param( |
128 |
message => $params->{message}, |
128 |
message => $params->{message}, |
129 |
illrequestsview => 1, |
129 |
illrequestsview => 1, |
130 |
method => $op |
130 |
method => $op |
131 |
); |
131 |
); |
132 |
|
132 |
|
133 |
output_html_with_http_headers $query, $cookie, $template->output; |
133 |
output_html_with_http_headers $query, $cookie, $template->output; |
134 |
- |
|
|