From 4250f386ce7b1d66a87fed6fcfa84ac65471be48 Mon Sep 17 00:00:00 2001 From: Alexander Marx Date: Wed, 8 Jan 2014 09:24:57 +0100 Subject: [PATCH] fifteen-theme: made country.cgi table themeable --- html/cgi-bin/country.cgi | 59 ++++++++++++++++++++-------------------- 1 file changed, 30 insertions(+), 29 deletions(-) diff --git a/html/cgi-bin/country.cgi b/html/cgi-bin/country.cgi index 474d60cd0..476a680f4 100644 --- a/html/cgi-bin/country.cgi +++ b/html/cgi-bin/country.cgi @@ -40,14 +40,14 @@ require "${General::swroot}/header.pl"; &Header::openbigbox('100%', 'LEFT'); &Header::openbox('100%', 'LEFT', 'Flags & Country Codes:'); -print ""; -print ""; -print ""; -print ""; -print ""; -print ""; -print ""; -print ""; +print "
FlagCodeCountry FlagCodeCountry
"; +print ""; +print ""; +print ""; +print ""; +print ""; +print ""; +print ""; @flaglist = <$flagdir/*>; @@ -57,35 +57,36 @@ foreach (@flaglist) { if (!-d) { push(@flaglistfiles,substr($_,rindex($_,"/")+1)); } } - +my $col=""; foreach $flag (@flaglistfiles) { $lines++; - - my $flagcode = uc(substr($flag, 0, 2)); - my $fcode = lc($flagcode); + + my $flagcode = uc(substr($flag, 0, 2)); + my $fcode = lc($flagcode); my $country = Locale::Country::code2country($fcode); - if($fcode eq 'eu') { $country = 'Europe'; } - if($fcode eq 'tp') { $country = 'East Timor'; } - if($fcode eq 'yu') { $country = 'Yugoslavia'; } - if ($lines % 2) { - print ""; - print "\n"; - } - else { + if($fcode eq 'eu') { $country = 'Europe'; } + if($fcode eq 'tp') { $country = 'East Timor'; } + if($fcode eq 'yu') { $country = 'Yugoslavia'; } + if ($lines % 2) { + print ""; + print "\n"; +} +else { $lines2++; if($lines2 % 2) { - print ""; + print ""; + $col="bgcolor='${Header::table2colour}'"; } else { - print ""; + print ""; + $col="bgcolor='${Header::table1colour}'"; + } + print ""; + print ""; + print ""; } - print ""; - print ""; - #print ""; - print ""; - } } -- 2.39.2
FlagCodeCountry FlagCodeCountry
$flagcode"; - print "$flagcode$country
$flagcode"; + print "$flagcode$country
$flagcode"; + print "$flagcode$country $flagcode"; - print "$flagcode$country*