From 801399787c2807183550863e56d5f171ea7b0d3b Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 18 Sep 2005 07:51:16 +0000
Subject: [PATCH] Generalized: &a_href_cz -> &a_href_cc

---
 project/captive/Thanks.pm     | 8 ++++----
 project/mdsms/Index.pm        | 3 ++-
 resume/ResumeJanKratochvil.pm | 4 +++-
 3 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/project/captive/Thanks.pm b/project/captive/Thanks.pm
index 8999879..beb1572 100755
--- 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 &amp; 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
--- 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
--- 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>
-- 
1.8.3.1