projects
/
share-koha-fer
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
9d700d4
)
added old inventory number (copynumber) and statuses: withdrawn, itemlost, dameged
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 2 Mar 2021 14:25:29 +0000
(15:25 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 2 Mar 2021 14:25:29 +0000
(15:25 +0100)
intranet/cgi-bin/fer/inventura.pl
patch
|
blob
|
history
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,
biblioitems.editionstatement,
biblio.copyrightdate,
items.stocknumber,
+ items.copynumber,
items.itemcallnumber,
items.barcode,
items.homebranch,
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
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>
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>
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{
|;
my $sth_update = $dbh->prepare(qq{