use C4::Circulation;
use Data::Dump qw(dump);
use CGI qw ( -utf8 );
+use utf8;
binmode STDOUT, ':encoding(UTF-8)';
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 = ?
};
$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{