Changeset 2657

Timestamp:

06/30/08 05:19:22 (20 months ago)

Author:

fumiakiy

Message:

Adjust ancestry upon moving a category so the family relationship won't contradict with each other. BugId:80296

Files:

• branches/release-41/lib/MT/CMS/Category.pm (modified) (2 diffs)

branches/release-41/lib/MT/CMS/Category.pm

@@ -435 +435 @@
 }
 
+sub _adjust_ancestry {
+    my ( $cat, $ancestor ) = @_;
+    return unless $cat && $ancestor;
+    if ( $ancestor->parent && ( $ancestor->parent != $cat->id ) ) {
+        _adjust_ancestry($cat, $ancestor->parent_category);
+    }
+    else {
+        $ancestor->parent($cat->parent);
+        $ancestor->save;
+    }
+}
+
 sub move_category {
     my $app   = shift;
@@ -444 +456 @@
     my $cat        = $class->load( $app->param('move_cat_id') )
         or return;
-    my $new_parent = $app->param('move-radio');
-
-    return 1 if ( $new_parent == $cat->parent );
-
-    $cat->parent($new_parent);
+
+    my $new_parent_id = $app->param('move-radio');
+
+    return 1 if ( $new_parent_id == $cat->parent );
+
+    if ( $new_parent_id ) {
+        my $new_parent = $class->load( $new_parent_id )
+            or return;
+       if ( $cat->is_ancestor( $new_parent ) ) {
+            _adjust_ancestry( $cat, $new_parent );
+        }
+    }
+    $cat->parent($new_parent_id);
     my @siblings = $class->load(
         {