diff options
| author | fukachan <fukachan> | 2002-03-20 08:00:29 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-03-20 08:00:29 +0000 |
| commit | cb5db714b4b662151fa228bece64c5f2db10b5c8 (patch) | |
| tree | 84692785db74fece3df84a45bccf4867f02a462d | |
| parent | a1d0f700eb6c3e6ffad2a7fdf8292c136c62b723 (diff) | |
| download | fml8-cb5db714b4b662151fa228bece64c5f2db10b5c8.tar.gz fml8-cb5db714b4b662151fa228bece64c5f2db10b5c8.tar.bz2 fml8-cb5db714b4b662151fa228bece64c5f2db10b5c8.zip | |
add options bar to switch the language (dummy yet :-)
| -rw-r--r-- | fml/lib/FML/Process/CGI/Kernel.pm | 45 |
1 files changed, 43 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/CGI/Kernel.pm b/fml/lib/FML/Process/CGI/Kernel.pm index 00fef71f..98170046 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.18 2002/03/19 08:02:06 fukachan Exp $ +# $FML: Kernel.pm,v 1.19 2002/03/20 07:31:09 fukachan Exp $ # package FML::Process::CGI::Kernel; @@ -230,7 +230,7 @@ sub _drive_cgi_by_table print "</td>\n"; print "<td rowspan=2 valign=\"top\">\n"; - eval q{ $curproc->run_cgi_help($args);}; + eval q{ $curproc->run_cgi_options($args);}; if ($r = $@) { _error_string($r);} print "</td>\n"; @@ -382,6 +382,13 @@ sub run_cgi_title } +=head2 run_cgi_help($args) + +help. + +=cut + + # Descriptions: show help # Arguments: OBJ($curproc) HASH_REF($args) # Side Effects: none @@ -398,6 +405,40 @@ sub run_cgi_help } +=head2 run_cgi_options($args) + +show options. + +=cut + + +# Descriptions: show options +# Arguments: OBJ($curproc) HASH_REF($args) +# Side Effects: none +# Return Value: none +sub run_cgi_options +{ + my ($curproc, $args) = @_; + my $domain = $curproc->ml_domain(); + my $action = $curproc->myname(); + + print "<B><CENTER> OPTIONS </CENTER></B>\n"; + + print start_form(-action=>$action); + + print "Language:\n"; + my $langlist = [ 'Japanese', 'English' ]; + print scrolling_list(-name => 'language', + -values => $langlist, + -size => 1); + + print submit(-name => 'change'); + # print reset(-name => 'reset'); + + print end_form; +} + + =head2 run_cgi_menu($args, $comname, $command_args) execute cgi_menu() given as FML::Command::* |