From: Dobrica Pavlinusic Date: Tue, 30 Oct 2018 08:43:30 +0000 (+0100) Subject: AddReturn if item is issued X-Git-Url: http://git.rot13.org/?p=koha-dla;a=commitdiff_plain;h=f37379012d8ba81a301c175382104e0e2828a60e;ds=sidebyside AddReturn if item is issued --- diff --git a/barcode-seen.pl b/barcode-seen.pl index e53fb64..7c651c9 100755 --- a/barcode-seen.pl +++ b/barcode-seen.pl @@ -6,19 +6,21 @@ BEGIN { $ENV{KOHA_CONF} = '/etc/koha/sites/ffzg/koha-conf.xml'; } use C4::Context; +use C4::Circulation; use Data::Dump qw(dump); -my $sql = qq{ + +my $dbh = C4::Context->dbh; +my $sth_items = $dbh->prepare(qq{ select + itemnumber, + items.biblionumber, title, author from items join biblio on biblio.biblionumber = items.biblionumber where barcode = ? -}; - -my $dbh = C4::Context->dbh; -my $sth = $dbh->prepare($sql); +}); my $sth_update = $dbh->prepare(qq{ update items set datelastseen = now() where barcode = ? @@ -27,18 +29,33 @@ update items set datelastseen = now() where barcode = ? my $sth_inventura = $dbh->prepare(qq{ insert ignore into ffzg_inventura (date_scanned,barcode,source_id) values (date(now()), ?, 'abc') }); + +my $sth_issues = $dbh->prepare(qq{ +select firstname,surname,userid,email from issues join borrowers on issues.borrowernumber = borrowers.borrowernumber where itemnumber = ? +}); + + get '/' => sub { my $c = shift; my $barcode = $c->param('barcode'); warn "# $barcode"; - $sth->execute( $barcode ); - while ( my $row = $sth->fetchrow_hashref ) { - warn "# row ",dump($row); + $sth_items->execute( $barcode ); + while ( my $row = $sth_items->fetchrow_hashref ) { + warn "# items row ",dump($row); $c->stash( $_ => $row->{$_} ) foreach keys %$row; } + $sth_update->execute( $barcode ); $sth_inventura->execute( $barcode ); + + $sth_issues->execute( $c->stash('itemnumber') ); + while ( my $row = $sth_issues->fetchrow_hashref ) { + warn "# issues row ",dump($row); + $c->stash( $_ => $row->{$_} ) foreach keys %$row; + AddReturn( $barcode, 'FFZG' ); + } + $c->render(template => 'index'); }; @@ -57,6 +74,16 @@ __DATA__ <%= stash('author') %> <%= stash('title') %> +% if ( stash('userid') ) { +
Borrower: + +<%= stash('userid') %> +<%= stash('firstname') %> +<%= stash('surname') %> +<%= stash('email') %> + +% } + @@ layouts/default.html.ep @@ -64,7 +91,7 @@ __DATA__ Inventura