Changeset 25688

Timestamp:

12/02/08 17:07:50 (5 weeks ago)

Author:

kazuho

Message:

customize submit labels

Location:

lang/perl/NanoA/trunk/app

Files:

• system/setup.pm (modified) (2 diffs)
• tinybbs/start.pm (modified) (2 diffs)

lang/perl/NanoA/trunk/app/system/setup.pm

@@ -9 +9 @@
 use plugin::form;
 
-define_form
+define_form(
     fields => [
         password  => {
@@ -35 +35 @@
             },
         },
-    ];
+    ],
+    submit_label => '設定する',
+);
 
 sub run {

lang/perl/NanoA/trunk/app/tinybbs/start.pm

@@ -11 +11 @@
 use base qw(NanoA);
 
-define_form
+define_form(
     fields => [
         title => {
@@ -26 +26 @@
             required   => 1,
         },
-    ];
+    ],
+    submit_label => '投稿する',
+);
 
 sub run {