diff options
| author | fukachan <fukachan> | 2004-07-23 04:13:25 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-07-23 04:13:25 +0000 |
| commit | a68447ca0aad2c191d758d39f560f1da8da952ed (patch) | |
| tree | de8ee09e8cc694f66513acbf79c4abd10947915c /fml/lib/FML/CGI | |
| parent | 218554862d53ed310b00d6f6a4a5b5a34ce7f927 (diff) | |
| download | fml8-a68447ca0aad2c191d758d39f560f1da8da952ed.tar.gz fml8-a68447ca0aad2c191d758d39f560f1da8da952ed.tar.bz2 fml8-a68447ca0aad2c191d758d39f560f1da8da952ed.zip | |
fix comments.
fix error messages.
Diffstat (limited to 'fml/lib/FML/CGI')
| -rw-r--r-- | fml/lib/FML/CGI/ML.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/FML/CGI/ML.pm b/fml/lib/FML/CGI/ML.pm index ff53ce2e..a4a0faa4 100644 --- a/fml/lib/FML/CGI/ML.pm +++ b/fml/lib/FML/CGI/ML.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: ML.pm,v 1.7 2004/01/02 14:50:29 fukachan Exp $ +# $FML: ML.pm,v 1.8 2004/01/18 13:56:05 fukachan Exp $ # package FML::CGI::ML; @@ -14,7 +14,7 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use CGI qw/:standard/; # load standard CGI routines -# Descriptions: standard constructor +# Descriptions: constructor. # Arguments: OBJ($self) # Side Effects: none # Return Value: OBJ @@ -27,7 +27,7 @@ sub new } -# Descriptions: show menu for subscribe/unsubscribe commands +# Descriptions: show menu for subscribe/unsubscribe commands. # Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) # Side Effects: none # Return Value: none @@ -42,11 +42,11 @@ sub cgi_menu my $comname = $command_args->{ comname }; my $command_list = [ 'newml', 'rmml' ]; - # XXX-TODO: who verified comname ? + # XXX-TODO: who verified comname ? ($command_args verified?) unless ($curproc->cgi_var_cgi_mode() eq "admin") { # XXX-TODO: nl ? - croak("Admin::ML::cgi_menu: prohibited in this mode"); + croak("FML::CGI::ML prohibited in this mode"); } print start_form(-action=>$action, -target=>$target); |