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

Remove debugging code from User.pm

Browse source 
Add clause to remove any dot file from getToolbarOptions in Icon.pm
This commit is contained in:
Colin Kuskie 2005-12-10 21:29:06 +00:00
parent fadb77822e
commit 45de852b61
2 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Icon.pm
View file

@ -242,7 +242,7 @@ sub getToolbarOptions {
opendir (DIR,$dir) or WebGUI::ErrorHandler::warn("Can't open toolbar directory!");
my @files = readdir(DIR);
foreach my $file (@files) {
if ($file ne ".." && $file ne ".") {
if (substr($file,0,1) ne ".") {
$options{$file} = $file;
}
}

2
lib/WebGUI/User.pm
View file

@ -307,11 +307,9 @@ sub profileField {
$fieldName = shift;
$value = shift;
if (defined $value) {
warn "storing: $value\n";
$self->uncache;
$self->{_profile}{$fieldName} = $value;
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}));