From 39df81e37837b28c5af9738ed53e4535c850c5c5 Mon Sep 17 00:00:00 2001
From: Josip Rodin <joy>
Date: Sun, 22 Jul 2001 19:03:09 +0000
Subject: commented out arabic from the hash because we don't actually have an
 Arabic translation right now :/

CVS version numbers

stattrans.pl: 1.21 -> 1.22
touch_translations.pl: 1.7 -> 1.8
english/template/debian/languages.wml: 1.90 -> 1.91
---
 english/template/debian/languages.wml | 4 ++--
 stattrans.pl                          | 8 ++++----
 touch_translations.pl                 | 2 +-
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/english/template/debian/languages.wml b/english/template/debian/languages.wml
index 9c69bbb0849..bf6c1da3e29 100644
--- a/english/template/debian/languages.wml
+++ b/english/template/debian/languages.wml
@@ -60,7 +60,7 @@
 # Do _not_ translate the directory names.
 #            Directory   Abbrev
 my %langs = ( english    => "en",
-              arabic     => "ar",
+#             arabic     => "ar",
               catalan    => "ca",
               danish     => "da",
               german     => "de",
@@ -90,7 +90,7 @@ my %langs = ( english    => "en",
 # those that have browser that cannot show different character sets at
 # once.
 my %translit = (
-  arabic   => "Arbytm",
+# arabic   => "Arbytm",
   chinese  => "Zhongzu",
   greek    => "Ellynika",
   japanese => "Nihongo",
diff --git a/stattrans.pl b/stattrans.pl
index 0e5d95f5bda..0b282fc3225 100755
--- a/stattrans.pl
+++ b/stattrans.pl
@@ -44,7 +44,7 @@ $min_versions = 1;
 # from english/template/debian/languages.wml
 # TODO: Needs to be synced frequently or fixed so it's automatic
 my %langs = ( english    => "en",
-              arabic     => "ar",
+#             arabic     => "ar",
               catalan    => "ca",
               danish     => "da",
               german     => "de",
@@ -241,7 +241,7 @@ foreach $lang (@search_in) {
         next if ($file eq "");
 	# Translated pages
 	if (index ($wmlfiles{$lang}, " $file ") >= 0) {
-		if ($file =~ /\/devel\/wnpp\/wnpp\.wml/) {
+		if ($file =~ /devel\/wnpp\/wnpp\.wml/) {
 			$t_body .= sprintf "%s<br>\n", $file;
 		} else {
 		    	$t_body .= sprintf "<a href=\"/%s.%s.html\">%s</a><br>\n", $file, $l, $file;
@@ -252,7 +252,7 @@ foreach $lang (@search_in) {
 		$msg = check_translation ($version{"$lang/$file"}, $version{"english/$file"}, "$lang/$file");
 		if (length ($msg)) {
 			$o_body .= "<tr>";
-			if ($file =~ /\/devel\/wnpp\/wnpp\.wml/) {
+			if ($file =~ /devel\/wnpp\/wnpp\.wml/) {
 				$o_body .= sprintf "<td>%s</td>", $file;
 			} else {
 				$o_body .= sprintf "<td><a href=\"/%s.%s.html\">%s</a></td>", $file, $l, $file;
@@ -267,7 +267,7 @@ foreach $lang (@search_in) {
 	}
 	# Untranslated pages
 	else {
-		if ($file =~ /\/devel\/wnpp\/wnpp\.wml/) {
+		if ($file =~ /devel\/wnpp\/wnpp\.wml/) {
 			$u_body .= sprintf "%s<br>\n", $file;
 		} else {
 		    	$u_body .= sprintf "<a href=\"/%s\">%s</a><br>\n", $file, $file;
diff --git a/touch_translations.pl b/touch_translations.pl
index c44dc4d100b..6519075f093 100755
--- a/touch_translations.pl
+++ b/touch_translations.pl
@@ -23,7 +23,7 @@
 
 # This should contain all languages
 %langs = (
-	"ar" => "arabic",
+#	"ar" => "arabic",
 	"ca" => "catalan",
 	"zh" => "chinese",
 	"hr" => "croatian",
-- 
cgit v1.2.3