- Timestamp:
- 2007-09-07T08:30:19+12:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/tags/gsdl-2_74-distribution/perllib/plugins/MediaWikiPlug.pm
r14270 r14504 63 63 'type' => "regexp", 64 64 'reqd' => "no", 65 'deft' => "<table([^>]*)id=(\\\"|')toc(\\\"|')(.|\\n)* </table>\\n" },65 'deft' => "<table([^>]*)id=(\\\"|')toc(\\\"|')(.|\\n)*?</table>\\n" }, 66 66 # set to delete the navigation section 67 67 { 'name' => "delete_nav", … … 127 127 my @head_and_body = split(/<body/i,$$textref); 128 128 my $head = shift(@head_and_body); 129 my $body_text = join("<body", @head_and_body); 129 my $body_text = join("<body", @head_and_body); 130 130 131 131 $head =~ m/<title>(.+)<\/title>/i; … … 159 159 # remove header section, it may contain header images or additional search boxes 160 160 my $header_exp = "<div([^>]*)id=(\"|')container(\"|')([^>]*)>(.|\\n)*<div([^>]*)id=(\"|')column-content"; 161 $body_text =~ s/$header_exp/<div$1id='container'$4><div$6id='column-content/isg; 161 if($body_text =~ /$header_exp/){ 162 $body_text =~ s/$header_exp/<div$1id='container'$4><div$6id='column-content/isg; 163 } else { 164 $header_exp = "(.|\\n)*?<div([^>]*)?id=(\"|')column-content"; 165 if($body_text =~ /$header_exp/){ 166 $body_text =~ s/$header_exp/<div$2id='column-content/i; 167 } 168 } 162 169 163 170 # remove timeline … … 270 277 # comment out the body element because we change the body to div 271 278 $line =~ s/^(\s*)body(\s*){(\s*)$/$1\/*body$2*\/{$3/isg; 272 273 if($line =~ m/^(.+)\{/i || $line =~ m/^(\s)*#/i){ 274 $line = "#wikispecificstyle " . $line; 275 } 279 280 if($line =~ m/^(.+)\{/i || $line =~ m/^(\s)*#/i){ 281 if($line !~ m/wikispecificstyle/i){ 282 $line = "#wikispecificstyle " . $line; 283 } 284 } 285 276 286 $css_content .= $line; 277 287 } … … 559 569 # If delete_toc is set, remove toc and tof contents. 560 570 if (defined $self->{'delete_toc'} && ($self->{'delete_toc'} == 1)){ 561 if (defined $self->{'toc_exp'} && $self->{'toc_exp'} =~ /\S/){ 562 # print "\nit matches toc_exp !!\n" if $body_text =~ /$self->{'toc_exp'}/;571 if (defined $self->{'toc_exp'} && $self->{'toc_exp'} =~ /\S/){ 572 # print "\nit matches toc_exp !!\n" if $body_text =~ /$self->{'toc_exp'}/; 563 573 if ($body_text =~ /$self->{'toc_exp'}/) { 564 $body_text =~ s/$self->{'toc_exp'}//i; 574 $body_text =~ s/$self->{'toc_exp'}//i; 565 575 } 566 576 }
Note:
See TracChangeset
for help on using the changeset viewer.