OSDN Git Service

columnプラグインもアンカーを出力するようにした。
authortakezoe <takezoe@871d6764-1e22-0410-b313-a55050885396>
Mon, 1 Aug 2011 02:32:42 +0000 (02:32 +0000)
committertakezoe <takezoe@871d6764-1e22-0410-b313-a55050885396>
Mon, 1 Aug 2011 02:32:42 +0000 (02:32 +0000)
takezoe/plugin/book/Column.pm

index ba179c9..b29715d 100644 (file)
@@ -16,6 +16,7 @@ package plugin::book::Column;
 sub new {
        my $class = shift;
        my $self = {};
+       $self->{'count'} = 0;
        return bless $self,$class;
 }
 
@@ -28,7 +29,9 @@ sub block {
        my $content = shift;
        my $title   = shift;
        
-       return '<div class="column-title">¥³¥é¥à: '.Util::escapeHTML($title).'</div>'.
+       $self->{'count'}++;
+       
+       return '<div class="column-title"><a name="c'.($self->{'count'} - 1).'">¥³¥é¥à: '.Util::escapeHTML($title).'</a></div>'.
                '<div class="column-body">'.$wiki->process_wiki($content).'</div>';
 }