diff options
| -rw-r--r-- | fml/lib/FML/CGI/ThreadTrack.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/fml/lib/FML/CGI/ThreadTrack.pm b/fml/lib/FML/CGI/ThreadTrack.pm index 50ac6238..31d53c23 100644 --- a/fml/lib/FML/CGI/ThreadTrack.pm +++ b/fml/lib/FML/CGI/ThreadTrack.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: ThreadTrack.pm,v 1.17 2002/04/10 09:51:24 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.18 2002/06/01 03:01:53 fukachan Exp $ # package FML::CGI::ThreadTrack; @@ -62,9 +62,9 @@ sub html_start my $charset = $config->{ cgi_charset } || 'euc-jp'; # o.k start html - print start_html(-title=>$title, - -lang => $charset, - -BGCOLOR=>$color); + print start_html(-title => $title, + -lang => $charset, + -BGCOLOR => $color); print "\n"; } @@ -93,7 +93,7 @@ sub run_cgi_main my ($curproc, $args) = @_; my $config = $curproc->{ config }; my $myname = $config->{ program_name }; - my $ttargs = $curproc->_build_param($args); + my $ttargs = $curproc->_build_threadtrack_param($args); my $action = $curproc->safe_param_action() || ''; use Mail::ThreadTrack; @@ -106,7 +106,7 @@ sub run_cgi_main $thread->summary(); } elsif ($action eq 'show') { - my $id = $curproc->safe_param_article_id(); + my $id = $curproc->safe_param_article_id(); my $tid = $thread->_create_thread_id_strings($id); $thread->show($tid); } @@ -143,7 +143,7 @@ sub run_cgi_main # Arguments: OBJ($curproc) HASH_REF($args) # Side Effects: none # Return Value: HASH_REF -sub _build_param +sub _build_threadtrack_param { my ($curproc, $args) = @_; my $config = $curproc->{ config }; |