248 |
# Spit out the HTML |
# Spit out the HTML |
249 |
my $source = $Highlight->html( $Document ); |
my $source = $Highlight->html( $Document ); |
250 |
|
|
251 |
$source =~ s{(<span.*?line_number.*>\s*)(\d+)(:\s*</span>)}{$1<a href="/editor+$path+$2" title="edit $path +$2" target="editor">$2</a>$3}g; |
$source =~ s{(<span.*?line_number.*>\s*)(\d+)(:\s*</span>)}{$1<a target="editor" href="/editor+$path+$2">$2</a>$3}g; |
252 |
|
|
253 |
# strip page html |
# strip page html |
254 |
# $source =~ s{^.*<body[^>]+>}{}s; |
# $source =~ s{^.*<body[^>]+>}{}s; |