Provide client-selectively www.mms2.org/www.mms2.cz sites.

[www.jankratochvil.net.git] / product / mms2 / Index.pm

diff --git a/product/mms2/Index.pm b/product/mms2/Index.pm
index de809eb..0ca4be5 100644 (file)
--- 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