Changeset 12859 for trunk/cic-hcap
- Timestamp:
- 2006-09-27T14:18:21+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r12457 r12859 380 380 my $institution_place_id = $institution_places_match_hashref->{"Entry_ID"}; 381 381 my $institution_place_name = $institution_places_match_hashref->{"Current_name"}; 382 $institution_places_list_html .= "<span class=\"cictext\"><a href=\"_gwcgi_?a=d& d=p$institution_place_id\">$institution_place_name</a></span><br />\n";382 $institution_places_list_html .= "<span class=\"cictext\"><a href=\"_gwcgi_?a=d&d=p$institution_place_id\">$institution_place_name</a></span><br />\n"; 383 383 } 384 384 &new_metadata_entry($institution_doc_obj, "InstitutionPlacesListHTML", $institution_places_list_html); … … 423 423 my $institution_best_place_id = $institution_best_place_image_hashref->{"Entry_ID"}; 424 424 my $institution_best_place_image_medium_file_href = $self->generate_place_image_variant($institution_doc_obj, $institution_best_place_image_location, "medium"); 425 &new_metadata_entry($institution_doc_obj, "InstitutionBestPlaceImageHTML", "<a href=\"_gwcgi_?a=d& d=p$institution_best_place_id\"><img src=\"$institution_best_place_image_medium_file_href\"/><br /><span class=\"cictext\">$institution_best_place_image_name</span></a>");425 &new_metadata_entry($institution_doc_obj, "InstitutionBestPlaceImageHTML", "<a href=\"_gwcgi_?a=d&d=p$institution_best_place_id\"><img src=\"$institution_best_place_image_medium_file_href\"/><br /><span class=\"cictext\">$institution_best_place_image_name</span></a>"); 426 426 } 427 427 … … 463 463 $institution_doc_obj->add_utf8_metadata($institution_campus_plan_image_section, "ImagePath", $institution_campus_plan_image_large_file_href); 464 464 465 $institution_campus_plans_list_html .= "<a href=\"_gwcgi_?a=d& d=i$institution_id.$institution_campus_plan_image_section\"><span class=\"cictext\">$institution_campus_plan_name</span></a><br />";465 $institution_campus_plans_list_html .= "<a href=\"_gwcgi_?a=d&d=i$institution_id.$institution_campus_plan_image_section\"><span class=\"cictext\">$institution_campus_plan_name</span></a><br />"; 466 466 } 467 467 } … … 685 685 $designer_name_to_id_mapping{$designer_name} = $designer_id; 686 686 } 687 $place_construction_architect_links .= "<a href=\"_gwcgi_?a=d& d=d$designer_id\">$designer_name</a> ";687 $place_construction_architect_links .= "<a href=\"_gwcgi_?a=d&d=d$designer_id\">$designer_name</a> "; 688 688 push(@{$designer_name_to_place_ids_mapping{$designer_name}}, $place_id); 689 689 } … … 848 848 $place_doc_obj->add_utf8_metadata($place_image_section, "ImagePath", $place_image_large_file_href); 849 849 850 $place_images_html .= "<tr><td valign=\"top\"><a href=\"_gwcgi_?a=d& d=p$place_id.$place_image_section\"><img src=\"$place_image_small_file_href\"/></a></td><td valign=\"top\"><a href=\"_gwcgi_?a=d&d=p$place_id.$place_image_section\"><span class=\"cictext\">$place_image_name</span></a></td></tr>\n";850 $place_images_html .= "<tr><td valign=\"top\"><a href=\"_gwcgi_?a=d&d=p$place_id.$place_image_section\"><img src=\"$place_image_small_file_href\"/></a></td><td valign=\"top\"><a href=\"_gwcgi_?a=d&d=p$place_id.$place_image_section\"><span class=\"cictext\">$place_image_name</span></a></td></tr>\n"; 851 851 } 852 852 else { … … 940 940 } 941 941 942 $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";942 $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"; 943 943 } 944 944 … … 1273 1273 my $id = $full_name_to_id_mapping{$full_names[$i]}; 1274 1274 my $name = $id_to_name_mapping->{$id}; 1275 $name =~ s/'/'/g; # ' # (for Emacs)1275 # $name =~ s/'/'/g; # ' # (for Emacs) 1276 1276 my $extra = $id_to_extra_mapping->{$id} || ""; 1277 print BROWSER_MACROFILE "<td valign=\"top\"><a href=\"_gwcgi_?a=d& d=$id\">$name</a>$extra</td>";1277 print BROWSER_MACROFILE "<td valign=\"top\"><a href=\"_gwcgi_?a=d&d=$id\">" . &html_safe($name) . "</a>$extra</td>"; 1278 1278 1279 1279 print BROWSER_MACROFILE "<td valign=\"top\">"; … … 1281 1281 $id = $full_name_to_id_mapping{$full_names[$i+$half_point]}; 1282 1282 $name = $id_to_name_mapping->{$id}; 1283 $name =~ s/'/'/g; # ' # (for Emacs)1283 # $name =~ s/'/'/g; # ' # (for Emacs) 1284 1284 $extra = $id_to_extra_mapping->{$id} || ""; 1285 print BROWSER_MACROFILE "<a href=\"_gwcgi_?a=d& d=$id\">$name</a>$extra";1285 print BROWSER_MACROFILE "<a href=\"_gwcgi_?a=d&d=$id\">" . &html_safe($name) . "</a>$extra"; 1286 1286 } 1287 1287 print BROWSER_MACROFILE "</td>"; … … 1315 1315 1316 1316 close(BROWSER_MACROFILE); 1317 } 1318 1319 1320 sub html_safe 1321 { 1322 my $text = shift(@_); 1323 $text =~ s/&/&/g; 1324 return $text; 1317 1325 } 1318 1326
Note:
See TracChangeset
for help on using the changeset viewer.