Fixing require loops. Moose overrides for canEdit using packages.

This commit is contained in:
Colin Kuskie 2010-04-08 15:13:13 -07:00
parent d69ed84fd4
commit c835344813
14 changed files with 69 additions and 60 deletions

View file

@ -18,7 +18,6 @@ use strict;
use WebGUI::Group;
use WebGUI::Utility;
use WebGUI::Workflow::Instance;
use WebGUI::Shop::AddressBook;
use JSON ();
use WebGUI::ProfileField;
use Tie::CPHash;
@ -410,6 +409,7 @@ sub delete {
# Shop cleanups
my $sth = $session->db->prepare('select addressBookId from addressBook where userId=?');
$sth->execute([$userId]);
require WebGUI::Shop::AddressBook;
BOOK: while (my $bookId = $sth->hashRef) {
my $book;
eval { $book = WebGUI::Shop::AddressBook->new($session, $bookId->{addressBookId}); };