plugin/core/Paragraph.pm

   1 ################################################################################
   2 #
   3 # <p>¸«½Ð¤·¤ò½ÐÎÏ¤·¤Þ¤¹¡£</p>
   4 # <pre>
   5 # {{paragraph ¥ì¥Ù¥ë(1¡Á3),¸«½Ð¤·}}
   6 # </pre>
   7 # <p>
   8 #   ¤³¤Î¥×¥é¥°¥¤¥ó¤Ç½ÐÎÏ¤·¤¿¸«½Ð¤·¤Ë¤Ï¥Ñ¥é¥°¥é¥Õ¤´¤È¤ÎÊÔ½¸¥¢¥ó¥«¤¬É½¼¨¤µ¤ì¤Þ¤»¤ó¡£
   9 #   ¥×¥é¥°¥¤¥ó¤«¤é¸«½Ð¤·¤ò½ÐÎÏ¤¹¤ëÉ¬Í×¤¬¤¢¤ë¾ì¹ç¤Ë»ÈÍÑ¤·¤Æ¤¯¤À¤µ¤¤¡£
  10 # </p>
  11 #
  12 ################################################################################
  13 package plugin::core::Paragraph;
  14 use strict;
  15 #===============================================================================
  16 # ¥³¥ó¥¹¥È¥é¥¯¥¿
  17 #===============================================================================
  18 sub new {
  19         my $class = shift;
  20         my $self = {};
  21         return bless $self,$class;
  22 }
  23
  24 #===============================================================================
  25 # ¥Ñ¥é¥°¥é¥Õ
  26 #===============================================================================
  27 sub paragraph {
  28         my $self  = shift;
  29         my $wiki  = shift;
  30         my $level = shift;
  31         my $para  = shift;
  32
  33         if($level eq ""){
  34                 return &Util::paragraph_error("¥ì¥Ù¥ë¤¬»ØÄê¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£","WIKI");
  35         }
  36         if($level != 1 && $level != 2 && $level != 3){
  37                 return &Util::paragraph_error("¥ì¥Ù¥ë¤Ï1¡Á3¤Þ¤Ç¤ÎÃÍ¤·¤«»ØÄê¤Ç¤¤Þ¤»¤ó¡£","WIKI");
  38         }
  39         if($para eq ""){
  40                 return &Util::paragraph_error("¥Ñ¥é¥°¥é¥Õ¤¬»ØÄê¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£","WIKI");
  41         }
  42
  43         # ¤Á¤ç¤Ã¤ÈÎ¢µ»
  44         my $parser = $wiki->get_current_parser();
  45         $parser->{no_partedit} = 1;
  46         if($level==1){
  47                 $parser->parse("!$para\n");
  48         } elsif($level==2){
  49                 $parser->parse("!!$para\n");
  50         } elsif($level==3){
  51                 $parser->parse("!!!$para\n");
  52         }
  53         $parser->{no_partedit} = 0;
  54
  55         return undef;
  56 }
  57
  58 1;