Changeset 11953
- Timestamp:
- 2006-06-21T11:08:36+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r11934 r11953 332 332 else { 333 333 my $institution_campus_plan_image_large_file_href = $self->generate_place_image_variant($institution_doc_obj, $institution_campus_plan_image_location, "large"); 334 $institution_campus_plans_list_html .= "<a href=\"$institution_campus_plan_image_large_file_href\"><span class=\"cictext\">$institution_campus_plan_name</span></a><br />"; 334 335 # Create a new section for each institution campus plan image 336 my $institution_campus_plan_image_section = $institution_doc_obj->insert_section($institution_doc_obj->get_end_child($institution_doc_obj->get_top_section())); 337 $institution_doc_obj->add_utf8_text($institution_campus_plan_image_section, "_"); # This is necessary 338 $institution_doc_obj->add_utf8_metadata($institution_campus_plan_image_section, "DocumentType", "Image"); 339 $institution_doc_obj->add_utf8_metadata($institution_campus_plan_image_section, "Title", $institution_campus_plan_name); 340 $institution_doc_obj->add_utf8_metadata($institution_campus_plan_image_section, "ImagePath", $institution_campus_plan_image_large_file_href); 341 342 $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 />"; 335 343 } 336 344 } … … 629 637 630 638 if (defined($place_image_name)) { 631 $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"; 639 # Create a new section for each place image 640 my $place_image_section = $place_doc_obj->insert_section($place_doc_obj->get_end_child($place_doc_obj->get_top_section())); 641 $place_doc_obj->add_utf8_text($place_image_section, "_"); # This is necessary 642 $place_doc_obj->add_utf8_metadata($place_image_section, "DocumentType", "Image"); 643 $place_doc_obj->add_utf8_metadata($place_image_section, "Title", $place_image_name); 644 $place_doc_obj->add_utf8_metadata($place_image_section, "ImagePath", $place_image_large_file_href); 645 646 $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"; 632 647 } 633 648 else { … … 916 931 } 917 932 918 # Create a new section for each place image variant (!! TO DO: Check if this is really necessary)919 my $place_image_variant_section = $doc_obj->insert_section($doc_obj->get_end_child($doc_obj->get_top_section()));920 $doc_obj->add_utf8_text($place_image_variant_section, "Some dummy text.");921 $doc_obj->add_utf8_metadata($place_image_variant_section, "Title", "1");922 923 933 # Associate the place image variant file 924 $doc_obj->associate_file($place_image_variant_file_path, $place_image_variant_file_name, undef, $ place_image_variant_section);934 $doc_obj->associate_file($place_image_variant_file_path, $place_image_variant_file_name, undef, $doc_obj->get_top_section()); 925 935 926 936 # Add various bits of metadata for the place image variant 927 my $place_image_variant_href = "_httpcollection_/index/assoc/ [assocfilepath]/" . $place_image_variant_file_name;937 my $place_image_variant_href = "_httpcollection_/index/assoc/{Or}{[parent(Top):assocfilepath],[assocfilepath]}/" . $place_image_variant_file_name; 928 938 $place_image_variant_href =~ s/ /%20/g; 929 939 return $place_image_variant_href;
Note:
See TracChangeset
for help on using the changeset viewer.