Changeset 12132

Timestamp:

2006-07-11T11:48:44+12:00 (18 years ago)

Author:

mdewsnip

Message:

Changed the way the states page is generated and removed newlines from static macros, for the "search institutions by state" page.

File:

• trunk/cic-hcap/perllib/plugins/CICPlug.pm (modified) (4 diffs)

trunk/cic-hcap/perllib/plugins/CICPlug.pm

@@ -166 +166 @@
     };
 
+my %state_name_to_abbr_mapping = reverse(%{$state_abbr_to_name_mapping});
+
 my $state_abbr_to_area_mapping = {
     "AL" => "Southeast",
@@ -1129 +1131 @@
     my $id_to_extra_mapping = shift(@_);
 
-    print BROWSER_MACROFILE "<tr><td width=\"50%\"><br /><a name=\"$chunk_title\"/><span style=\"color: black;\"><b>$chunk_title</b></span></td><td width=\"50%\"></td></tr>\n";
+    print BROWSER_MACROFILE "<tr><td width=\"50%\"><br /><a name=\"$chunk_title\"/><span style=\"color: black;\"><b>$chunk_title</b></span></td><td width=\"50%\"></td></tr>";
 
     my %full_name_to_id_mapping;
@@ -1159 +1161 @@
     print BROWSER_MACROFILE "</td>";
 
-    print BROWSER_MACROFILE "</tr>\n";
+    print BROWSER_MACROFILE "</tr>";
     }
 }
@@ -1204 +1206 @@
     print BROWSER_MACROFILE "<table cellpadding=\"0\" cellspacing=\"0\" width=\"_pagewidth_\">\n";
     foreach my $state (sort(keys(%{$state_to_ids_mapping}))) {
+    my $state_abbr = $state_name_to_abbr_mapping{$state};
+    print BROWSER_MACROFILE "_cicstate" . $state_abbr . "_\n";
+    }
+    print BROWSER_MACROFILE "</table>\n";
+    print BROWSER_MACROFILE "}\n";
+
+    foreach my $state (sort(keys(%{$state_to_ids_mapping}))) {
+    my $state_abbr = $state_name_to_abbr_mapping{$state};
+    print BROWSER_MACROFILE "\n_cicstate" . $state_abbr . "_ {";
     my @state_ids = @{$state_to_ids_mapping->{$state}};
     &write_static_browser_macros_chunk($state, \@state_ids, $id_to_name_mapping, undef);
-    }
-    print BROWSER_MACROFILE "</table>\n";
-
-    print BROWSER_MACROFILE "}\n";
+    print BROWSER_MACROFILE "}\n";
+    }
+
     close(BROWSER_MACROFILE);
 }