Finish C::IO cleanup, strip out create guts.

This commit is contained in:
Colin Kuskie 2010-07-08 09:44:25 -07:00
parent 4cbbed3509
commit 9ebcc0a87a
2 changed files with 116 additions and 61 deletions

View file

@ -89,11 +89,6 @@ These subroutines are available from this package:
=cut
#readonly session => my %session;
#private properties => my %properties;
#public error => my %error;
#private addressBookCache => my %addressBookCache;
#-------------------------------------------------------------------
=head2 new ( $session, $cartId )
@ -326,12 +321,7 @@ A reference to the current session.
sub create {
my ($class, $session) = @_;
unless (defined $session && $session->isa("WebGUI::Session")) {
WebGUI::Error::InvalidObject->throw(expected=>"WebGUI::Session", got=>(ref $session), error=>"Need a session.");
}
my $cartId = $session->id->generate;
$session->db->write('insert into cart (cartId, sessionId, creationDate) values (?,?,UNIX_TIMESTAMP())', [$cartId, $session->getId]);
return $class->new($session, $cartId);
return $class->new($session);
}
#-------------------------------------------------------------------