more upgrades progress

This commit is contained in:
Graham Knop 2010-05-10 16:58:56 -05:00
parent 00b3113031
commit adf3dbbe04
17 changed files with 90 additions and 24 deletions

View file

@ -172,6 +172,12 @@ sub close {
foreach my $key (qw/_asset _datetime _icon _slave _db _form _http _id _output _privilege _scratch _setting _stow _style _url _user _var _cache _errorHandler _response _request/) {
delete $self->{$key};
}
$self->{closed} = 1;
}
sub closed {
my $self = shift;
return $self->{closed};
}
#-------------------------------------------------------------------