Tadashi Okoshi
slash****@users*****
2005年 10月 27日 (木) 20:15:01 JST
Index: affelio/lib/Affelio/App/Admin/AccessControl.pm
diff -u affelio/lib/Affelio/App/Admin/AccessControl.pm:1.3 affelio/lib/Affelio/App/Admin/AccessControl.pm:1.4
--- affelio/lib/Affelio/App/Admin/AccessControl.pm:1.3 Fri Jul 1 11:00:07 2005
+++ affelio/lib/Affelio/App/Admin/AccessControl.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: AccessControl.pm,v 1.3 2005/07/01 02:00:07 slash5234 Exp $
+# $Id: AccessControl.pm,v 1.4 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::AccessControl;
{
@@ -60,7 +60,7 @@
debug_print("save_GroupAttribute_table: For group[$gid]...");
#Get attribute table
- my $attributes = $af->{pm}->get_attribute_table();
+ my $attributes = $af->getPM->get_attribute_table();
#Set values
my @g_perm=();
@@ -74,7 +74,7 @@
}
$g_perm[0] = 1;
debug_print("save_GroupAttribute_table: group_permission=[@g_perm]");
- $af->{perm}->update_permission($option_pid, \@g_perm);
+ $af->getPERM->update_permission($option_pid, \@g_perm);
} #while
}#part
@@ -83,7 +83,7 @@
#######################################################
# Save registered groups
{
- my $groups_SQL = $af->{gm}->get_all_group_list();
+ my $groups_SQL = $af->getGM->get_all_group_list();
#For each group returned...
while( (my ($gid, $group_name, $members, $option_pid)
@@ -93,7 +93,7 @@
if($gid <1){last;}
#Get attribute table
- my $attributes = $af->{pm}->get_attribute_table();
+ my $attributes = $af->getPM->get_attribute_table();
#Set values
my @g_perm=();
@@ -107,7 +107,7 @@
}
$g_perm[0] = 1;
debug_print("save_GroupAttribute_table: group_permission=[@g_perm]");
- $af->{perm}->update_permission($option_pid, \@g_perm);
+ $af->getPERM->update_permission($option_pid, \@g_perm);
}#while
}#part
@@ -117,10 +117,10 @@
{
if($q->param("newg_group_name") ne ""){
- my $gid = $af->{gm}->add_group($q->param("newg_group_name"));
+ my $gid = $af->getGM->add_group($q->param("newg_group_name"));
#Get attribute table
- my $attributes = $af->{pm}->get_attribute_table();
+ my $attributes = $af->getPM->get_attribute_table();
#Set values
my @g_perm=();
@@ -134,7 +134,7 @@
}
$g_perm[1] = 1;
debug_print("save_GroupAttribute_table: newg group=[@g_perm]");
- $af->{perm}->add_permission("g", $gid, \@g_perm);
+ $af->getPERM->add_permission("g", $gid, \@g_perm);
}
}
@@ -173,11 +173,11 @@
$this_group_ret{"group_name"} = $group_name;
#For each group, get the permission list.
- my $g_perm_result = $af->{perm}->get_permission("f", "$gid");
+ my $g_perm_result = $af->getPERM->get_permission("f", "$gid");
my @g_perm = $g_perm_result->fetchrow_array;
debug_print("show_GroupAttribute_table: group_permission=[@g_perm]");
#Get attribute table
- my $attributes = $af->{pm}->get_attribute_table();
+ my $attributes = $af->getPM->get_attribute_table();
#Set values
while(my ($attr_id, $attr_name, $attr_type)
@@ -207,7 +207,7 @@
#######################################################
# Registered Groups
- my $groups_SQL = $af->{gm}->get_all_group_list();
+ my $groups_SQL = $af->getGM->get_all_group_list();
#For each group returned...
while( (my ($gid, $group_name, $members, $option_pid)
@@ -222,11 +222,11 @@
$this_group_ret{"group_name"} = $group_name;
#For each group, get the permission list.
- my $g_perm_result = $af->{perm}->get_permission("g", "$gid");
+ my $g_perm_result = $af->getPERM->get_permission("g", "$gid");
my @g_perm = $g_perm_result->fetchrow_array;
debug_print("show_GroupAttribute_table: group_permission=[@g_perm]");
#Get attribute table
- my $attributes = $af->{pm}->get_attribute_table();
+ my $attributes = $af->getPM->get_attribute_table();
#Set values
while(my ($attr_id, $attr_name, $attr_type)
Index: affelio/lib/Affelio/App/Admin/AccessLog.pm
diff -u affelio/lib/Affelio/App/Admin/AccessLog.pm:1.9 affelio/lib/Affelio/App/Admin/AccessLog.pm:1.10
--- affelio/lib/Affelio/App/Admin/AccessLog.pm:1.9 Sun Jul 3 18:15:30 2005
+++ affelio/lib/Affelio/App/Admin/AccessLog.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: AccessLog.pm,v 1.9 2005/07/03 09:15:30 slash5234 Exp $
+# $Id: AccessLog.pm,v 1.10 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::AccessLog;
{
@@ -66,7 +66,7 @@
###############################
#Access to AccessLog Manager
###############################
- my $result = $af->{alm}->get_log($start_time, $cur_time);
+ my $result = $af->getALM->get_log($start_time, $cur_time);
###############################
#Parse result
Index: affelio/lib/Affelio/App/Admin/Configuration.pm
diff -u affelio/lib/Affelio/App/Admin/Configuration.pm:1.3 affelio/lib/Affelio/App/Admin/Configuration.pm:1.4
--- affelio/lib/Affelio/App/Admin/Configuration.pm:1.3 Fri Jul 1 11:00:07 2005
+++ affelio/lib/Affelio/App/Admin/Configuration.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: Configuration.pm,v 1.3 2005/07/01 02:00:07 slash5234 Exp $
+# $Id: Configuration.pm,v 1.4 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::Configuration;
{
@@ -104,7 +104,7 @@
###############
#Apps
###############
- while (($install_name, $app) = each(%{$af->{am}->{apps}})){
+ while (($install_name, $app) = each(%{$af->getAM->{apps}})){
if($af->{userpref__toppage_app_installname}
eq $app->{install_name}){
Index: affelio/lib/Affelio/App/Admin/EditProfile.pm
diff -u affelio/lib/Affelio/App/Admin/EditProfile.pm:1.3 affelio/lib/Affelio/App/Admin/EditProfile.pm:1.4
--- affelio/lib/Affelio/App/Admin/EditProfile.pm:1.3 Fri Jul 1 11:00:07 2005
+++ affelio/lib/Affelio/App/Admin/EditProfile.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: EditProfile.pm,v 1.3 2005/07/01 02:00:07 slash5234 Exp $
+# $Id: EditProfile.pm,v 1.4 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::EditProfile;
{
@@ -132,7 +132,7 @@
#$err .= ...
#Save Profile
- $af->{pm}->save_profile();
+ $af->getPM->save_profile();
return($err);
}
Index: affelio/lib/Affelio/App/Admin/FriendsGraph.pm
diff -u affelio/lib/Affelio/App/Admin/FriendsGraph.pm:1.7 affelio/lib/Affelio/App/Admin/FriendsGraph.pm:1.8
--- affelio/lib/Affelio/App/Admin/FriendsGraph.pm:1.7 Fri Jul 1 11:00:07 2005
+++ affelio/lib/Affelio/App/Admin/FriendsGraph.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: FriendsGraph.pm,v 1.7 2005/07/01 02:00:07 slash5234 Exp $
+# $Id: FriendsGraph.pm,v 1.8 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::FriendsGraph;
{
@@ -42,7 +42,7 @@
my $af = shift;
my @friends_list=();
- my $result = $af->{fm}->get_all_friend_list();
+ my $result = $af->getFM->get_all_friend_list();
my %tmp_hash;
while( my @row = $result->fetchrow_array ){
@@ -63,7 +63,7 @@
##################################################
#Save the F2 list into my DB
- $af->{fm}->save_F2List($ret, $peer_af_id);
+ $af->getFM->save_F2List($ret, $peer_af_id);
}catch Affelio::exception::IOException with{
@@ -85,7 +85,7 @@
my $ret="";
- my $f1_result= $af->{fm}->get_all_friend_list();
+ my $f1_result= $af->getFM->get_all_friend_list();
my @person=();
while(@person = $f1_result->fetchrow_array) {
# $person[0] uid
@@ -100,13 +100,13 @@
if($f2_uid > 0){
#The other peer is also an F1 person.
my $f2_nickname
- = $af->{fm}->get_attribute_by_uid($f2_uid,
+ = $af->getFM->get_attribute_by_uid($f2_uid,
"nickname");
$ret .= $person[2] . "-" . $f2_nickname . ",";
}else{
#The other peer is an F2 person.
my $f2_nickname
- = $af->{fm}->F2_get_attribute_by_uid($f2_uid,
+ = $af->getFM->F2_get_attribute_by_uid($f2_uid,
"nickname");
$ret .= $person[2] . "-" . $f2_nickname . ",";
}
Index: affelio/lib/Affelio/App/Admin/GroupMemberTable.pm
diff -u affelio/lib/Affelio/App/Admin/GroupMemberTable.pm:1.3 affelio/lib/Affelio/App/Admin/GroupMemberTable.pm:1.4
--- affelio/lib/Affelio/App/Admin/GroupMemberTable.pm:1.3 Fri Jul 1 11:00:07 2005
+++ affelio/lib/Affelio/App/Admin/GroupMemberTable.pm Thu Oct 27 20:15:01 2005
@@ -1,5 +1,4 @@
# Copyright (C) 2005 FishGrove Inc.
-#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
@@ -14,7 +13,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: GroupMemberTable.pm,v 1.3 2005/07/01 02:00:07 slash5234 Exp $
+# $Id: GroupMemberTable.pm,v 1.4 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::GroupMemberTable;
{
@@ -58,7 +57,7 @@
}
foreach my $gid (@gid_array){
- $af->{gm}->set_member_by_intarray($gid, \@{$gid_uid_table[$gid]});
+ $af->getGM->set_member_by_intarray($gid, \@{$gid_uid_table[$gid]});
}
}
@@ -77,7 +76,7 @@
my @group_names=();
$output_ref->{'group_names'} = \@group_names;
- my $groups_SQL = $af->{gm}->get_all_group_list();
+ my $groups_SQL = $af->getGM->get_all_group_list();
while( (my ($gid, $group_name, $members, $option_pid, $lastupdated, $f2list) = $groups_SQL->fetchrow_array)){
push(@group_names,
@@ -93,7 +92,7 @@
my @members=();
$output_ref->{'members'} = \@members;
- my $SQL_result = $af->{fm}->get_all_friend_list();
+ my $SQL_result = $af->getFM->get_all_friend_list();
my @person=();
while(@person = $SQL_result->fetchrow_array) {
#For each friend....
@@ -112,7 +111,7 @@
}
#Set "checked_flag" for each belonging group
- my $SQL_result2 = $af->{gm}->get_groups_by_uid($person[0]);
+ my $SQL_result2 = $af->getGM->get_groups_by_uid($person[0]);
while((my $tmp_gid, my @rest) = $SQL_result2->fetchrow_array) {
$my_belonging_groups[$tmp_gid-1]{'checked_flag'} ="checked";
}
Index: affelio/lib/Affelio/App/Admin/ManageApplication.pm
diff -u affelio/lib/Affelio/App/Admin/ManageApplication.pm:1.3 affelio/lib/Affelio/App/Admin/ManageApplication.pm:1.4
--- affelio/lib/Affelio/App/Admin/ManageApplication.pm:1.3 Fri Jul 1 11:00:07 2005
+++ affelio/lib/Affelio/App/Admin/ManageApplication.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: ManageApplication.pm,v 1.3 2005/07/01 02:00:07 slash5234 Exp $
+# $Id: ManageApplication.pm,v 1.4 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::ManageApplication;
{
@@ -46,7 +46,7 @@
my @pids = split('[\s]+', $pid_list);
my @type_array =
- @{$af->{am}->{apps}->{$app_name}->{action_types}};
+ @{$af->getAM->{apps}->{$app_name}->{action_types}};
unshift(@type_array, "DF_access");
unshift(@type_array, "DF_visibility");
@@ -63,7 +63,7 @@
}
debug_print("ManageApp:save: [$pid]:[$type_array[$type_count]] = [$param_value]");
- $af->{am}->update_permission($app_name,
+ $af->getAM->update_permission($app_name,
$pid,
$type_array[$type_count],
$param_value);
@@ -84,7 +84,7 @@
$output_ref->{"install_name"} = $app_name;
$output_ref->{"install_title"}
- = $af->{am}->{apps}->{$app_name}->{install_title};
+ = $af->getAM->{apps}->{$app_name}->{install_title};
#######################
#Headers
@@ -96,7 +96,7 @@
push(@headers, {header => '<AF_M text="DF_access">'});
my $type_desc_array =
- $af->{am}->{apps}->{$app_name}->{action_types_desc};
+ $af->getAM->{apps}->{$app_name}->{action_types_desc};
my $count=0;
foreach my $desc (@{$type_desc_array}){
@@ -113,10 +113,10 @@
$output_ref->{"groups"} = \@groups;
#prepare application permission table
- $af->{am}->prepare_app_perm_table($app_name);
+ $af->getAM->prepare_app_perm_table($app_name);
#Retrieve table
- my $result= $af->{am}->get_all_permission($app_name);
+ my $result= $af->getAM->get_all_permission($app_name);
##################
#For each group...
@@ -142,8 +142,8 @@
$af->{lh}->maketext("_VISITOR_TYPE_PB") . "</I></B>";
}elsif($type eq "g"){
my $query = "select group_name from AFuser_CORE_group where gid=$target_id";
- my $sth = $af->{db}->prepare($query) or die $af->{db}->errstr;
- $sth->execute() or die $af->{db}->errstr;
+ my $sth = $af->getDB->prepare($query) or die $af->getDB->errstr;
+ $sth->execute() or die $af->getDB->errstr;
my @tmp_array = $sth->fetchrow_array;
$this_group{group_name} = $tmp_array[0];
} #if
@@ -181,7 +181,7 @@
my $install_name;
my $app;
- while (($install_name, $app) = each(%{$af->{am}->{apps}})){
+ while (($install_name, $app) = each(%{$af->getAM->{apps}})){
push(@applications, {install_title => $app->{install_title},
install_name => $app->{install_name},
Index: affelio/lib/Affelio/App/Admin/ManageFriend.pm
diff -u affelio/lib/Affelio/App/Admin/ManageFriend.pm:1.4 affelio/lib/Affelio/App/Admin/ManageFriend.pm:1.5
--- affelio/lib/Affelio/App/Admin/ManageFriend.pm:1.4 Fri Jul 1 11:00:07 2005
+++ affelio/lib/Affelio/App/Admin/ManageFriend.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: ManageFriend.pm,v 1.4 2005/07/01 02:00:07 slash5234 Exp $
+# $Id: ManageFriend.pm,v 1.5 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::ManageFriend;
{
@@ -47,7 +47,7 @@
my $value = $cgi->param($attr);
debug_print("modify_member [$attr] is modified to [$value]");
- $af->{fm}->set_attribute_by_id($uid, $attr, $value);
+ $af->getFM->set_attribute_by_id($uid, $attr, $value);
debug_print("modify_member uid[$uid] end.");
}
@@ -61,16 +61,16 @@
my $cgi = shift; #arg(3) cgi
debug_print("remove_member uid[$uid] start.");
- my $afid = $af->{fm}->get_attribute_by_uid($uid, "af_id");
+ my $afid = $af->getFM->get_attribute_by_uid($uid, "af_id");
#Remove entry(uid) from AFuser_CORE_friends
#Remove uid from friends of others in AFuser_CORE_friends
#Remove entry(uid) from AFuser_CORE_friendsfriends
#Remove uid from friends of others in AFuser_CORE_friendsfriends
- $af->{fm}->remove_friend($uid);
+ $af->getFM->remove_friend($uid);
#Remove uid from groups
- $af->{gm}->remove_person_from_all($uid);
+ $af->getGM->remove_person_from_all($uid);
#add uid to erasedfriends
@@ -89,7 +89,7 @@
debug_print("show_member uid[$uid] start.");
- my @person = $af->{fm}->get_friend_by_uid($uid);
+ my @person = $af->getFM->get_friend_by_uid($uid);
# returns array(0uid, 1af_id, 2nickname, 3timestamp,
# 4password, 5intro, 6option_pid, 7lastupdated, 8 f2list)
debug_print("show_member [@person]");
@@ -114,13 +114,13 @@
#####################
#Get attribute table
- my $attributes = $af->{pm}->get_attribute_table();
+ my $attributes = $af->getPM->get_attribute_table();
#####################
#F1
#Get permission list of "F1"
- my $perm_result = $af->{perm}->get_permission("f", "f1");
+ my $perm_result = $af->getPERM->get_permission("f", "f1");
my @perm_F1 = $perm_result->fetchrow_array;
debug_print("show_member: perm_F1=[@perm_F1]");
@@ -152,7 +152,7 @@
#Group
#Get group lists which the target friends belongs to
- my $groups_SQL = $af->{gm}->get_groups_by_uid($person[0]);
+ my $groups_SQL = $af->getGM->get_groups_by_uid($person[0]);
my @groups_ret=();
@@ -169,12 +169,12 @@
$this_group_ret{"group_name"} = $group_name;
#For each group, get the permission list.
- my $g_perm_result = $af->{perm}->get_permission("g", "$gid");
+ my $g_perm_result = $af->getPERM->get_permission("g", "$gid");
my @g_perm = $g_perm_result->fetchrow_array;
debug_print("show_member: group_permission=[@g_perm]");
#Get attribute table
- my $attributes = $af->{pm}->get_attribute_table();
+ my $attributes = $af->getPM->get_attribute_table();
#Set values
while(my ($attr_id, $attr_name, $attr_type)
@@ -203,7 +203,7 @@
##################################################
#Groups that the user DOES NOT belong to
- my $add_groups_SQL = $af->{gm}->get_unsubscribing_groups_by_uid($uid);
+ my $add_groups_SQL = $af->getGM->get_unsubscribing_groups_by_uid($uid);
my @add_groups_ret=();
@@ -230,7 +230,7 @@
debug_print("subscribe_group: start. g[$gid] u[$uid]");
- $af->{gm}->add_member($gid, $uid);
+ $af->getGM->add_member($gid, $uid);
debug_print("subscribe_group: end.");
}
@@ -245,7 +245,7 @@
debug_print("unsubscribe_group: start. g[$gid] u[$uid]");
- $af->{gm}->remove_member($gid, $uid);
+ $af->getGM->remove_member($gid, $uid);
debug_print("unsubscribe_group: end.");
}
@@ -259,7 +259,7 @@
my $output_ref = shift; #arg(2) ref of %output_data;
my @friends_list=();
- my $result = $af->{fm}->get_all_friend_list();
+ my $result = $af->getFM->get_all_friend_list();
while( my @row = $result->fetchrow_array ){
Index: affelio/lib/Affelio/App/Admin/ManageGroup.pm
diff -u affelio/lib/Affelio/App/Admin/ManageGroup.pm:1.3 affelio/lib/Affelio/App/Admin/ManageGroup.pm:1.4
--- affelio/lib/Affelio/App/Admin/ManageGroup.pm:1.3 Fri Jul 1 11:00:07 2005
+++ affelio/lib/Affelio/App/Admin/ManageGroup.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: ManageGroup.pm,v 1.3 2005/07/01 02:00:07 slash5234 Exp $
+# $Id: ManageGroup.pm,v 1.4 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::ManageGroup;
{
@@ -39,7 +39,7 @@
my $gid = shift; #arg(2) gid
my $new_name = shift; #arg(3) new_name
- $af->{gm}->rename_group($gid,$new_name);
+ $af->getGM->rename_group($gid,$new_name);
}
#####################################################################
@@ -56,10 +56,10 @@
debug_print("ManageGroup:add_group start.[$group_name]");
#Create a new group
- my $gid = $af->{gm}->add_group($group_name);
+ my $gid = $af->getGM->add_group($group_name);
#Get attribute table
- my $attributes = $af->{pm}->get_attribute_table();
+ my $attributes = $af->getPM->get_attribute_table();
#Set values
my @g_perm=();
while(my ($attr_id, $attr_name, $attr_type)
@@ -69,7 +69,7 @@
$g_perm[1] = 0;
debug_print("ManageGroup:add_group newg group=[@g_perm]");
- $af->{perm}->add_permission("g", $gid, \@g_perm);
+ $af->getPM->add_permission("g", $gid, \@g_perm);
}
#####################################################################
@@ -80,7 +80,7 @@
my $gid = shift; #arg(2) gid
my $q = shift; #arg(3) CGI
- $af->{gm}->remove_group($gid);
+ $af->getGM->remove_group($gid);
}
@@ -92,7 +92,7 @@
my $output_ref = shift; #arg(2) ref of %output_data;
my @friends_list=();
- my $result = $af->{gm}->get_all_group_list();
+ my $result = $af->getGM->get_all_group_list();
while( my @row = $result->fetchrow_array ){
Index: affelio/lib/Affelio/App/Admin/Messaging.pm
diff -u affelio/lib/Affelio/App/Admin/Messaging.pm:1.15 affelio/lib/Affelio/App/Admin/Messaging.pm:1.16
--- affelio/lib/Affelio/App/Admin/Messaging.pm:1.15 Sun Jul 3 07:46:13 2005
+++ affelio/lib/Affelio/App/Admin/Messaging.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: Messaging.pm,v 1.15 2005/07/02 22:46:13 slash5234 Exp $
+# $Id: Messaging.pm,v 1.16 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::Messaging;
{
@@ -52,7 +52,7 @@
debug_print("Mesg::send: $msg_to $msg_title $msg_body");
- my $passAB = $af->{fm}->get_attribute_by_afid($msg_to, "password");
+ my $passAB = $af->getFM->get_attribute_by_afid($msg_to, "password");
if(!defined($passAB) || $passAB eq ""){
#Exception!
exit(1);
@@ -101,7 +101,7 @@
#To:
############################
my @friends_list=();
- my $result = $af->{fm}->get_all_friend_list();
+ my $result = $af->getFM->get_all_friend_list();
while( my @row = $result->fetchrow_array ){
my $selected = "";
@@ -142,7 +142,7 @@
debug_print("marK_as_read: start");
- my $ret= $af->{mesgm}->mark_as_read($mid);
+ my $ret= $af->getMESGM->mark_as_read($mid);
debug_print("marK_as_read: end");
}
@@ -154,7 +154,7 @@
my $af = shift;
debug_print("get_new: start");
- my $ret= $af->{mesgm}->get_unread_message_num();
+ my $ret= $af->getMESGM->get_unread_message_num();
debug_print("get_new: end");
return($ret);
@@ -174,7 +174,7 @@
debug_print("show_message: start.");
- my @message= $af->{mesgm}->retrieve_message($mid);
+ my @message= $af->getMESGM->retrieve_message($mid);
my ($msg_mid, $msg_timestamp, $msg_title, $msg_type,
$msg_from, $msg_body, $msg_readflag) = @message;
@@ -257,7 +257,7 @@
my @ret_messages=();
$output_ref->{'messages'} = \@ret_messages;
- my $messages= $af->{mesgm}->retrieve_all_messages();
+ my $messages= $af->getMESGM->retrieve_all_messages();
my @message=();
while(@message = $messages->fetchrow_array) {
Index: affelio/lib/Affelio/App/Admin/MyStatus.pm
diff -u affelio/lib/Affelio/App/Admin/MyStatus.pm:1.3 affelio/lib/Affelio/App/Admin/MyStatus.pm:1.4
--- affelio/lib/Affelio/App/Admin/MyStatus.pm:1.3 Fri Jul 1 11:00:07 2005
+++ affelio/lib/Affelio/App/Admin/MyStatus.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: MyStatus.pm,v 1.3 2005/07/01 02:00:07 slash5234 Exp $
+# $Id: MyStatus.pm,v 1.4 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::Admin::MyStatus;
{
@@ -42,7 +42,7 @@
$af->{user__currentstatus} = $currentstatus;
- $af->{pm}->save_profile();
+ $af->getPM->save_profile();
debug_print("MyStatus::post end");
}