Changeset 13102 for trunk/cic-hcap
- Timestamp:
- 2006-10-12T16:43:19+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r13100 r13102 966 966 967 967 # Prepare SQL statement for getting the Place non-PDF images 968 my $place_images_sql_statement = "SELECT Location FROM tblImages WHERE FileType=1 AND Location NOT LIKE '%.pdf' AND Entry_ID=? ORDER BY Image_Order";968 my $place_images_sql_statement = "SELECT Location,FileName FROM tblImages WHERE FileType=1 AND Location NOT LIKE '%.pdf' AND Entry_ID=? ORDER BY Image_Order"; 969 969 my $place_images_sql_handle = $dbh->prepare($place_images_sql_statement); 970 970 $place_images_sql_handle->{LongReadLen} = 65536; … … 1004 1004 my $designer_place_image_small_file_href; 1005 1005 $place_images_sql_handle->execute($designer_place_id) or die "Could not execute SQL statement."; 1006 my $designer_place_image_location = $place_images_sql_handle->fetchrow(); 1006 my $designer_place_images_match_hashref = $place_images_sql_handle->fetchrow_hashref(); 1007 my $designer_place_image_location = $designer_place_images_match_hashref->{"Location"}; 1008 my $designer_place_image_name = $designer_place_images_match_hashref->{"FileName"}; 1007 1009 if (defined($designer_place_image_location)) { 1008 1010 $designer_place_image_small_file_href = $self->generate_place_image_variant($designer_doc_obj, $designer_place_image_location, "small"); … … 1013 1015 } 1014 1016 1015 $designer_places_list_html .= "<tr><td valign=\"top\"><a href=\"_gwcgi_?a=d&d=p$designer_place_id\"><img src=\"$designer_place_image_small_file_href\"/></a></td><td valign=\"top\"><a href=\"_gwcgi_?a=d&d=p$designer_place_id\">$designer_place_name</a>, $designer_place_institution_name<br /><b>Date of construction:</b> $designer_place_construction_date_value</td></tr>\n";1017 $designer_places_list_html .= "<tr><td valign=\"top\"><a href=\"_gwcgi_?a=d&d=p$designer_place_id\"><img alt=\"$designer_place_image_name\" src=\"$designer_place_image_small_file_href\"/></a></td><td valign=\"top\"><a href=\"_gwcgi_?a=d&d=p$designer_place_id\">$designer_place_name</a>, $designer_place_institution_name<br /><b>Date of construction:</b> $designer_place_construction_date_value</td></tr>\n"; 1016 1018 } 1017 1019 … … 1082 1084 $rtf_string =~ s/\\i0\s/<\/i>/g; 1083 1085 $rtf_string =~ s/\\i0\b/<\/i>/g; 1086 $rtf_string =~ s/\\super //g; 1087 $rtf_string =~ s/\\nosupersub //g; 1084 1088 $rtf_string =~ s/\\~/ /g; 1085 1089 $rtf_string =~ s/\\([A-Za-z0-9\-]+)//g;
Note:
See TracChangeset
for help on using the changeset viewer.