Changeset 11864

Timestamp:

2006-05-26T12:43:53+12:00 (18 years ago)

Author:

mdewsnip

Message:

PDF campus plans are now associated instead of being converted to images.

File:

• trunk/cic-hcap/perllib/plugins/CICPlug.pm (modified) (1 diff)

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

@@ -304 +304 @@
         my $institution_campus_plan_image_location = $institution_campus_plans_match_hashref->{"Location_electronic"};
 
-        $self->new_place_image($institution_doc_obj, $institution_campus_plan_image_location, "large");
-
-        my $institution_campus_plan_image_large_file_name = $institution_campus_plan_name . "-large.jpg";
-        $institution_campus_plan_image_large_file_name =~ s/ /%20/g;
-        my $institution_campus_plan_image_large_file_link = "_httpcollection_/index/assoc/[assocfilepath]/$institution_campus_plan_image_large_file_name";
-        $institution_campus_plans_list_html .= "<a href=\"$institution_campus_plan_image_large_file_link\"><span class=\"cictext\">$institution_campus_plan_name</span></a><br />";
+        # Deal with PDF files separately: don't convert, just associate
+        if ($institution_campus_plan_image_location =~ /\.pdf$/i) {
+        # Convert the server location of the file into the local location of the file
+        my $institution_campus_plan_pdf_file_path = $institution_campus_plan_image_location;
+        $institution_campus_plan_pdf_file_path =~ s/^[A-Z]:/$self->{'images_directory'}/;
+
+        if (-f $institution_campus_plan_pdf_file_path) {
+            my $institution_campus_plan_pdf_file_name = $institution_campus_plan_name . ".pdf";
+            $institution_campus_plan_pdf_file_name =~ s/ /%20/g;
+            my $institution_campus_plan_pdf_file_link = "_httpcollection_/index/assoc/[assocfilepath]/$institution_campus_plan_pdf_file_name";
+            $institution_campus_plans_list_html .= "<a href=\"$institution_campus_plan_pdf_file_link\"><span class=\"cictext\">$institution_campus_plan_name (PDF)</span></a><br />";
+
+            $institution_doc_obj->associate_file($institution_campus_plan_pdf_file_path, $institution_campus_plan_name . ".pdf", undef, $institution_doc_obj->get_top_section());
+        }
+        else {
+            print STDERR "<ProcessingError n='$institution_campus_plan_pdf_file_path' p='CICPlug' r='Does not exist'>\n" if ($self->{'gli'});
+            print STDERR "Error: File $institution_campus_plan_pdf_file_path does not exist.\n";
+        }
+        }
+        else {
+        $self->new_place_image($institution_doc_obj, $institution_campus_plan_image_location, "large");
+
+        my $institution_campus_plan_image_large_file_name = $institution_campus_plan_name . "-large.jpg";
+        $institution_campus_plan_image_large_file_name =~ s/ /%20/g;
+        my $institution_campus_plan_image_large_file_link = "_httpcollection_/index/assoc/[assocfilepath]/$institution_campus_plan_image_large_file_name";
+        $institution_campus_plans_list_html .= "<a href=\"$institution_campus_plan_image_large_file_link\"><span class=\"cictext\">$institution_campus_plan_name</span></a><br />";
+        }
     }
     &new_metadata_entry($institution_doc_obj, "InstitutionCampusPlansListHTML", $institution_campus_plans_list_html);