Tadashi Okoshi
slash****@users*****
2005年 6月 27日 (月) 16:14:18 JST
Index: affelio/lib/Affelio.pm diff -u affelio/lib/Affelio.pm:1.6 affelio/lib/Affelio.pm:1.7 --- affelio/lib/Affelio.pm:1.6 Sat Jun 25 21:14:05 2005 +++ affelio/lib/Affelio.pm Mon Jun 27 16:14:18 2005 @@ -4,7 +4,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: Affelio.pm,v 1.6 2005/06/25 12:14:05 slash5234 Exp $ +# $Id: Affelio.pm,v 1.7 2005/06/27 07:14:18 slash5234 Exp $ package Affelio; { @@ -327,9 +327,28 @@ sub load_ApplicationManager{ my $self = shift; try{ + ########################### + #Start ApplicationManager + ########################### $self->{am} = new Affelio::Managing::ApplicationManager($self); - } - catch Error with { + + ########################### + #Configure "Top page" + ########################### + if(($self->{userpref__toppage_app_installname} ne "") + && ($self->{userpref__toppage_app_installname} ne "Affelio")){ + + $self->{userpref__toppage_app_path}= + "/apps/" . + $self->{userpref__toppage_app_installname} . "/" . + $self->{am}->{apps}->{"$self->{userpref__toppage_app_installname}"}->{guest_index}; + + }else{ + $self->{userpref__toppage_app_installname} = "Affelio"; + $self->{userpref__toppage_app_path}="index.cgi?mode=index"; + } + + }catch Error with { my $ex = shift; if($self->{mode} ne "init"){ die "Cannot load application manager"; @@ -412,6 +431,8 @@ my $rootproperty = $Config->{_}->{rootproperty}; #Write preferences + $Config->{preference}->{toppage_app_installname} = + $self->{userpref__toppage_app_installname}; $Config->{preference}->{emailack_friendship_recv} = $self->{userpref__emailack_fr_recv}; $Config->{preference}->{preferred_hosting_service} = @@ -438,6 +459,8 @@ my $rootproperty = $Config->{_}->{rootproperty}; #Read preferences + $self->{userpref__toppage_app_installname} + = $wi->PTN_word($Config->{preference}->{toppage_app_installname}); $self->{userpref__emailack_fr_recv} = $wi->PTN_word($Config->{preference}->{emailack_friendship_recv}); $self->{userpref__preferred_hosting_service} @@ -473,7 +496,7 @@ $owner_mode_url = $self->{am}->{apps}->{$self->{caller}}->{owner_index}; }else{ - $guest_mode_url= $self->{site__web_root}; + $guest_mode_url= $self->{site__web_root} . "/index.cgi?mode=index"; $owner_mode_url= $self->{site__web_root} . "/admin.cgi"; } @@ -525,7 +548,7 @@ {'name' => "Affelio", 'image_normal' => "$self->{site__web_root}/icons/affelio_normal.jpg", 'image_over' => "$self->{site__web_root}/icons/affelio_over.jpg", - 'url' => $self->{site__web_root}, + 'url' => $self->{site__web_root} . "/index.cgi?mode=index" , 'selected' => $selected} );
