|
Lines 112-118
sub slashifyDate {
Link Here
|
| 112 |
} |
112 |
} |
| 113 |
|
113 |
|
| 114 |
# FIXME.. this should be moved to a MARC-specific module |
114 |
# FIXME.. this should be moved to a MARC-specific module |
| 115 |
sub subfield_is_koha_internal_p ($) { |
115 |
sub subfield_is_koha_internal_p { |
| 116 |
my ($subfield) = @_; |
116 |
my ($subfield) = @_; |
| 117 |
|
117 |
|
| 118 |
# We could match on 'lib' and 'tab' (and 'mandatory', & more to come!) |
118 |
# We could match on 'lib' and 'tab' (and 'mandatory', & more to come!) |
|
Lines 471-477
sub getitemtypeimagesrc {
Link Here
|
| 471 |
} |
471 |
} |
| 472 |
} |
472 |
} |
| 473 |
|
473 |
|
| 474 |
sub getitemtypeimagelocation($$) { |
474 |
sub getitemtypeimagelocation { |
| 475 |
my ( $src, $image ) = @_; |
475 |
my ( $src, $image ) = @_; |
| 476 |
|
476 |
|
| 477 |
return '' if ( !$image ); |
477 |
return '' if ( !$image ); |
|
Lines 630-636
sub GetPrinters {
Link Here
|
| 630 |
|
630 |
|
| 631 |
=cut |
631 |
=cut |
| 632 |
|
632 |
|
| 633 |
sub GetPrinter ($$) { |
633 |
sub GetPrinter { |
| 634 |
my ( $query, $printers ) = @_; # get printer for this query from printers |
634 |
my ( $query, $printers ) = @_; # get printer for this query from printers |
| 635 |
my $printer = $query->param('printer'); |
635 |
my $printer = $query->param('printer'); |
| 636 |
my %cookie = $query->cookie('userenv'); |
636 |
my %cookie = $query->cookie('userenv'); |
|
Lines 1109-1115
sub GetKohaAuthorisedValues {
Link Here
|
| 1109 |
} |
1109 |
} |
| 1110 |
return \%values; |
1110 |
return \%values; |
| 1111 |
} else { |
1111 |
} else { |
| 1112 |
return undef; |
1112 |
return; |
| 1113 |
} |
1113 |
} |
| 1114 |
} |
1114 |
} |
| 1115 |
|
1115 |
|
|
Lines 1140-1146
sub GetKohaAuthorisedValuesFromField {
Link Here
|
| 1140 |
} |
1140 |
} |
| 1141 |
return \%values; |
1141 |
return \%values; |
| 1142 |
} else { |
1142 |
} else { |
| 1143 |
return undef; |
1143 |
return; |
| 1144 |
} |
1144 |
} |
| 1145 |
} |
1145 |
} |
| 1146 |
|
1146 |
|
|
Lines 1242-1248
sub GetNormalizedISBN {
Link Here
|
| 1242 |
$isbn =~ s/(.*)( \| )(.*)/$1/; |
1242 |
$isbn =~ s/(.*)( \| )(.*)/$1/; |
| 1243 |
return _isbn_cleanup($isbn); |
1243 |
return _isbn_cleanup($isbn); |
| 1244 |
} |
1244 |
} |
| 1245 |
return undef unless $record; |
1245 |
return unless $record; |
| 1246 |
|
1246 |
|
| 1247 |
if ($marcflavour eq 'UNIMARC') { |
1247 |
if ($marcflavour eq 'UNIMARC') { |
| 1248 |
@fields = $record->field('010'); |
1248 |
@fields = $record->field('010'); |
|
Lines 1251-1257
sub GetNormalizedISBN {
Link Here
|
| 1251 |
if ($isbn) { |
1251 |
if ($isbn) { |
| 1252 |
return _isbn_cleanup($isbn); |
1252 |
return _isbn_cleanup($isbn); |
| 1253 |
} else { |
1253 |
} else { |
| 1254 |
return undef; |
1254 |
return; |
| 1255 |
} |
1255 |
} |
| 1256 |
} |
1256 |
} |
| 1257 |
} |
1257 |
} |
|
Lines 1262-1268
sub GetNormalizedISBN {
Link Here
|
| 1262 |
if ($isbn) { |
1262 |
if ($isbn) { |
| 1263 |
return _isbn_cleanup($isbn); |
1263 |
return _isbn_cleanup($isbn); |
| 1264 |
} else { |
1264 |
} else { |
| 1265 |
return undef; |
1265 |
return; |
| 1266 |
} |
1266 |
} |
| 1267 |
} |
1267 |
} |
| 1268 |
} |
1268 |
} |
|
Lines 1307-1313
sub GetNormalizedOCLCNumber {
Link Here
|
| 1307 |
$oclc =~ s/\(OCoLC\)//; |
1307 |
$oclc =~ s/\(OCoLC\)//; |
| 1308 |
return $oclc; |
1308 |
return $oclc; |
| 1309 |
} else { |
1309 |
} else { |
| 1310 |
return undef; |
1310 |
return; |
| 1311 |
} |
1311 |
} |
| 1312 |
} |
1312 |
} |
| 1313 |
} |
1313 |
} |
| 1314 |
- |
|
|