Tadashi Okoshi
slash****@users*****
2005年 6月 28日 (火) 02:50:27 JST
Index: affelio/lib/Affelio/App/Admin/Configuration.pm diff -u affelio/lib/Affelio/App/Admin/Configuration.pm:1.1 affelio/lib/Affelio/App/Admin/Configuration.pm:1.2 --- affelio/lib/Affelio/App/Admin/Configuration.pm:1.1 Mon Jun 27 16:19:08 2005 +++ affelio/lib/Affelio/App/Admin/Configuration.pm Tue Jun 28 02:50:27 2005 @@ -4,7 +4,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: Configuration.pm,v 1.1 2005/06/27 07:19:08 slash5234 Exp $ +# $Id: Configuration.pm,v 1.2 2005/06/27 17:50:27 slash5234 Exp $ package Affelio::App::Admin::Configuration; { @@ -41,10 +41,21 @@ debug_print("Config::conf: toppage=[$toppage]"); ############################################## + #Messaging + ############################################## + my $val = $wi->PTN_word($cgi->param("pref__mesging__emailflg")); + debug_print("Config::conf: mesging__emailflg=[$val]"); + if($val eq "no"){ + $af->{userpref__mesging__emailflg} = "no"; + }else{ + $af->{userpref__mesging__emailflg} = "yes"; + } + + ############################################## #Preferred Hosting Service ############################################## $af->{userpref__preferred_hosting_service} = - $wi->PTN_URL($cgi->param("pref_hosting_service")); + $wi->PTN_URL($cgi->param("pref__hosting_service")); $af->write_user_prefs(); debug_print("Config::conf: end."); @@ -100,9 +111,16 @@ } ############################################## + #Messaging + ############################################## + my $name = "pref__mesging_emailflg__" + . $af->{userpref__mesging__emailflg}; + $output_ref->{$name} = "checked"; + + ############################################## #Preferred Hosting Service ############################################## - $output_ref->{"pref_hosting_service"} = + $output_ref->{"pref__hosting_service"} = $af->{userpref__preferred_hosting_service}; debug_print("Config::show end.");
