removal of dumpSession.
This commit is contained in:
parent
7d1dfed519
commit
4a3121960f
199 changed files with 379 additions and 404 deletions
|
|
@ -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);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue