Changeset 11975

Timestamp:

2006-06-29T13:54:49+12:00 (18 years ago)

Author:

mdewsnip

Message:

Added Designation metadata (for the new advanced search page).

File:

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

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

@@ -511 +511 @@
     $place_references_sql_handle->{LongReadLen} = 65536;
 
+    # Prepare SQL statement for getting the Place designations
+    my $place_designations_sql_statement = "SELECT National_Register,Federal_Agency,HABS,HAER,Local_Designation FROM tblReferences WHERE Entry_ID=?";
+    my $place_designations_sql_handle = $dbh->prepare($place_designations_sql_statement);
+    $place_designations_sql_handle->{LongReadLen} = 65536;
+
     # Prepare SQL statement for getting the Place narrative
     my $place_narrative_sql_statement = "SELECT Narrative FROM tblSignificance_Narrative WHERE Entry_ID=?";
@@ -703 +708 @@
     }
 
+    # Get place designations
+    $place_designations_sql_handle->execute($place_id) or die "Could not execute SQL statement.";
+    my $place_designations_match_hashref = $place_designations_sql_handle->fetchrow_hashref();
+    if ($place_designations_match_hashref->{"National_Register"} eq "1") {
+        &new_metadata_entry($place_doc_obj, "Designation", "National Register");
+    }
+    if ($place_designations_match_hashref->{"Federal_Agency"} eq "1") {
+        &new_metadata_entry($place_doc_obj, "Designation", "National Historic Landmark");
+    }
+    if ($place_designations_match_hashref->{"HABS"} eq "1" || $place_designations_match_hashref->{"HAER"} eq "1") {
+        &new_metadata_entry($place_doc_obj, "Designation", "HABS/HAER");
+    }
+    if ($place_designations_match_hashref->{"Local_Designation"} eq "1") {
+        &new_metadata_entry($place_doc_obj, "Designation", "Local/State");
+    }
+
     # Get place narrative
     $place_narrative_sql_handle->execute($place_id) or die "Could not execute SQL statement.";