Lines 93-107
if (defined C4::Context->preference('AllowSelfCheckReturns')) {
Link Here
|
93 |
} |
93 |
} |
94 |
|
94 |
|
95 |
my $issuerid = $loggedinuser; |
95 |
my $issuerid = $loggedinuser; |
96 |
my ($op, $patronid, $patronlogin, $patronpw, $barcode, $confirmed) = ( |
96 |
my ($op, $patronid, $patronlogin, $patronpw, $barcode, $confirmed, $newissues) = ( |
97 |
$query->param("op") || '', |
97 |
$query->param("op") || '', |
98 |
$query->param("patronid") || '', |
98 |
$query->param("patronid") || '', |
99 |
$query->param("patronlogin")|| '', |
99 |
$query->param("patronlogin")|| '', |
100 |
$query->param("patronpw") || '', |
100 |
$query->param("patronpw") || '', |
101 |
$query->param("barcode") || '', |
101 |
$query->param("barcode") || '', |
102 |
$query->param("confirmed") || '', |
102 |
$query->param("confirmed") || '', |
|
|
103 |
$query->param("newissues") || '', |
103 |
); |
104 |
); |
104 |
|
105 |
my @newissueslist = split /,/, $newissues; |
105 |
my $issuenoconfirm = 1; #don't need to confirm on issue. |
106 |
my $issuenoconfirm = 1; #don't need to confirm on issue. |
106 |
my $issuer = Koha::Patrons->find( $issuerid )->unblessed; |
107 |
my $issuer = Koha::Patrons->find( $issuerid )->unblessed; |
107 |
my $item = GetItem(undef,$barcode); |
108 |
my $item = GetItem(undef,$barcode); |
Lines 215-221
elsif ( $patron and $op eq "checkout" ) {
Link Here
|
215 |
)->count; |
216 |
)->count; |
216 |
} |
217 |
} |
217 |
AddIssue( $borrower, $barcode ); |
218 |
AddIssue( $borrower, $barcode ); |
218 |
|
219 |
push @newissueslist, $barcode; |
|
|
220 |
print 'Issues \n'; |
221 |
print join(',', @newissueslist); |
219 |
if ( $hold_existed ) { |
222 |
if ( $hold_existed ) { |
220 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
223 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
221 |
$template->param( |
224 |
$template->param( |
Lines 245-250
elsif ( $patron and $op eq "checkout" ) {
Link Here
|
245 |
} # $op |
248 |
} # $op |
246 |
|
249 |
|
247 |
if ($borrower) { |
250 |
if ($borrower) { |
|
|
251 |
print 'borrower \n'; |
248 |
# warn "issuer's branchcode: " . $issuer->{branchcode}; |
252 |
# warn "issuer's branchcode: " . $issuer->{branchcode}; |
249 |
# warn "user's branchcode: " . $borrower->{branchcode}; |
253 |
# warn "user's branchcode: " . $borrower->{branchcode}; |
250 |
my $borrowername = sprintf "%s %s", ($borrower->{firstname} || ''), ($borrower->{surname} || ''); |
254 |
my $borrowername = sprintf "%s %s", ($borrower->{firstname} || ''), ($borrower->{surname} || ''); |
Lines 267-272
if ($borrower) {
Link Here
|
267 |
borrowername => $borrowername, |
271 |
borrowername => $borrowername, |
268 |
issues_count => scalar(@checkouts), |
272 |
issues_count => scalar(@checkouts), |
269 |
ISSUES => \@checkouts, |
273 |
ISSUES => \@checkouts, |
|
|
274 |
newissues => join(',',@newissueslist), |
270 |
patronid => $patronid, |
275 |
patronid => $patronid, |
271 |
patronlogin => $patronlogin, |
276 |
patronlogin => $patronlogin, |
272 |
patronpw => $patronpw, |
277 |
patronpw => $patronpw, |
273 |
- |
|
|