Tadashi Okoshi
slash****@users*****
2005年 10月 27日 (木) 20:15:01 JST
Index: affelio/lib/Affelio/App/FriendRoutines.pm
diff -u affelio/lib/Affelio/App/FriendRoutines.pm:1.5 affelio/lib/Affelio/App/FriendRoutines.pm:1.6
--- affelio/lib/Affelio/App/FriendRoutines.pm:1.5 Sun Jul 3 07:46:12 2005
+++ affelio/lib/Affelio/App/FriendRoutines.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: FriendRoutines.pm,v 1.5 2005/07/02 22:46:12 slash5234 Exp $
+# $Id: FriendRoutines.pm,v 1.6 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::FriendRoutines;
{
@@ -50,7 +50,7 @@
# f2 or PB
####################
- my $SQL_ret = $af->{perm}->get_permission("f", $visitor_mode);
+ my $SQL_ret = $af->getPERM->get_permission("f", $visitor_mode);
@ret_list = $SQL_ret->fetchrow_array;
# Now...
# $ret_list[0] = Permission ID
@@ -72,7 +72,7 @@
####################
#In case of "self" .... everything is 1.
- my $attributes = $af->{pm}->get_attribute_table();
+ my $attributes = $af->getPM->get_attribute_table();
my @row=();
while(@row = $attributes->fetchrow_array){
@@ -87,22 +87,22 @@
# perm(f1) OR Vx(perm(G))
#Get permssion for F1
- my $SQL_ret1 = $af->{perm}->get_permission("f", $visitor_mode);
+ my $SQL_ret1 = $af->getPERM->get_permission("f", $visitor_mode);
@ret_list = $SQL_ret1->fetchrow_array;
#Get the visitor's UID
my ($t_uid, $t_afid, $t_nickname, $t_time,
$t_pass, $t_intro, $t_pid, $t_lastupdated, $t_f2list)
- = $af->{fm}->get_friend_by_afid($visitor_id);
+ = $af->getFM->get_friend_by_afid($visitor_id);
#Get the visitor's groups
- my $SQL_result = $af->{gm}->get_groups_by_uid($t_uid);
+ my $SQL_result = $af->getGM->get_groups_by_uid($t_uid);
#For each group...
my @g_data=();
while(@g_data = $SQL_result->fetchrow_array) {
my $gid = $g_data[0];
- my $SQL_ret2 = $af->{perm}->get_permission("g", $gid);
+ my $SQL_ret2 = $af->getPERM->get_permission("g", $gid);
my @list1 = $SQL_ret2->fetchrow_array;
#For each value...
@@ -154,7 +154,7 @@
######################################
#Get all friends' table from FriendManager
######################################
- my $sth = $af->{fm}->get_all_friend_list();
+ my $sth = $af->getFM->get_all_friend_list();
######################################
#Build up a return array
@@ -244,7 +244,7 @@
######################################
#Get all friends' table from FriendManager
######################################
- my $sth = $af->{fm}->get_all_friend_list();
+ my $sth = $af->getFM->get_all_friend_list();
######################################
#Build up a return array
Index: affelio/lib/Affelio/App/ShowProfile.pm
diff -u affelio/lib/Affelio/App/ShowProfile.pm:1.3 affelio/lib/Affelio/App/ShowProfile.pm:1.4
--- affelio/lib/Affelio/App/ShowProfile.pm:1.3 Fri Jul 1 11:00:06 2005
+++ affelio/lib/Affelio/App/ShowProfile.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: ShowProfile.pm,v 1.3 2005/07/01 02:00:06 slash5234 Exp $
+# $Id: ShowProfile.pm,v 1.4 2005/10/27 11:15:01 slash5234 Exp $
package Affelio::App::ShowProfile;
{
@@ -57,7 +57,7 @@
# $list[1] = perm for 1st element ...aid=1
# $list[2] = ...
- my $attributes = $af->{pm}->get_attribute_table();
+ my $attributes = $af->getPM->get_attribute_table();
my @row=();
while(@row = $attributes->fetchrow_array){