Changeset 11860 for trunk/cic-hcap
- Timestamp:
- 2006-05-26T09:48:47+12:00 (18 years ago)
- Location:
- trunk/cic-hcap
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/etc/collect.cfg
r11857 r11860 9 9 10 10 plugin GAPlug 11 plugin CICPlug -cache_directory C:\\mdewsnip\\CIC\\Cache -images_directory C:\\mdewsnip\\CIC\\Images -michael_mode11 plugin CICPlug -cache_directory C:\\mdewsnip\\CIC\\Cache -images_directory C:\\mdewsnip\\CIC\\Images 12 12 plugin ArcPlug 13 13 plugin RecPlug -use_metadata_files -
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r11852 r11860 39 39 my $arguments = 40 40 [ 41 { 'name' => "michael_mode",42 'type' => "flag",43 'reqd' => "no" },44 41 { 'name' => "images_directory", 45 42 'type' => "string", … … 730 727 $place_image_file_path =~ s/^[A-Z]:/$self->{'images_directory'}/; 731 728 732 # A fudge for me because I don't have the updated images...733 if ($self->{'michael_mode'}) {734 my $place_image_directory = $place_image_location;735 $place_image_directory =~ s/^.*images REVISED\\//;736 $place_image_directory =~ s/\s*\(.*?\)//g;737 $place_image_directory =~ s/\....$//;738 $place_image_file_path =~ s/images REVISED\\(.*?)$/images REVISED\\$place_image_directory\\$1/;739 }740 741 729 # Create a new section for each image of the place 742 730 my $place_image_section = $doc_obj->insert_section($doc_obj->get_end_child($doc_obj->get_top_section())); … … 745 733 746 734 if (!-f $place_image_file_path) { 747 unless ($self->{'michael_mode'}) { 748 print STDERR "<ProcessingError n='$place_image_file_path' p='CICPlug' r='Does not exist'>\n" if ($self->{'gli'}); 749 print STDERR "Error: Image $place_image_file_path does not exist.\n"; 750 } 735 print STDERR "<ProcessingError n='$place_image_file_path' p='CICPlug' r='Does not exist'>\n" if ($self->{'gli'}); 736 print STDERR "Error: Image $place_image_file_path does not exist.\n"; 751 737 return; 752 738 }
Note:
See TracChangeset
for help on using the changeset viewer.