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>
<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