git://git.jankratochvil.net
/
www.jankratochvil.net.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
df37ed6
)
Provide client-selectively www.mms2.org/www.mms2.cz sites.
author
short
<>
Thu, 15 Dec 2005 09:48:39 +0000
(09:48 +0000)
committer
short
<>
Thu, 15 Dec 2005 09:48:39 +0000
(09:48 +0000)
product/mms2/Index.pm
patch
|
blob
|
history
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 $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>
# <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>@{[
<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>
]}</td></tr>
- <tr><td style="font-size: xx-large;">@{[ a_href 'http://www.mms2.org/','www.mms2.org web link' ]}</td></tr>
</table>
HERE
</table>
HERE