Changeset 12919 for trunk/cic-hcap
- Timestamp:
- 2006-09-28T17:16:04+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r12908 r12919 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 .= "<a href=\"_gwcgi_?a=d&d=p$institution_place_id\">$institution_place_name</a><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 alt=\"$institution_best_place_image_location\" src=\"$institution_best_place_image_medium_file_href\"/><br /><span class=\"cictext\">$institution_best_place_image_name</span></a>"); 426 426 } 427 427 … … 1242 1242 foreach my $letter (sort(keys %letter_to_ids_mapping)) { 1243 1243 my @letter_ids = @{$letter_to_ids_mapping{$letter}}; 1244 &write_static_browser_macros_chunk($letter, \@letter_ids, $id_to_name_mapping, $id_to_extra_mapping); 1244 my $anchor_name; 1245 if ($letter =~ /^[A-Z]$/) { 1246 $anchor_name = $letter; 1247 } 1248 &write_static_browser_macros_chunk($letter, $anchor_name, \@letter_ids, $id_to_name_mapping, $id_to_extra_mapping); 1245 1249 } 1246 1250 print BROWSER_MACROFILE "</table>\n"; … … 1253 1257 { 1254 1258 my $chunk_title = shift(@_); 1259 my $anchor_name = shift(@_); 1255 1260 my $chunk_ids_ref = shift(@_); 1256 1261 my $id_to_name_mapping = shift(@_); 1257 1262 my $id_to_extra_mapping = shift(@_); 1258 1263 1259 my $chunk_title_sans_spaces = $chunk_title; 1260 $chunk_title_sans_spaces =~ s/ //g; 1261 print BROWSER_MACROFILE "<tr><td width=\"50%\"><br /><a name=\"$chunk_title_sans_spaces\"/><span style=\"color: black;\"><b>$chunk_title</b></span></td><td width=\"50%\"></td></tr>"; 1264 print BROWSER_MACROFILE "<tr><td width=\"50%\"><br />"; 1265 if (defined($anchor_name) && $anchor_name ne "") { 1266 print BROWSER_MACROFILE "<a name=\"$anchor_name\"/>"; 1267 } 1268 print BROWSER_MACROFILE "<span style=\"color: black;\"><b>$chunk_title</b></span></td><td width=\"50%\"></td></tr>"; 1262 1269 1263 1270 my %full_name_to_id_mapping; … … 1356 1363 @state_ids = @{$state_to_ids_mapping->{$state}}; 1357 1364 } 1358 &write_static_browser_macros_chunk($state, \@state_ids, $id_to_name_mapping, undef); 1365 my $state_sans_spaces = $state; 1366 $state_sans_spaces =~ s/ //g; 1367 &write_static_browser_macros_chunk($state, $state_sans_spaces, \@state_ids, $id_to_name_mapping, undef); 1359 1368 if (!defined($state_to_ids_mapping->{$state})) { 1360 1369 print BROWSER_MACROFILE "<tr><td colspan=\"2\" valign=\"top\">No institutions for this state</td></tr>";
Note:
See TracChangeset
for help on using the changeset viewer.