Changeset 11975 for trunk/cic-hcap
- Timestamp:
- 2006-06-29T13:54:49+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r11974 r11975 511 511 $place_references_sql_handle->{LongReadLen} = 65536; 512 512 513 # Prepare SQL statement for getting the Place designations 514 my $place_designations_sql_statement = "SELECT National_Register,Federal_Agency,HABS,HAER,Local_Designation FROM tblReferences WHERE Entry_ID=?"; 515 my $place_designations_sql_handle = $dbh->prepare($place_designations_sql_statement); 516 $place_designations_sql_handle->{LongReadLen} = 65536; 517 513 518 # Prepare SQL statement for getting the Place narrative 514 519 my $place_narrative_sql_statement = "SELECT Narrative FROM tblSignificance_Narrative WHERE Entry_ID=?"; … … 703 708 } 704 709 710 # Get place designations 711 $place_designations_sql_handle->execute($place_id) or die "Could not execute SQL statement."; 712 my $place_designations_match_hashref = $place_designations_sql_handle->fetchrow_hashref(); 713 if ($place_designations_match_hashref->{"National_Register"} eq "1") { 714 &new_metadata_entry($place_doc_obj, "Designation", "National Register"); 715 } 716 if ($place_designations_match_hashref->{"Federal_Agency"} eq "1") { 717 &new_metadata_entry($place_doc_obj, "Designation", "National Historic Landmark"); 718 } 719 if ($place_designations_match_hashref->{"HABS"} eq "1" || $place_designations_match_hashref->{"HAER"} eq "1") { 720 &new_metadata_entry($place_doc_obj, "Designation", "HABS/HAER"); 721 } 722 if ($place_designations_match_hashref->{"Local_Designation"} eq "1") { 723 &new_metadata_entry($place_doc_obj, "Designation", "Local/State"); 724 } 725 705 726 # Get place narrative 706 727 $place_narrative_sql_handle->execute($place_id) or die "Could not execute SQL statement.";
Note:
See TracChangeset
for help on using the changeset viewer.