added old inventory number (copynumber) and statuses: withdrawn, itemlost, dameged

diff --git a/intranet/cgi-bin/fer/inventura.pl b/intranet/cgi-bin/fer/inventura.pl
index 6d88bb4..458ca1c 100755 (executable)
--- a/intranet/cgi-bin/fer/inventura.pl
+++ b/intranet/cgi-bin/fer/inventura.pl
@@ -75,10 +75,14 @@ if ( $barcode ) {
                biblioitems.editionstatement,
                biblio.copyrightdate,
                items.stocknumber,
+               items.copynumber,
                items.itemcallnumber,
                items.barcode,
                items.homebranch,
-               items.location
+               items.location,
+               items.withdrawn,
+               items.itemlost,
+               items.damaged
        from items
        join biblio on items.biblionumber = biblio.biblionumber
        join biblioitems on items.biblionumber = biblioitems.biblionumber
@@ -100,10 +104,14 @@ autor: $row->{author}<br>
 izdavač: $row->{publishercode}<br>
 izdanje: $row->{editionstatement}<br>
 godina izdanja: $row->{copyrightdate}<br>
-inventarni broj: $row->{stocknumber}<br>
+inventarni broj novi: $row->{stocknumber}<br>
+inventarni broj stari: $row->{copynumber}<br>
 signatura: $row->{itemcallnumber}<br>
 stalna lokacija: $row->{homebranch}<br>
 lokacija na polici: $row->{location}<br>
+status otpisano: $row->{withdrawn}<br>
+status izgubljeno: $row->{itemlost}<br>
+status uništeno: $row->{damaged}<br>
                        |;
 
                        my $sth_update = $dbh->prepare(qq{