Changeset 12138
- Timestamp:
- 2006-07-11T15:09:11+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r12134 r12138 1207 1207 1208 1208 print BROWSER_MACROFILE "<table cellpadding=\"0\" cellspacing=\"0\" width=\"_pagewidth_\">\n"; 1209 foreach my $state (sort(keys(% {$state_to_ids_mapping}))) {1209 foreach my $state (sort(keys(%state_name_to_abbr_mapping))) { 1210 1210 my $state_abbr = $state_name_to_abbr_mapping{$state}; 1211 1211 print BROWSER_MACROFILE "_cicstate" . $state_abbr . "_\n"; … … 1214 1214 print BROWSER_MACROFILE "}\n"; 1215 1215 1216 foreach my $state (sort(keys(% {$state_to_ids_mapping}))) {1216 foreach my $state (sort(keys(%state_name_to_abbr_mapping))) { 1217 1217 my $state_abbr = $state_name_to_abbr_mapping{$state}; 1218 1218 print BROWSER_MACROFILE "\n_cicstate" . $state_abbr . "_ {"; 1219 my @state_ids = @{$state_to_ids_mapping->{$state}}; 1219 my @state_ids = (); 1220 if (defined($state_to_ids_mapping->{$state})) { 1221 @state_ids = @{$state_to_ids_mapping->{$state}}; 1222 } 1220 1223 &write_static_browser_macros_chunk($state, \@state_ids, $id_to_name_mapping, undef); 1224 if (!defined($state_to_ids_mapping->{$state})) { 1225 print BROWSER_MACROFILE "<tr><td colspan=\"2\" valign=\"top\">No institutions for this state</td></tr>"; 1226 } 1221 1227 print BROWSER_MACROFILE "}\n"; 1222 1228 }
Note:
See TracChangeset
for help on using the changeset viewer.