use $curproc->config(), pcb() not { config }, { pcb } respectively.

5 files changed, 16 insertions, 16 deletions

diff --git a/fml/lib/FML/CGI/Admin/ML.pm b/fml/lib/FML/CGI/Admin/ML.pm
index 9f2c8d20..a2805b0c 100644
--- a/fml/lib/FML/CGI/Admin/ML.pm
+++ b/fml/lib/FML/CGI/Admin/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 2002/12/18 04:50:31 fukachan Exp $
+# $FML: ML.pm,v 1.8 2003/02/15 02:54:25 fukachan Exp $
 #
 
 package FML::CGI::Admin::ML;
@@ -37,7 +37,7 @@ sub new
 sub cgi_menu
 {
     my ($self, $curproc, $args, $command_args) = @_;
-    my $config       = $curproc->{ config };
+    my $config       = $curproc->config();
     my $action       = $curproc->safe_cgi_action_name();
     my $ml_domain    = $curproc->ml_domain();
     my $ml_list      = $curproc->get_ml_list($args, $ml_domain);
diff --git a/fml/lib/FML/CGI/Admin/Menu.pm b/fml/lib/FML/CGI/Admin/Menu.pm
index 51af5075..d1ef5882 100644
--- a/fml/lib/FML/CGI/Admin/Menu.pm
+++ b/fml/lib/FML/CGI/Admin/Menu.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: Menu.pm,v 1.24 2003/02/15 02:54:25 fukachan Exp $
+# $FML: Menu.pm,v 1.25 2003/02/16 08:33:08 fukachan Exp $
 #
 
 package FML::CGI::Admin::Menu;
@@ -72,7 +72,7 @@ This module has routines needed for the admin CGI.
 sub html_start
 {
     my ($curproc, $args) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $myname  = $curproc->myname();
     my $domain  = $curproc->ml_domain(); # must be safe (hard-coded in .cgi)
     my $ml_name = $curproc->cgi_try_get_ml_name($args); # safe ok
@@ -111,11 +111,11 @@ sub html_end
 sub run_cgi_main
 {
     my ($curproc, $args) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $address = $curproc->cgi_try_get_address($args);
     my $ml_name = $curproc->cgi_try_get_ml_name($args);
     my $hints   = $curproc->hints();
-    my $pcb     = $curproc->{ pcb };
+    my $pcb     = $curproc->pcb();
     my $mode    = 'admin'; # cgi runs under admin mode (same way as makefml)
 
     # specified command, we need to identify
@@ -213,7 +213,7 @@ sub run_cgi_main
 sub run_cgi_navigator
 {
     my ($curproc, $args) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $action  = $curproc->safe_cgi_action_name();
     my $target  = '_top';
 
diff --git a/fml/lib/FML/CGI/Admin/User.pm b/fml/lib/FML/CGI/Admin/User.pm
index a58eaa2d..043cd82e 100644
--- a/fml/lib/FML/CGI/Admin/User.pm
+++ b/fml/lib/FML/CGI/Admin/User.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: User.pm,v 1.16 2003/02/15 02:54:25 fukachan Exp $
+# $FML: User.pm,v 1.17 2003/05/15 03:26:03 fukachan Exp $
 #
 
 package FML::CGI::Admin::User;
@@ -42,7 +42,7 @@ sub cgi_menu
     my $target       = '_top';
     my $ml_list      = $curproc->get_ml_list($args);
     my $address      = $curproc->safe_param_address() || '';
-    my $config       = $curproc->{ config };
+    my $config       = $curproc->config();
     my $ml_name      = $command_args->{ ml_name };
     my $comname      = $command_args->{ comname };
     my $address_list = [];
diff --git a/fml/lib/FML/CGI/Calendar.pm b/fml/lib/FML/CGI/Calendar.pm
index 0a2dd092..b23c9887 100644
--- a/fml/lib/FML/CGI/Calendar.pm
+++ b/fml/lib/FML/CGI/Calendar.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: Calendar.pm,v 1.2 2003/01/31 14:56:14 fukachan Exp $
+# $FML: Calendar.pm,v 1.3 2003/02/16 08:33:07 fukachan Exp $
 #
 
 package FML::CGI::Calendar;
@@ -53,7 +53,7 @@ Almost all methods inherit C<FML::Process::CGI> base class.
 sub html_start
 {
     my ($curproc, $args) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $user    = $curproc->safe_param_user;
     my $myname  = $curproc->myname();
     my $title   = "$user schedule";
diff --git a/fml/lib/FML/CGI/ThreadTrack.pm b/fml/lib/FML/CGI/ThreadTrack.pm
index 479acbe4..b0d21200 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.24 2003/02/16 08:33:08 fukachan Exp $
+# $FML: ThreadTrack.pm,v 1.25 2003/03/28 10:03:38 fukachan Exp $
 #
 
 package FML::CGI::ThreadTrack;
@@ -54,7 +54,7 @@ C<FML::Process::CGI> base class.
 sub html_start
 {
     my ($curproc, $args) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $title   = $config->{ thread_cgi_title }   || 'thread system interface';
     my $color   = $config->{ thread_cgi_bgcolor } || '#E6E6FA';
     my $myname  = $curproc->myname();
@@ -90,7 +90,7 @@ sub html_end
 sub run_cgi_main
 {
     my ($curproc, $args) = @_;
-    my $config = $curproc->{ config };
+    my $config = $curproc->config();
     my $myname = $config->{ program_name }; # XXX-TODO: valid ?
     my $ttargs = $curproc->_build_threadtrack_param($args);
     my $action = $curproc->safe_param_action() || '';
@@ -147,7 +147,7 @@ sub run_cgi_main
 sub _build_threadtrack_param
 {
     my ($curproc, $args) = @_;
-    my $config = $curproc->{ config };
+    my $config = $curproc->config();
     my $myname = $config->{ program_name };
     my $option = $curproc->command_line_options();
 
@@ -188,7 +188,7 @@ sub _build_threadtrack_param
 sub run_cgi_navigator
 {
     my ($curproc, $args) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $action  = $curproc->safe_cgi_action_name();
     my $target  = $config->{ thread_cgi_target_window } || '_top';
     # XXX-TODO: we should provide $curproc->util->get_ml_list() method ?