New central america, cope with empty continents, lv update

perlorg · Jan 30, 2005 · 442e909 · 442e909
1 parent 22c1d10
commit 442e909
Show file tree

Hide file tree

Showing 5 changed files with 26 additions and 8 deletions.
diff --git a/perlmongers/bin/xml b/perlmongers/bin/xml
@@ -11,6 +11,7 @@ my %colours = (
   'asia' => [255,255,0],
   'europe' => [128,128,255],
   'north_america' => [255,0,0],
+  'central_america' => [0,255,0],
   'south_america' => [255,0,255],
   'oceania' => [0,255,255],
 );
@@ -102,7 +103,12 @@ copy("./perl_mongers.xml", "www/groups/perl_mongers.xml");
 copy("./perl_mongers.dtd", "www/groups/perl_mongers.dtd");
 
 #use YAML; die Dump(\%groups);
-foreach my $continent (sort keys %groups) {
+my @continents = (
+  "Africa", "Asia", "Europe", "North America", "Central America",
+  "South America", "Oceania"
+);
+
+foreach my $continent (@continents) {
   my $name = lc $continent;
   $name =~ s/\W/_/g;
   my $file = "www/groups/$name.html";

diff --git a/perlmongers/lib/layout b/perlmongers/lib/layout
@@ -50,6 +50,7 @@
   minor = {
     "North America" => "/groups/north_america.html",
     "South America" => "/groups/south_america.html",
+    "Central America" => "/groups/central_america.html",
     "Europe" => "/groups/europe.html",
     "Non-geographical" => "/groups/non_geographical.html",
     "Oceania" => "/groups/oceania.html",

diff --git a/perlmongers/perl_mongers.xml b/perlmongers/perl_mongers.xml
@@ -1437,7 +1437,7 @@
 		<date type="inception">19990120</date>
 	</group>
 
-	<group id="51">
+	<group id="51" status="active">
 		<name>LasVegas.pm</name>
 		<location>
 			<city>Las Vegas</city>
@@ -1450,14 +1450,14 @@
 		</location>
 		<email type="group"></email>
 		<tsar>
-			<name>Gil Lopez</name>
+			<name>Chris Angell</name>
-			<email type="personal">glopez@tothinkistocreate.com</email>
+			<email type="personal">chrisangell@chrisangell.com</email>
 		</tsar>
-		<web>http://lv.pm.org/</web>
+		<web>http://lasvegas.pm.org/</web>
 		<mailing_list>
 			<name>General LasVegas.pm discussion</name>
-			<email type="list">lv-pm@pm.org</email>
+			<email type="list">lasvegas-pm@pm.org</email>
-			<email type="list_admin">glopez@tothinkistocreate.com</email>
+			<email type="list_admin">majordomo@pm.org</email>
 			<subscribe></subscribe>
 			<unsubscribe></unsubscribe>
 		</mailing_list>
@@ -12093,7 +12093,7 @@
 			<state></state>
 			<region></region>
 			<country>Costa Rica</country>
-			<continent>South America</continent>
+			<continent>Central America</continent>
 			<longitude>-85.13</longitude>
 			<latitude>10.97</latitude>
 		</location>

diff --git a/perlmongers/src/groups/continent.html b/perlmongers/src/groups/continent.html
@@ -4,6 +4,8 @@
 <img src="[% image %]">
 [% END %]
 
+[% IF groups.keys.size %]
+
 <p>
 
 The following groups are in [% continent %]:
@@ -17,4 +19,12 @@ <h2>[% country %]</h2>
 <li><a href="[% group.id %].html">[% group.name %]</a><br>
 [% END %]
 </ul>
+[% END %]
+
+[% ELSE %]
+
+<p>
+
+There are currently no groups in [% continent %].
+
 [% END %]
diff --git a/perlmongers/src/groups/index.html b/perlmongers/src/groups/index.html
@@ -12,6 +12,7 @@
 
 [% link_to("/groups/africa.html", "Africa") %], 
 [% link_to("/groups/asia.html", "Asia") %], 
+[% link_to("/groups/central_america.html", "Central America") %], 
 [% link_to("/groups/europe.html", "Europe") %], 
 [% link_to("/groups/non_geographical.html", "Non-geographical") %], 
 [% link_to("/groups/north_america.html", "North America") %],