View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All

(-)a/C4/Koha.pm (-10 / +9 lines)
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
- 

Return to bug 6679