X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FKoha.pm;h=26106cf4181a08982d11d6b675fd6edd53e5062d;hb=37f3807442ce1136a57e6fec76648994ada7a5cb;hp=ebb3eed203b49525023e8935c9a5f4d19975e84c;hpb=6e60986819e9c37e3d41584b89fbddbf68e7484d;p=koha.git

diff --git a/C4/Koha.pm b/C4/Koha.pm
index ebb3eed203..26106cf418 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -33,7 +33,7 @@ use autouse 'Data::Dumper' => qw(Dumper);
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $DEBUG);
 
 BEGIN {
-	$VERSION = 3.01;
+    $VERSION = 3.07.00.049;
 	require Exporter;
 	@ISA    = qw(Exporter);
 	@EXPORT = qw(
@@ -674,6 +674,7 @@ sub getallthemes {
     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;
@@ -760,6 +761,12 @@ sub getFacets {
                 tags  => [ qw/ 440a 490a / ],
                 sep   => ', ',
             },
+            {
+                idx   => 'itype',
+                label => 'ItemTypes',
+                tags  => [ qw/ 952y 942c / ],
+                sep   => ', ',
+            },
             ];
             my $library_facet;
             $library_facet = {
@@ -1226,7 +1233,7 @@ sub GetNormalizedUPC {
 }
 
 # 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;