more info in output

diff --git a/intranet/cgi-bin/fer/inventura.pl b/intranet/cgi-bin/fer/inventura.pl
index 4efea4c..af0aa55 100755 (executable)
--- a/intranet/cgi-bin/fer/inventura.pl
+++ b/intranet/cgi-bin/fer/inventura.pl
@@ -6,6 +6,7 @@ use C4::Context;
 use C4::Circulation;
 use Data::Dump qw(dump);
 use CGI qw ( -utf8 );
+use utf8;
 
 binmode STDOUT, ':encoding(UTF-8)';
 
@@ -67,9 +68,18 @@ if ( $barcode ) {
                itemnumber,
                items.biblionumber as biblionumber,
                title,
-               author
+               author,
+               biblioitems.publishercode,
+               biblioitems.editionstatement,
+               biblio.copyrightdate,
+               items.stocknumber,
+               items.itemcallnumber,
+               items.barcode,
+               items.homebranch,
+               items.location
        from items
        join biblio on items.biblionumber = biblio.biblionumber
+       join biblioitems on items.biblionumber = biblioitems.biblionumber
        where barcode = ?
        };
 
@@ -82,9 +92,16 @@ if ( $barcode ) {
                        $row = $sth->fetchrow_hashref;
 
                        print qq|
-BARCODE: <tt>$barcode</tt><br>
-TITLE: <b>$row->{title}</b><br>
-AUTHOR: $row->{author}<br>
+barcode: <tt>$barcode</tt><br>
+naslov: <b>$row->{title}</b><br>
+autor: $row->{author}<br>
+izdavač: $row->{publishercode}<br>
+izdanje: $row->{editionstatement}<br>
+godina izdanja: $row->{copyrightdate}<br>
+inventarni broj: $row->{stocknumber}<br>
+signatura: $row->{itemcallnumber}<br>
+stalna lokacija: $row->{homebranch}<br>
+lokacija na polici: $row->{location}<br>
                        |;
 
                        my $sth_update = $dbh->prepare(qq{