takezoe/plugin/book/Keyword.pm

   1 ################################################################################
   2 #
   3 # <p>¥¡¼¥ï¡¼¥É¤òµ½Ò¤¹¤ë¤¿¤á¤Î¥×¥é¥°¥¤¥ó¤Ç¤¹¡£</p>
   4 #
   5 ################################################################################
   6 package plugin::book::Keyword;
   7 #==============================================================================
   8 # ¥³¥ó¥¹¥È¥é¥¯¥¿
   9 #==============================================================================
  10 sub new {
  11         my $class = shift;
  12         my $self = {};
  13         return bless $self,$class;
  14 }
  15
  16 #==============================================================================
  17 # ¥Ñ¥é¥°¥é¥Õ¥á¥½¥Ã¥É
  18 #==============================================================================
  19 sub paragraph {
  20         my $self = shift;
  21         my $wiki = shift;
  22         my @keywords = @_;
  23         my $buf = "";
  24
  25         foreach my $keyword (@keywords){
  26                 $buf .= ' | ' if($buf ne '');
  27                 $buf .= '<a href="?action=SEARCH&t=and&c=true&word='.Util::url_encode($keyword).'">'.Util::escapeHTML($keyword).'</a>';
  28         }
  29
  30         return '<div class="keyword"><span class="keyword">'.$buf.'</span></div>';
  31 }
  32
  33 1;