removal of dumpSession.

This commit is contained in:
Matthew Wilson 2006-01-26 05:39:16 +00:00
parent 7d1dfed519
commit 4a3121960f
199 changed files with 379 additions and 404 deletions

View file

@ -69,7 +69,7 @@ A hash reference containing the properties of this field. See the set() method f
sub create {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $properties = shift;
my ($sequenceNumber) = $session->db->quickArray("select max(sequenceNumber) from userProfileCategory");
my $id = $session->db->setRow("userProfileCategory","profileCategoryId",{profileCategoryId=>"new", sequenceNumber=>$sequenceNumber+1});
@ -276,7 +276,7 @@ The unique id of this category.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $id = shift;
return undef unless ($id);
my $properties = $session->db->getRow("userProfileCategory","profileCategoryId",$id);