| 229 |
return $html; |
return $html; |
| 230 |
} |
} |
| 231 |
|
|
| 232 |
|
=head2 editor |
| 233 |
|
|
| 234 |
|
Create HTML editor link with optional line and title |
| 235 |
|
|
| 236 |
|
my $html = $self->editor( $class, $line, $title ); |
| 237 |
|
|
| 238 |
|
=cut |
| 239 |
|
|
| 240 |
|
sub editor { |
| 241 |
|
my ( $self, $class, $line, $title ) = @_; |
| 242 |
|
confess "need class" unless $class; |
| 243 |
|
$line ||= 1; |
| 244 |
|
qq|<a target="editor" href="/editor+$class+$line"| . |
| 245 |
|
( $title ? qq| title="$title"| : '' ) . |
| 246 |
|
qq|>$class</a>|; |
| 247 |
|
} |
| 248 |
|
|
| 249 |
|
=head2 editor_links |
| 250 |
|
|
| 251 |
|
Create HTML links to editor for perl error message |
| 252 |
|
|
| 253 |
|
my $html = $self->editor_links( $error ) |
| 254 |
|
|
| 255 |
|
=cut |
| 256 |
|
|
| 257 |
sub editor_links { |
sub editor_links { |
| 258 |
my ( $self, $error ) = @_; |
my ( $self, $error ) = @_; |
| 259 |
|
|
Parent Directory
| 
Revision Log
| 
Patch