Lines 103-109
for (@failedrenews) { $renew_failed[$_] = 1; }
Link Here
|
103 |
|
103 |
|
104 |
my $sessionID = $query->cookie("CGISESSID") ; |
104 |
my $sessionID = $query->cookie("CGISESSID") ; |
105 |
my $session = get_session($sessionID); |
105 |
my $session = get_session($sessionID); |
106 |
my $sounderror; |
106 |
my ( $sounderror, $soundok ); |
107 |
my @soundederrors = @{ $session->param( 'soundederrors' ) } if ( $session->param( 'soundederrors' ) ); |
107 |
my @soundederrors = @{ $session->param( 'soundederrors' ) } if ( $session->param( 'soundederrors' ) ); |
108 |
my %soundederrors; |
108 |
my %soundederrors; |
109 |
for ( @soundederrors ) { $soundederrors{ $_ } = 1; } |
109 |
for ( @soundederrors ) { $soundederrors{ $_ } = 1; } |
Lines 302-307
if ($barcode) {
Link Here
|
302 |
# we have no blockers for issuing and any issues needing confirmation have been resolved |
302 |
# we have no blockers for issuing and any issues needing confirmation have been resolved |
303 |
AddIssue( $borrower, $barcode, $datedue, $cancelreserve ); |
303 |
AddIssue( $borrower, $barcode, $datedue, $cancelreserve ); |
304 |
$inprocess = 1; |
304 |
$inprocess = 1; |
|
|
305 |
$soundok = 1; |
305 |
} |
306 |
} |
306 |
elsif ($issueconfirmed){ # FIXME: Do something? Or is this to *intentionally* do nothing? |
307 |
elsif ($issueconfirmed){ # FIXME: Do something? Or is this to *intentionally* do nothing? |
307 |
} |
308 |
} |
Lines 328-333
if ($barcode) {
Link Here
|
328 |
if ($noquestion) { |
329 |
if ($noquestion) { |
329 |
AddIssue( $borrower, $barcode, $datedue ); |
330 |
AddIssue( $borrower, $barcode, $datedue ); |
330 |
$inprocess = 1; |
331 |
$inprocess = 1; |
|
|
332 |
$soundok = 1; |
331 |
} |
333 |
} |
332 |
} |
334 |
} |
333 |
$template->param( |
335 |
$template->param( |
Lines 767-772
$template->param( picture => 1 ) if $picture;
Link Here
|
767 |
$session->param('soundederrors', [ keys %soundederrors ] ); |
769 |
$session->param('soundederrors', [ keys %soundederrors ] ); |
768 |
$template->param( |
770 |
$template->param( |
769 |
sounderror => $sounderror, |
771 |
sounderror => $sounderror, |
|
|
772 |
soundok => $soundok, |
770 |
); |
773 |
); |
771 |
|
774 |
|
772 |
$template->param( |
775 |
$template->param( |