-################################################################################\r
-#\r
-# <p>¸«½Ð¤·¤ò½ÐÎϤ·¤Þ¤¹¡£</p>\r
-# <pre>\r
-# {{paragraph ¥ì¥Ù¥ë(1¡Á3),¸«½Ð¤·}}\r
-# </pre>\r
-# <p>\r
-# ¤³¤Î¥×¥é¥°¥¤¥ó¤Ç½ÐÎϤ·¤¿¸«½Ð¤·¤Ë¤Ï¥Ñ¥é¥°¥é¥Õ¤´¤È¤ÎÊÔ½¸¥¢¥ó¥«¤¬É½¼¨¤µ¤ì¤Þ¤»¤ó¡£\r
-# ¥×¥é¥°¥¤¥ó¤«¤é¸«½Ð¤·¤ò½ÐÎϤ¹¤ëɬÍפ¬¤¢¤ë¾ì¹ç¤Ë»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£\r
-# </p>\r
-#\r
-################################################################################\r
-package plugin::core::Paragraph;\r
-use strict;\r
-#===============================================================================\r
-# ¥³¥ó¥¹¥È¥é¥¯¥¿\r
-#===============================================================================\r
-sub new {\r
- my $class = shift;\r
- my $self = {};\r
- return bless $self,$class;\r
-}\r
-\r
-#===============================================================================\r
-# ¥Ñ¥é¥°¥é¥Õ\r
-#===============================================================================\r
-sub paragraph {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my $level = shift;\r
- my $para = shift;\r
- \r
- if($level eq ""){\r
- return &Util::paragraph_error("¥ì¥Ù¥ë¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤»¤ó¡£","WIKI");\r
- }\r
- if($level != 1 && $level != 2 && $level != 3){\r
- return &Util::paragraph_error("¥ì¥Ù¥ë¤Ï1¡Á3¤Þ¤Ç¤ÎÃͤ·¤«»ØÄê¤Ç¤¤Þ¤»¤ó¡£","WIKI");\r
- }\r
- if($para eq ""){\r
- return &Util::paragraph_error("¥Ñ¥é¥°¥é¥Õ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤»¤ó¡£","WIKI");\r
- }\r
- \r
- # ¤Á¤ç¤Ã¤È΢µ»\r
- my $parser = $wiki->get_current_parser();\r
- $parser->{no_partedit} = 1;\r
- if($level==1){\r
- $parser->parse("!$para\n");\r
- } elsif($level==2){\r
- $parser->parse("!!$para\n");\r
- } elsif($level==3){\r
- $parser->parse("!!!$para\n");\r
- }\r
- $parser->{no_partedit} = 0;\r
- \r
- return undef;\r
-}\r
-\r
-1;\r
+################################################################################
+#
+# <p>¸«½Ð¤·¤ò½ÐÎϤ·¤Þ¤¹¡£</p>
+# <pre>
+# {{paragraph ¥ì¥Ù¥ë(1¡Á3),¸«½Ð¤·}}
+# </pre>
+# <p>
+# ¤³¤Î¥×¥é¥°¥¤¥ó¤Ç½ÐÎϤ·¤¿¸«½Ð¤·¤Ë¤Ï¥Ñ¥é¥°¥é¥Õ¤´¤È¤ÎÊÔ½¸¥¢¥ó¥«¤¬É½¼¨¤µ¤ì¤Þ¤»¤ó¡£
+# ¥×¥é¥°¥¤¥ó¤«¤é¸«½Ð¤·¤ò½ÐÎϤ¹¤ëɬÍפ¬¤¢¤ë¾ì¹ç¤Ë»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£
+# </p>
+#
+################################################################################
+package plugin::core::Paragraph;
+use strict;
+#===============================================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#===============================================================================
+sub new {
+ my $class = shift;
+ my $self = {};
+ return bless $self,$class;
+}
+
+#===============================================================================
+# ¥Ñ¥é¥°¥é¥Õ
+#===============================================================================
+sub paragraph {
+ my $self = shift;
+ my $wiki = shift;
+ my $level = shift;
+ my $para = shift;
+
+ if($level eq ""){
+ return &Util::paragraph_error("¥ì¥Ù¥ë¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤»¤ó¡£","WIKI");
+ }
+ if($level != 1 && $level != 2 && $level != 3){
+ return &Util::paragraph_error("¥ì¥Ù¥ë¤Ï1¡Á3¤Þ¤Ç¤ÎÃͤ·¤«»ØÄê¤Ç¤¤Þ¤»¤ó¡£","WIKI");
+ }
+ if($para eq ""){
+ return &Util::paragraph_error("¥Ñ¥é¥°¥é¥Õ¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤»¤ó¡£","WIKI");
+ }
+
+ # ¤Á¤ç¤Ã¤È΢µ»
+ my $parser = $wiki->get_current_parser();
+ $parser->{no_partedit} = 1;
+ if($level==1){
+ $parser->parse("!$para\n");
+ } elsif($level==2){
+ $parser->parse("!!$para\n");
+ } elsif($level==3){
+ $parser->parse("!!!$para\n");
+ }
+ $parser->{no_partedit} = 0;
+
+ return undef;
+}
+
+1;