Changeset 13102

Timestamp:

2006-10-12T16:43:19+13:00 (18 years ago)

Author:

mdewsnip

Message:

Added alt tags to images on the designer pages, and removed the extra space around superscripted text.

File:

• trunk/cic-hcap/perllib/plugins/CICPlug.pm (modified) (4 diffs)

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

@@ -966 +966 @@
 
     # Prepare SQL statement for getting the Place non-PDF images
-    my $place_images_sql_statement = "SELECT Location FROM tblImages WHERE FileType=1 AND Location NOT LIKE '%.pdf' AND Entry_ID=? ORDER BY Image_Order";
+    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";
     my $place_images_sql_handle = $dbh->prepare($place_images_sql_statement);
     $place_images_sql_handle->{LongReadLen} = 65536;
@@ -1004 +1004 @@
         my $designer_place_image_small_file_href;
             $place_images_sql_handle->execute($designer_place_id) or die "Could not execute SQL statement.";
-        my $designer_place_image_location = $place_images_sql_handle->fetchrow();
+        my $designer_place_images_match_hashref = $place_images_sql_handle->fetchrow_hashref();
+        my $designer_place_image_location = $designer_place_images_match_hashref->{"Location"};
+        my $designer_place_image_name = $designer_place_images_match_hashref->{"FileName"};
         if (defined($designer_place_image_location)) {
         $designer_place_image_small_file_href = $self->generate_place_image_variant($designer_doc_obj, $designer_place_image_location, "small");
@@ -1013 +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";
+        $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";
     }
 
@@ -1082 +1084 @@
     $rtf_string =~ s/\\i0\s/<\/i>/g;
     $rtf_string =~ s/\\i0\b/<\/i>/g;
+    $rtf_string =~ s/\\super //g;
+    $rtf_string =~ s/\\nosupersub //g;
     $rtf_string =~ s/\\~/ /g;
     $rtf_string =~ s/\\([A-Za-z0-9\-]+)//g;