projects
/
koha_gimpoz
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 5864: link biblio => serials subscription is wrong
[koha_gimpoz]
/
labels
/
spinelabel-print.pl
diff --git
a/labels/spinelabel-print.pl
b/labels/spinelabel-print.pl
index
1cfa103
..
7076a08
100755
(executable)
--- a/
labels/spinelabel-print.pl
+++ b/
labels/spinelabel-print.pl
@@
-48,6
+48,11
@@
$sth = $dbh->prepare($sql);
$sth->execute($barcode);
$item = $sth->fetchrow_hashref;
$sth->execute($barcode);
$item = $sth->fetchrow_hashref;
+unless (defined $item) {
+ $template->param( 'Barcode' => $barcode );
+ $template->param( 'BarcodeNotFound' => 1 );
+}
+
my $body;
my $data;
my $body;
my $data;
@@
-57,14
+62,14
@@
while ( my ( $key, $value ) = each(%$item) ) {
$value = '' unless defined $value;
my @characters = split( //, $value );
my $charnum = 1;
$value = '' unless defined $value;
my @characters = split( //, $value );
my $charnum = 1;
- my $word
num
= 1;
+ my $word
ernumber
= 1;
my $i = 1;
foreach my $char (@characters) {
if ( $char ne ' ' ) {
my $i = 1;
foreach my $char (@characters) {
if ( $char ne ' ' ) {
- $data->{$key} .= "<span class='character word$word
num
character$charnum' id='$key$i'>$char</span>";
+ $data->{$key} .= "<span class='character word$word
ernumber
character$charnum' id='$key$i'>$char</span>";
} else {
$data->{$key} .= "<span class='space character$charnum' id='$key$i'>$char</span>";
} else {
$data->{$key} .= "<span class='space character$charnum' id='$key$i'>$char</span>";
- $word
num
++;
+ $word
ernumber
++;
$charnum = 1;
}
$charnum++;
$charnum = 1;
}
$charnum++;