Changeset 14337 for gsdl/trunk
- Timestamp:
- 2007-08-08T12:15:03+12:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MediaWikiPlug.pm
r14251 r14337 375 375 } else { 376 376 $preserve_sections .= "\n$searchbox_section\n"; 377 } 378 377 } 379 378 380 379 if($preserve_sections ne ""){ 381 380 $preserve_sections = "<div id=\"column-one\">\n" . $preserve_sections . "\n</div>\n"; 382 381 } 383 $preserve_sections = "</div></div></div>\n" . $preserve_sections . "\n</body>"; 384 382 $preserve_sections = "</div></div></div>\n" . $preserve_sections . "\n</body>"; 383 385 384 $body_text =~ s/$print_footer/$preserve_sections/isg; 386 385 … … 389 388 my @forms; 390 389 my $form_count = 0; 391 while($body_text =~ m/<form([^>]*)name=("|')([^> ]*)("|')/isg){392 next if($3 eq " q");393 $forms[$form_count++] = $&; 390 while($body_text =~ m/<form([^>]*)name=("|')([^>"']*)?("|')/isg){ 391 next if($3 eq "searchform"); 392 $forms[$form_count++] = $&; 394 393 } 395 394 foreach my $form (@forms) { 396 395 $body_text =~ s/$form[\s\S]*?<\/form>//m; 397 } 398 396 } 399 397 400 398 # process links.
Note:
See TracChangeset
for help on using the changeset viewer.