Changeset 11953

Timestamp:

2006-06-21T11:08:36+12:00 (18 years ago)

Author:

mdewsnip

Message:

Sections are now created for each institution campus plan image and each place image, so these can be displayed within Greenstone (rather than linking directly to the files).

File:

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

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

@@ -332 +332 @@
         else {
         my $institution_campus_plan_image_large_file_href = $self->generate_place_image_variant($institution_doc_obj, $institution_campus_plan_image_location, "large");
-        $institution_campus_plans_list_html .= "<a href=\"$institution_campus_plan_image_large_file_href\"><span class=\"cictext\">$institution_campus_plan_name</span></a><br />";
+
+        # Create a new section for each institution campus plan image
+        my $institution_campus_plan_image_section = $institution_doc_obj->insert_section($institution_doc_obj->get_end_child($institution_doc_obj->get_top_section()));
+        $institution_doc_obj->add_utf8_text($institution_campus_plan_image_section, "_");  # This is necessary
+        $institution_doc_obj->add_utf8_metadata($institution_campus_plan_image_section, "DocumentType", "Image");
+        $institution_doc_obj->add_utf8_metadata($institution_campus_plan_image_section, "Title", $institution_campus_plan_name);
+        $institution_doc_obj->add_utf8_metadata($institution_campus_plan_image_section, "ImagePath", $institution_campus_plan_image_large_file_href);
+
+        $institution_campus_plans_list_html .= "<a href=\"_gwcgi_?a=d&d=i$institution_id.$institution_campus_plan_image_section\"><span class=\"cictext\">$institution_campus_plan_name</span></a><br />";
         }
     }
@@ -629 +637 @@
 
         if (defined($place_image_name)) {
-            $place_images_html .= "<tr><td valign=\"top\"><a href=\"$place_image_large_file_href\"><img src=\"$place_image_small_file_href\"/></a></td><td valign=\"top\"><a href=\"$place_image_large_file_href\"><span class=\"cictext\">$place_image_name</span></a></td></tr>\n";
+            # Create a new section for each place image
+            my $place_image_section = $place_doc_obj->insert_section($place_doc_obj->get_end_child($place_doc_obj->get_top_section()));
+            $place_doc_obj->add_utf8_text($place_image_section, "_");  # This is necessary
+            $place_doc_obj->add_utf8_metadata($place_image_section, "DocumentType", "Image");
+            $place_doc_obj->add_utf8_metadata($place_image_section, "Title", $place_image_name);
+            $place_doc_obj->add_utf8_metadata($place_image_section, "ImagePath", $place_image_large_file_href);
+
+            $place_images_html .= "<tr><td valign=\"top\"><a href=\"_gwcgi_?a=d&d=p$place_id.$place_image_section\"><img src=\"$place_image_small_file_href\"/></a></td><td valign=\"top\"><a href=\"_gwcgi_?a=d&d=p$place_id.$place_image_section\"><span class=\"cictext\">$place_image_name</span></a></td></tr>\n";
         }
         else {
@@ -916 +931 @@
     }
 
-    # Create a new section for each place image variant (!! TO DO: Check if this is really necessary)
-    my $place_image_variant_section = $doc_obj->insert_section($doc_obj->get_end_child($doc_obj->get_top_section()));
-    $doc_obj->add_utf8_text($place_image_variant_section, "Some dummy text.");
-    $doc_obj->add_utf8_metadata($place_image_variant_section, "Title", "1");
-
     # Associate the place image variant file
-    $doc_obj->associate_file($place_image_variant_file_path, $place_image_variant_file_name, undef, $place_image_variant_section);
+    $doc_obj->associate_file($place_image_variant_file_path, $place_image_variant_file_name, undef, $doc_obj->get_top_section());
 
     # Add various bits of metadata for the place image variant
-    my $place_image_variant_href = "_httpcollection_/index/assoc/[assocfilepath]/" . $place_image_variant_file_name;
+    my $place_image_variant_href = "_httpcollection_/index/assoc/{Or}{[parent(Top):assocfilepath],[assocfilepath]}/" . $place_image_variant_file_name;
     $place_image_variant_href =~ s/ /%20/g;
     return $place_image_variant_href;