From cd35806eb7e828f19c6578db966c007112f1532c Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 1 Nov 2018 11:24:31 +0100
Subject: [PATCH] display barcode for item

---
 barcode-seen.pl | 6 ++++++
 1 file changed, 6 insertions(+)

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') %>
 <b><%= stash('title') %></b>
+<%= stash('barcode') %>
+% } else {
+<big style="color:red"><%= stash('barcode') %> not found</big>
+% }
 
 % if ( stash('userid') ) {
 <br>Borrower:
-- 
2.20.1