X-Git-Url: http://git.rot13.org/?p=koha-dla;a=blobdiff_plain;f=barcode-seen.pl;h=2f231721e3794f20122a95decb19ec00f382c168;hp=0770ba270722285b5907925a8b5d6bbca12a400e;hb=refs%2Fheads%2Fmaster;hpb=8db2c703978b9bd913a5179937539f612ee8b2d3
diff --git a/barcode-seen.pl b/barcode-seen.pl
index 0770ba2..2f23172 100755
--- a/barcode-seen.pl
+++ b/barcode-seen.pl
@@ -16,6 +16,7 @@ get '/' => sub {
my $c = shift;
my $barcode = $c->param('barcode');
+ $c->stash( barcode => $barcode );
my $dbh = C4::Context->dbh;
my $sth_items = $dbh->prepare(qq{
@@ -72,8 +73,13 @@ __DATA__
%= submit_button 'Scan'
% end
+% if ( stash('title') ) {
<%= stash('author') %>
<%= stash('title') %>
+<%= stash('barcode') %>
+% } else {
+<%= stash('barcode') %> not found
+% }
% if ( stash('userid') ) {
Borrower: