takezoe/plugin/book/Memolist.pm

   1 ################################################################################
   2 #
   3 # <p>memo¥×¥é¥°¥¤¥ó¤Çµ½Ò¤·¤¿¥á¥â¤Î°ìÍ÷¤òÉ½¼¨¤·¤Þ¤¹¡£</p>
   4 # <pre>
   5 # {{memolist}}
   6 # </pre>
   7 #
   8 ################################################################################
   9 package plugin::book::Memolist;
  10 #==============================================================================
  11 # ¥³¥ó¥¹¥È¥é¥¯¥¿
  12 #==============================================================================
  13 sub new {
  14         my $class = shift;
  15         my $self = {};
  16         return bless $self,$class;
  17 }
  18
  19 #==============================================================================
  20 # ¥Ñ¥é¥°¥é¥Õ¥á¥½¥Ã¥É
  21 #==============================================================================
  22 sub paragraph {
  23         my $self   = shift;
  24         my $wiki   = shift;
  25         my $plugin = $wiki->get_plugin_instance('plugin::book::Memo');
  26
  27         my $buf = '';
  28         my $count = 1;
  29
  30         foreach my $memo (@{$plugin->{'memolist'}}){
  31                 $buf .= '<li><a href="#todo-'.$count.'">'.Util::escapeHTML($memo).'</a></li>';
  32                 $count++;
  33         }
  34
  35         if($buf eq ''){
  36                 return '<p>¥á¥â¤Ï¤¢¤ê¤Þ¤»¤ó</p>';
  37         } else {
  38                 return '<ol>'.$buf.'</ol>';
  39         }
  40 }
  41
  42 1;