OSDN Git Service

改行コードをLFに統一。
[fswiki/fswiki.git] / plugin / core / Paragraph.pm
index c91285b..9ee01da 100644 (file)
@@ -1,58 +1,58 @@
-################################################################################\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;