|
Lines 148-158
sub _get_barcode_data {
Link Here
|
| 148 |
next FIELD_LIST; |
148 |
next FIELD_LIST; |
| 149 |
} |
149 |
} |
| 150 |
elsif ( $f =~ /^($match_kohatable).*/ ) { |
150 |
elsif ( $f =~ /^($match_kohatable).*/ ) { |
| 151 |
if ($item->{$f}) { |
151 |
my @fields = split ' ', $f; |
| 152 |
$datastring .= $item->{$f}; |
152 |
my @data; |
| 153 |
} else { |
153 |
for my $field ( @fields ) { |
| 154 |
$debug and warn sprintf("The '%s' field contains no data.", $f); |
154 |
if ($item->{$field}) { |
|
|
155 |
push @data, $item->{$field}; |
| 156 |
} else { |
| 157 |
$debug and warn sprintf("The '%s' field contains no data.", $field); |
| 158 |
} |
| 155 |
} |
159 |
} |
|
|
160 |
$datastring .= join ' ', @data; |
| 156 |
$f = $'; |
161 |
$f = $'; |
| 157 |
next FIELD_LIST; |
162 |
next FIELD_LIST; |
| 158 |
} |
163 |
} |
| 159 |
- |
|
|