oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added tests for User.pm

Browse source 
Fixed lastUpdated bugs in User.pm
Fixed karma bug in User.pm
This commit is contained in:
Roy Johnson 2005-12-06 05:10:58 +00:00
parent 5a44090e8a
commit 6151e59cbd
3 changed files with 184 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/User.pm
View file

@ -107,6 +107,7 @@ sub authMethod {
if (defined $value) {
$self->uncache;
$self->{_user}{"authMethod"} = $value;
$self->{_user}{"lastUpdated"} = time();
WebGUI::SQL->write("update users set authMethod=".quote($value).",
lastUpdated=".time()." where userId=".quote($self->{_userId}));
}
@ -214,6 +215,7 @@ sub karma {
my $description = shift;
if (defined $amount && defined $source && defined $description) {
$self->uncache;
$self->{_user}{karma} += $amount;
WebGUI::SQL->write("update users set karma=karma+".quote($amount)." where userId=".quote($self->userId));
WebGUI::SQL->write("insert into karmaLog values (".quote($self->userId).",$amount,".quote($source).",".quote($description).",".time().")");
}
@ -315,6 +317,7 @@ sub profileField {
WebGUI::SQL->write("delete from userProfileData where userId=".quote($self->{_userId})." and fieldName=".quote($fieldName));
warn("insert into userProfileData values (".quote($self->{_userId}).", ".quote($fieldName).", ".quote($value).")");
WebGUI::SQL->write("insert into userProfileData values (".quote($self->{_userId}).", ".quote($fieldName).", ".quote($value).")");
$self->{_user}{"lastUpdated"} = time();
WebGUI::SQL->write("update users set lastUpdated=".time()." where userId=".quote($self->{_userId}));
}
return $self->{_profile}{$fieldName};
@ -338,6 +341,7 @@ sub referringAffiliate {
if (defined $value) {
$self->uncache;
$self->{_user}{"referringAffiliate"} = $value;
$self->{_user}{"lastUpdated"} = time();
WebGUI::SQL->write("update users set referringAffiliate=".quote($value).",
lastUpdated=".time()." where userId=".quote($self->userId));
}
@ -362,6 +366,7 @@ sub status {
if (defined $value) {
$self->uncache;
$self->{_user}{"status"} = $value;
$self->{_user}{"lastUpdated"} = time();
WebGUI::SQL->write("update users set status=".quote($value).",
lastUpdated=".time()." where userId=".quote($self->userId));
}
@ -400,6 +405,7 @@ sub username {
if (defined $value) {
$self->uncache;
$self->{_user}{"username"} = $value;
$self->{_user}{"lastUpdated"} = time();
WebGUI::SQL->write("update users set username=".quote($value).",
lastUpdated=".time()." where userId=".quote($self->userId));
}