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 |
- |
|
|