Generalized: &a_href_cz -> &a_href_cc

diff --git a/project/captive/Thanks.pm b/project/captive/Thanks.pm
index 8999879..beb1572 100755 (executable)
--- a/project/captive/Thanks.pm
+++ b/project/captive/Thanks.pm
@@ -25,7 +25,7 @@ use warnings;
 
 use Carp qw(cluck confess);
 use My::Web;
-cluck "No Geo::IP!" if !$My::Web::have_Geo_IP; # For: &a_href_cz
+cluck "No Geo::IP!" if !$My::Web::have_Geo_IP; # For: &a_href_cc
 Wrequire 'project::Lib';
 
 
@@ -61,13 +61,13 @@ my($name,$pos,$why)=@_;
 
 print name "Karel Zatoukal",a_href("http://www.sun.com/","Sun Microsystems");
 print name "Tim Boudreau",a_href("http://www.sun.com/","Sun Microsystems");
-print name a_href_cz('http://www.itpravo.cz/admin.shtml?x=45480','Jiri Cermak'),
+print name a_href_cc({"CZ"=>'http://www.itpravo.cz/admin.shtml?x=45480'},'Jiri Cermak'),
                a_href("http://www.bakernet.com/",'Baker & McKenzie'),
                'preflight IT law analysis';
 print name a_href('http://www.ucw.cz/~mj/','Martin "MJ" Mares');
 print name "Lubomir Bulej";
 print name "Tomas Bures";
-print name a_href_cz('http://www.vellum.cz/','Lukas "Klokan" Horalek'),undef(),"services hosting";
+print name a_href_cc({"CZ"=>'http://www.vellum.cz/'},'Lukas "Klokan" Horalek'),undef(),"services hosting";
 print name a_href('http://www-troja.fjfi.cvut.cz/~drab/','Martin Drab'),undef(),
                "betatesting, ".a_href('http://lufs.sourceforge.net/lufs/','LUFS')." patches";
 print name a_href('http://www.pavouk.org/','Pavel "Pavouk" Ruzicka'),a_href('http://www.gtsgroup.cz/','GTS'),
@@ -75,7 +75,7 @@ print name a_href('http://www.pavouk.org/','Pavel "Pavouk" Ruzicka'),a_href('htt
 print name "Christian Kristukat",undef(),a_href('http://www.suse.com/','SUSE')." support";
 print name "Jesse Glick",a_href("http://www.sun.com/","Sun Microsystems"),"betatesting";
 print name "Lew",a_href("http://www.pivovary-staropramen.cz/web/en/","Pivovary Staropramen"),"web";
-print name a_href_cz('http://vellum.cz/~mikc/','Michal "MIKC" Conos'),undef(),
+print name a_href_cc({"CZ"=>'http://vellum.cz/~mikc/'},'Michal "MIKC" Conos'),undef(),
                "betatesting";
 print name a_href("http://sys.xiloo.com/","Matt Wu"),
                a_href("http://sys.xiloo.com/projects/projects.htm#ext2fsd","Ext2fsd")." developer","W32 tips";

diff --git a/project/mdsms/Index.pm b/project/mdsms/Index.pm
index 152e290..cc8e7dc 100644 (file)
--- a/project/mdsms/Index.pm
+++ b/project/mdsms/Index.pm
@@ -46,7 +46,8 @@ our @ListItem=(
                "maintenance"=>"ready",
                "sponsorship"=>sub { return join(", ",
                                a_href('http://www.tencom.cz/','TENcom Trade')
-                                               .'/'.a_href('http://www.sme.cz/default.asp?lng=en&ver=html','SME'),
+                                               .'/'.a_href_cc({""=>'http://www.sme.cz/default.asp?lng=en&ver=html',
+                                                             "CZ"=>'http://www.sme.cz/'},'SME'),
                                a_href('http://www.readynote.com/','ReadyNote'),
                                a_href('http://www.atspraha.cz/','Advanced Telecom Services'));
                                },

diff --git a/resume/ResumeJanKratochvil.pm b/resume/ResumeJanKratochvil.pm
index 518d15c..8d01fb7 100644 (file)
--- a/resume/ResumeJanKratochvil.pm
+++ b/resume/ResumeJanKratochvil.pm
@@ -164,7 +164,9 @@ print <<"HERE";
 <caption>Fulltime Jobs</caption>
 <tr><th>Date</th><th>Company</th>
                <th>Description</th></tr>
-<tr><td>2005/04-now</td><td class="com">@{[ a_href 'http://www.valinux.co.jp/','VA Linux Systems Japan' ]}</td>
+<tr><td>2005/04-now</td><td class="com">@{[
+                                               a_href_cc {""=>'http://www.valinux.co.jp/en/',
+                                                        "JP"=>'http://www.valinux.co.jp/'},'VA Linux Systems Japan' ]}</td>
                <td>@{[ a_href 'http://www.kernel.org/','Linux kernel' ]}
                                                based development</td></tr>
 <tr><td>2004/01-11</td><td class="com">@{[ a_href 'http://www.sun.com/','Sun Microsystems' ]}</td>