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

WebGUI::Session::Scratch->delete now acts more like Perl's delete()fix: redirectAfterLogin wouldn't work if displayLogin called from WebGUI::Operation::execute

Browse source
This commit is contained in:
Doug Bell 2006-11-07 08:13:23 +00:00
parent 776a6bfdcc
commit e68f609850
3 changed files with 22 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Session/Scratch.pm
View file

@ -48,7 +48,8 @@ These methods are available from this package:
=head2 delete ( name )
Deletes a scratch variable.
Deletes a scratch variable. Returns the value of the deleted variable for
convenience, or undef if the variable was not defined.
=head3 name
@ -60,8 +61,9 @@ sub delete {
my $self = shift;
my $name = shift;
return undef unless ($name);
delete $self->{_data}{$name};
my $value = delete $self->{_data}{$name};
$self->session->db->write("delete from userSessionScratch where name=? and sessionId=?", [$name, $self->session->getId]);
return $value;
}