projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 8649: Add unit test for C4::Search
[koha_fer]
/
C4
/
Koha.pm
diff --git
a/C4/Koha.pm
b/C4/Koha.pm
index
4f386e4
..
26106cf
100644
(file)
--- a/
C4/Koha.pm
+++ b/
C4/Koha.pm
@@
-674,6
+674,7
@@
sub getallthemes {
opendir D, "$htdocs";
my @dirlist = readdir D;
foreach my $directory (@dirlist) {
opendir D, "$htdocs";
my @dirlist = readdir D;
foreach my $directory (@dirlist) {
+ next if $directory eq 'lib';
-d "$htdocs/$directory/en" and push @themes, $directory;
}
return @themes;
-d "$htdocs/$directory/en" and push @themes, $directory;
}
return @themes;
@@
-1232,7
+1233,7
@@
sub GetNormalizedUPC {
}
# Normalizes and returns the first valid ISBN found in the record
}
# Normalizes and returns the first valid ISBN found in the record
-# ISBN13 are converted into ISBN10. This is required to get
Amazon cover book
.
+# ISBN13 are converted into ISBN10. This is required to get
some book cover images
.
sub GetNormalizedISBN {
my ($isbn,$record,$marcflavour) = @_;
my @fields;
sub GetNormalizedISBN {
my ($isbn,$record,$marcflavour) = @_;
my @fields;