Check the Asset, not the class, and make sure it is loaded.

lib/WebGUI/AssetLineage.pm

@@ -72,6 +72,7 @@ sub addChild {
 	my $now         = shift || $session->datetime->time();
 	my $options     = shift;
     # Check for valid parentage using validParent on child's class
+    WebGUI::Asset->loadModule($properties->{className});
     if (! $properties->{className}->validParent($session, $self)) {
         return undef;
     }
@@ -997,9 +998,8 @@ sub validParent {
     my $session        = shift;
     my $asset          = shift || $session->asset;
     my $parent_classes = $class->valid_parent_classes;
-    my $valid_parent   = 0;
     foreach my $parentClass (@{ $class->valid_parent_classes}) {
-        return 1 if $class->isa($parentClass);
+        return 1 if $asset->isa($parentClass);
     }
     return 0;
 }

lib/WebGUI/Role/Asset/Subscribable.pm

@@ -64,31 +64,32 @@ Subclass the method to create a new group for subscribers for the new asset.
 
 =cut
 
-sub duplicate {
+override duplicate => sub {
     my $self        = shift;
     my $properties  = shift;
-    my $newSelf     = $self->next::method( $properties );
+    my $newSelf     = super();
     $newSelf->update({ subscriptionGroupId => '' });
     $newSelf->createSubscriptionGroup;
     return $newSelf;
-}
+};
 
 #----------------------------------------------------------------------------
 
 =head2 addRevision ( properties [, revisionDate, options ] )
 
-Override addRevision to set skipNotification to 0 for each new revision.
+Extend addRevision to set skipNotification to 0 for each new revision.
 
 =cut
 
-sub addRevision {
+around addRevision => sub {
+    my $orig        = shift;
     my $self        = shift;
     my $properties  = shift;
     
     $properties->{ skipNotification     } = 0;
 
-    return $self->maybe::next::method( $properties, @_ );
-}
+    return $self->$orig( $properties, @_ );
+};
 
 #----------------------------------------------------------------------------
 
@@ -120,14 +121,14 @@ want to be able to subscribe to children)
 
 =cut
 
-sub commit { 
+override commit => sub {
     my ( $self, @args ) = @_;
-    $self->maybe::next::method( @args );
+    super();
     if ( !$self->shouldSkipNotification ) {
         $self->notifySubscribers;
     }
     return;
-}
+};
 
 #----------------------------------------------------------------------------
 
@@ -424,16 +425,16 @@ Subclass the method to remove the subscription group.
 
 =cut
 
-sub purge {
+override purge => sub {
     my $self    = shift;
     my $options = shift;
 
     my $group   = $self->getSubscriptionGroup();
     $group->delete;
-    $self->next::method($options);
+    super();
 
     return;
-}
+};
 
 #----------------------------------------------------------------------------
 
@@ -444,7 +445,7 @@ revision.
 
 =cut
 
-sub setSkipNotification {
+override setSkipNotification => sub {
     my $self    = shift;
     my $value   = shift;
     $value      = defined $value ? $value : 1;
@@ -454,7 +455,7 @@ sub setSkipNotification {
     } );
 
     return;
-}
+};
 
 #----------------------------------------------------------------------------
 
@@ -464,10 +465,10 @@ Returns true if the asset should skip notifications.
 
 =cut
 
-sub shouldSkipNotification {
+override shouldSkipNotification => sub {
     my $self    = shift;
     return $self->skipNotification ? 1 : 0;
-}
+};
 
 #----------------------------------------------------------------------------