| 120 |
my ( $path, $action ) = @_; |
my ( $path, $action ) = @_; |
| 121 |
qq|<form class="inline" method="post"><input type="hidden" name="path" value="$path"><input type="submit" name="action" value="$action"></form>|; |
qq|<form class="inline" method="post"><input type="hidden" name="path" value="$path"><input type="submit" name="action" value="$action"></form>|; |
| 122 |
}; |
}; |
| 123 |
$diff =~ s{^(===\s+)(\S+)$}{$1 . form($2,'revert') . qq| <a name="$2" target="editor" href="/editor+$2+1">$2</a> | . form($2,'postpone') }gem; |
$diff =~ s{(^|<pre>)(===\s+)(\S+)$}{$1 . $2 . form($3,'revert') . qq| <a name="$3" target="editor" href="/editor+$3+1">$3</a> | . form($3,'postpone') }gem; |
| 124 |
|
|
| 125 |
warn "diff_as_markup ",length($diff)," bytes"; |
warn "diff_as_markup ",length($diff)," bytes"; |
| 126 |
return $diff; |
return $diff; |
Parent Directory
| 
Revision Log
| 
Patch