takezoe/plugin/book/Column.pm

   1 ###############################################################################
   2 #
   3 # <p>¥³¥é¥à¤òµ½Ò¤¹¤ë¤¿¤á¤Î¥Ö¥í¥Ã¥¯¥×¥é¥°¥¤¥ó¤Ç¤¹¡£</p>
   4 # <pre>
   5 # {{column ¥³¥é¥à¤Î¥¿¥¤¥È¥ë
   6 # ¥³¥é¥àËÜÊ¸
   7 # }}
   8 # </pre>
   9 # <p>¥³¥é¥àËÜÊ¸¤ÏWiki·Á¼°¤Çµ½Ò¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£</p>
  10 #
  11 ###############################################################################
  12 package plugin::book::Column;
  13 #==============================================================================
  14 # ¥³¥ó¥¹¥È¥é¥¯¥¿
  15 #==============================================================================
  16 sub new {
  17         my $class = shift;
  18         my $self = {};
  19         $self->{'count'} = 0;
  20         return bless $self,$class;
  21 }
  22
  23 #==============================================================================
  24 # ¥Ö¥í¥Ã¥¯¥á¥½¥Ã¥É
  25 #==============================================================================
  26 sub block {
  27         my $self    = shift;
  28         my $wiki    = shift;
  29         my $content = shift;
  30         my $title   = shift;
  31
  32         $self->{'count'}++;
  33
  34         return '<div class="column"><div class="column-title">".
  35                 "<a name="c'.($self->{'count'} - 1).'">¥³¥é¥à: '.Util::escapeHTML($title).'</a></div>'.
  36                 '<div class="column-body">'.$wiki->process_wiki($content).'</div></div>';
  37 }
  38
  39 1;