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

@ -431,7 +431,7 @@ The name of the group you wish to instantiate.
sub find {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $name = shift;
my ($groupId) = $session->db->quickArray("select groupId from groups where groupName=".$session->db->quote($name));
return WebGUI::Group->new($session,$groupId);
@ -697,7 +697,7 @@ sub new {
tie %group, 'Tie::CPHash';
$class = shift;
my $self = {};
$self->{_session} = shift; use WebGUI; WebGUI::dumpSession($self->{_session});
$self->{_session} = shift;
$self->{_groupId} = shift;
bless $self, $class;
$self->_create() if ($self->{_groupId} eq "new");