+# XXX FFZG #1059 -- dpavlin 2012-02-07 print spine labels
+
+use URI::Escape;
+
+my $ip = $query->remote_addr;
+
+if ( my $station = $query->param('station') ) {
+
+ warn "PRINTED $barcode on $station\n";
+
+ my $insert = $dbh->prepare(qq{
+ insert into items_print_log (barcode,itemnumber,station) values (?,?,?)
+ });
+ $insert->execute( $item->{barcode}, $item->{biblioitemnumber}, $station );
+
+} else {
+
+ my $print_data = join(' ',
+ $item->{barcode},
+ $item->{itemcallnumber},
+ );
+
+ print $query->redirect( 'http://printer-zebra.vbz.ffzg.hr/print.cgi?print=' . uri_escape($print_data) . '&return=' . uri_escape($query->self_url) );
+ exit 0;
+
+}
+
+# XXX /FFZG
+