From ac243940c725600226f1b7ecd1c21f66a0e82f36 Mon Sep 17 00:00:00 2001
From: short <>
Date: Thu, 15 Dec 2005 09:48:39 +0000
Subject: [PATCH] Provide client-selectively www.mms2.org/www.mms2.cz sites.

---
 product/mms2/Index.pm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/product/mms2/Index.pm b/product/mms2/Index.pm
index de809eb..0ca4be5 100644
--- a/product/mms2/Index.pm
+++ b/product/mms2/Index.pm
@@ -50,6 +50,13 @@ my $W=product::Lib->init(
 my $ListItem=product::Lib->name_to_hashref("mms2");
 
 
+my %www_mms2_site=(
+	"CZ"=>"www.mms2.cz",
+	"SK"=>"www.mms2.cz",
+	  ""=>"www.mms2.org",
+	);
+my $www_mms2_site=text_cc \%www_mms2_site;
+$_="http://$_/" for values(%www_mms2_site);
 # <caption/> would get wrapped to the image width.
 print <<"HERE";
 <h1>@{[ product::Lib->title($ListItem) ]}</h1>
@@ -57,10 +64,11 @@ print <<"HERE";
 <p>Currently supported client mobile phones of the country: <i>Czech Republic</i></p>
 <table border="0" class="margin-center td-center">
 	<tr><td>@{[
-		img 'web-screenshot256.png','www.mms2.org web link',
-				"a_href"=>'http://www.mms2.org/'
+		a_href_cc \%www_mms2_site,img('web-screenshot256.png',"$www_mms2_site web link")
+		]}</td></tr>
+	<tr><td style="font-size: xx-large;">@{[
+		a_href_cc \%www_mms2_site,"$www_mms2_site web link"
 		]}</td></tr>
-	<tr><td style="font-size: xx-large;">@{[ a_href 'http://www.mms2.org/','www.mms2.org web link' ]}</td></tr>
 </table>
 HERE
 
-- 
1.8.3.1