X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=product%2Fmms2%2FIndex.pm;h=0ca4be5a9d11fd3e114e615ac32a9c278c515911;hp=de809eb625f15c9c39e5010a11595bf8694cd459;hb=ac243940c725600226f1b7ecd1c21f66a0e82f36;hpb=df37ed617ca6b92533bbdd0dffb225ec0b6e06d8

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