Changeset 11923
- Timestamp:
- 2006-06-16T12:04:24+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r11922 r11923 922 922 923 923 # Associate the place image variant file 924 $doc_obj->associate_file($place_image_variant_file_path, $place_image_variant_file_name, undef, $ self->{'section'});924 $doc_obj->associate_file($place_image_variant_file_path, $place_image_variant_file_name, undef, $place_image_variant_section); 925 925 926 926 # Add various bits of metadata for the place image variant 927 my $place_image_variant_metadata_value = $place_image_variant_file_name; 928 $place_image_variant_metadata_value =~ s/ /%20/g; 929 $doc_obj->add_utf8_metadata($self->{'section'}, $place_image_variant_size . "Image", $place_image_variant_metadata_value); 930 $doc_obj->add_metadata($self->{'section'}, $place_image_variant_size . "ImageWidth", $place_image_variant_width); 931 $doc_obj->add_metadata($self->{'section'}, $place_image_variant_size . "ImageHeight", $place_image_variant_height); 932 $doc_obj->add_metadata($self->{'section'}, $place_image_variant_size . "ImagePath", "_httpcollection_/index/assoc/[parent(Top):assocfilepath]/[${place_image_variant_size}Image]"); 927 my $place_image_variant_href = "_httpcollection_/index/assoc/[assocfilepath]/" . $place_image_variant_file_name; 928 $place_image_variant_href =~ s/ /%20/g; 929 return $place_image_variant_href; 933 930 } 934 931
Note:
See TracChangeset
for help on using the changeset viewer.