Changeset 11972
- Timestamp:
- 2006-06-28T15:04:44+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r11953 r11972 166 166 }; 167 167 168 my $state_abbr_to_area_mapping = { 169 "AL" => "Southeast", 170 "AK" => "West", 171 "AZ" => "Southwest", 172 "AR" => "Southeast", 173 "CA" => "West", 174 "CO" => "Mountain", 175 "CT" => "Northeast", 176 "DE" => "Northeast", 177 "FL" => "Southeast", 178 "GA" => "Southeast", 179 "HI" => "West", 180 "ID" => "Mountain", 181 "IL" => "Midwest", 182 "IN" => "Midwest", 183 "IA" => "Midwest", 184 "KS" => "Midwest", 185 "KY" => "Southeast", 186 "LA" => "Southeast", 187 "ME" => "Northeast", 188 "MD" => "Northeast", 189 "MA" => "Northeast", 190 "MI" => "Midwest", 191 "MN" => "Midwest", 192 "MS" => "Southeast", 193 "MO" => "Midwest", 194 "MT" => "Mountain", 195 "NE" => "Midwest", 196 "NV" => "West", 197 "NH" => "Northeast", 198 "NJ" => "Northeast", 199 "NM" => "Southwest", 200 "NY" => "Northeast", 201 "NC" => "Southeast", 202 "ND" => "Midwest", 203 "OH" => "Midwest", 204 "OK" => "Southwest", 205 "OR" => "West", 206 "PA" => "Northeast", 207 "RI" => "Northeast", 208 "SC" => "Southeast", 209 "SD" => "Midwest", 210 "TN" => "Southeast", 211 "TX" => "Southwest", 212 "UT" => "Mountain", 213 "VT" => "Northeast", 214 "VA" => "Southeast", 215 "WA" => "West", 216 "WV" => "Southeast", 217 "WI" => "Midwest", 218 "WY" => "Mountain" 219 }; 220 168 221 169 222 my $place_type_id_to_name_mapping = { … … 507 560 $place_id_to_institution_name_mapping{$place_doc_obj->get_OID()} = ", " . $place_institution; 508 561 509 # Get place state (for searching)562 # Get place state and area (for searching) 510 563 $place_state_sql_handle->execute($place_id) or die "Could not execute SQL statement."; 511 564 my $place_state_abbr = $place_state_sql_handle->fetchrow(); 512 &new_metadata_entry($place_doc_obj, "State", $place_state_abbr . " " . $state_abbr_to_name_mapping->{$place_state_abbr} );565 &new_metadata_entry($place_doc_obj, "State", $place_state_abbr . " " . $state_abbr_to_name_mapping->{$place_state_abbr} . " " . $state_abbr_to_area_mapping->{$place_state_abbr}); 513 566 514 567 # Create place dates mapping
Note:
See TracChangeset
for help on using the changeset viewer.