Changeset 12905
- Timestamp:
- 2006-09-28T16:17:21+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r12899 r12905 1217 1217 1218 1218 print BROWSER_MACROFILE "package $static_browser_package_name\n\n"; 1219 print BROWSER_MACROFILE "_cicstaticbrowser _ {\n";1219 print BROWSER_MACROFILE "_cicstaticbrowserquicklinks_ {\n"; 1220 1220 1221 1221 my %letter_to_ids_mapping; … … 1226 1226 } 1227 1227 1228 print BROWSER_MACROFILE "< center><b>";1228 print BROWSER_MACROFILE "<b>"; 1229 1229 foreach my $letter (split(//, "ABCDEFGHIJKLMNOPQRSTUVWXYZ")) { 1230 1230 if (defined($letter_to_ids_mapping{$letter})) { … … 1235 1235 } 1236 1236 } 1237 print BROWSER_MACROFILE "</b></center>\n"; 1238 1237 print BROWSER_MACROFILE "</b>\n"; 1238 print BROWSER_MACROFILE "}\n\n"; 1239 1240 print BROWSER_MACROFILE "_cicstaticbrowser_ {\n"; 1239 1241 print BROWSER_MACROFILE "<table cellpadding=\"0\" cellspacing=\"0\" width=\"_pagewidth_\">\n"; 1240 1242 foreach my $letter (sort(keys %letter_to_ids_mapping)) {
Note:
See TracChangeset
for help on using the changeset viewer.