define cgi_var_language() and use it

2 files changed, 47 insertions, 7 deletions

diff --git a/fml/lib/FML/Process/CGI/Kernel.pm b/fml/lib/FML/Process/CGI/Kernel.pm
index 3057e48b..968df4a6 100644
--- a/fml/lib/FML/Process/CGI/Kernel.pm
+++ b/fml/lib/FML/Process/CGI/Kernel.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Kernel.pm,v 1.56 2003/09/27 06:58:16 fukachan Exp $
+# $FML: Kernel.pm,v 1.57 2003/09/27 13:56:42 fukachan Exp $
 #
 
 package FML::Process::CGI::Kernel;
@@ -498,6 +498,10 @@ sub run_cgi_command_help
 }
 
 
+# Descriptions: prepare arguemnts for message handling.
+#    Arguments: OBJ($curproc) HASH_REF($args)
+# Side Effects: none
+# Return Value: HASH_REF
 sub _gen_msg_args
 {
     my ($curproc, $args) = @_;
@@ -590,6 +594,7 @@ sub run_cgi_options
     my ($curproc, $args) = @_;
     my $domain = $curproc->cgi_var_ml_domain();
     my $action = $curproc->safe_cgi_action_name();
+    my $lang   = $curproc->cgi_var_language();
 
     # natural language-ed name
     my $name_options = $curproc->message_nl('term.options',  'options');
@@ -603,10 +608,11 @@ sub run_cgi_options
 
     # XXX-TODO: $langlist is hard-coded.
     print $name_lang, ":\n";
-    my $langlist = [ 'Japanese', 'English' ];
-    print scrolling_list(-name   => 'language',
-			 -values => $langlist,
-			 -size   => 1);
+    my $langlist = [ 'japanese', 'english' ];
+    print scrolling_list(-name    => 'language',
+			 -values  => $langlist,
+			 -default => [ $lang ],
+			 -size    => 1);
 
     print submit(-name => $name_change);
     print reset(-name  => $name_reset);
diff --git a/fml/lib/FML/Process/CGI/Utils.pm b/fml/lib/FML/Process/CGI/Utils.pm
index 8a40371d..3a6539e4 100644
--- a/fml/lib/FML/Process/CGI/Utils.pm
+++ b/fml/lib/FML/Process/CGI/Utils.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Utils.pm,v 1.2 2003/09/27 03:44:04 fukachan Exp $
+# $FML: Utils.pm,v 1.3 2003/09/27 06:57:00 fukachan Exp $
 #
 
 package FML::Process::CGI::Utils;
@@ -71,6 +71,10 @@ sub cgi_var_ml_home_prefix
 }
 
 
+# Descriptions: return list of ml_name as ARRAY_REF.
+#    Arguments: OBJ($curproc)
+# Side Effects: none
+# Return Value: ARRAY_REF
 sub cgi_var_ml_name_list
 {
     my ($curproc) = @_;
@@ -87,6 +91,10 @@ sub cgi_var_ml_name_list
 }
 
 
+# Descriptions: return address map
+#    Arguments: OBJ($curproc)
+# Side Effects: none
+# Return Value: STR
 sub cgi_var_address_map
 {
     my ($curproc)   = @_;
@@ -97,6 +105,10 @@ sub cgi_var_address_map
 }
 
 
+# Descriptions: return list of address map
+#    Arguments: OBJ($curproc)
+# Side Effects: none
+# Return Value: ARRAY_REF
 sub cgi_var_address_map_list
 {
     my ($curproc) = @_;
@@ -105,6 +117,10 @@ sub cgi_var_address_map_list
 }
 
 
+# Descriptions: return my program name.
+#    Arguments: OBJ($curproc)
+# Side Effects: none
+# Return Value: STR
 sub cgi_var_myname
 {
     my ($curproc) = @_;
@@ -113,10 +129,14 @@ sub cgi_var_myname
 }
 
 
+# Descriptions: return command list
+#    Arguments: OBJ($curproc)
+# Side Effects: none
+# Return Value: ARRAY_REF
 sub cgi_var_available_command_list
 {
     my ($curproc) = @_;
-    my $config = $curproc->config();
+    my $config    = $curproc->config();
     my $cgi_mode  = $curproc->cgi_var_cgi_mode();
 
     if ($cgi_mode eq 'admin') {
@@ -163,6 +183,20 @@ sub cgi_var_cgi_mode
 }
 
 
+sub cgi_var_language
+{
+    my ($curproc) = @_;
+    my $lang = $curproc->safe_param_language() || '';
+
+    if ($lang =~ /^(Japanese|English)$/io)  {
+	return lc($lang);
+    }
+    else {
+	return 'japanese';
+    }
+}
+
+
 sub cgi_var_navigator_title
 {
     my ($curproc) = @_;