From 66bf985d0a41432abcc9eafcafa7bf170ef25d59 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Wed, 11 Jun 2003 18:48:07 +0000
Subject: [PATCH] Added two new routines for getting a list of available
 themes/languages (used by new systempreferences.pl script to present a list
 of available themes or languages).

---
 C4/Search.pm | 116 ++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 115 insertions(+), 1 deletion(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 1551974e44..0522fa9529 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -62,7 +62,7 @@ on what is passed to it, it calls the appropriate search function.
 &getboracctrecord &ItemType &itemissues &subject &subtitle
 &addauthor &bibitems &barcodes &findguarantees &allissues
 &findguarantor &getwebsites &getwebbiblioitems &catalogsearch &itemcount2
-&isbnsearch &breedingsearch);
+&isbnsearch &breedingsearch &getallthemes &getalllanguages);
 # make all your functions, whether exported or not;
 
 =item findguarantees
@@ -2425,6 +2425,120 @@ sub breedingsearch {
 	return($count, @results);
 } # sub breedingsearch
 
+
+=item getalllanguages 
+
+  (@languages) = &getalllanguages();
+  (@languages) = &getalllanguages($theme);
+
+Returns an array of all available languages.
+
+=cut
+
+sub getalllanguages {
+    my $type=shift;
+    my $theme=shift;
+    my $htdocs;
+    my @languages;
+    if ($type eq 'opac') {
+	$htdocs=C4::Context->config('opachtdocs');
+	if ($theme and -d "$htdocs/$theme") {
+	    opendir D, "$htdocs/$theme";
+	    foreach my $language (readdir D) {
+		next if $language=~/^\./;
+		next if $language eq 'all';
+		push @languages, $language;
+	    }
+	    return sort @languages;
+	} else {
+	    my $lang;
+	    foreach my $theme (getallthemes('opac')) {
+		opendir D, "$htdocs/$theme";
+		foreach my $language (readdir D) {
+		    next if $language=~/^\./;
+		    next if $language eq 'all';
+		    $lang->{$language}=1;
+		}
+	    }
+	    @languages=keys %$lang;
+	    return sort @languages;
+	}
+    } elsif ($type eq 'intranet') {
+	$htdocs=C4::Context->config('intrahtdocs');
+	if ($theme and -d "$htdocs/$theme") {
+	    opendir D, "$htdocs/$theme";
+	    foreach my $language (readdir D) {
+		next if $language=~/^\./;
+		next if $language eq 'all';
+		push @languages, $language;
+	    }
+	    return sort @languages;
+	} else {
+	    my $lang;
+	    foreach my $theme (getallthemes('opac')) {
+		opendir D, "$htdocs/$theme";
+		foreach my $language (readdir D) {
+		    next if $language=~/^\./;
+		    next if $language eq 'all';
+		    $lang->{$language}=1;
+		}
+	    }
+	    @languages=keys %$lang;
+	    return sort @languages;
+	}
+    } else {
+	my $lang;
+	my $htdocs=C4::Context->config('intrahtdocs');
+	foreach my $theme (getallthemes('intranet')) {
+	    opendir D, "$htdocs/$theme";
+	    foreach my $language (readdir D) {
+		next if $language=~/^\./;
+		next if $language eq 'all';
+		$lang->{$language}=1;
+	    }
+	}
+	my $htdocs=C4::Context->config('opachtdocs');
+	foreach my $theme (getallthemes('opac')) {
+	    opendir D, "$htdocs/$theme";
+	    foreach my $language (readdir D) {
+		next if $language=~/^\./;
+		next if $language eq 'all';
+		$lang->{$language}=1;
+	    }
+	}
+	@languages=keys %$lang;
+	return sort @languages;
+    }
+}
+
+=item getallthemes 
+
+  (@themes) = &getallthemes('opac');
+  (@themes) = &getallthemes('intranet');
+
+Returns an array of all available themes.
+
+=cut
+
+sub getallthemes {
+    my $type=shift;
+    my $htdocs;
+    my @themes;
+    if ($type eq 'intranet') {
+	$htdocs=C4::Context->config('intrahtdocs');
+    } else {
+	$htdocs=C4::Context->config('opachtdocs');
+    }
+    opendir D, "$htdocs";
+    my @dirlist=readdir D;
+    foreach my $directory (@dirlist) {
+	-d "$htdocs/$directory/en" and push @themes, $directory;
+    }
+    return @themes;
+}
+
+
+
 =item isbnsearch
 
   ($count, @results) = &isbnsearch($isbn,$title);
-- 
2.39.2