Changeset 2737

Timestamp:

07/09/08 02:47:30 (5 months ago)

Author:

takayama

Message:

Fixed BugId:80382
* Changed to removes fileinfo records when entry was deleted.

• CMS, Atom and XMLRPC
  

Files:

• branches/release-41/lib/MT/ArchiveType/Category.pm (modified) (1 diff)
• branches/release-41/lib/MT/ArchiveType/CategoryDaily.pm (modified) (1 diff)
• branches/release-41/lib/MT/ArchiveType/CategoryMonthly.pm (modified) (1 diff)
• branches/release-41/lib/MT/ArchiveType/CategoryWeekly.pm (modified) (1 diff)
• branches/release-41/lib/MT/ArchiveType/CategoryYearly.pm (modified) (1 diff)
• branches/release-41/lib/MT/AtomServer.pm (modified) (1 diff)
• branches/release-41/lib/MT/CMS/Entry.pm (modified) (3 diffs)
• branches/release-41/lib/MT/WeblogPublisher.pm (modified) (2 diffs)
• branches/release-41/lib/MT/XMLRPCServer.pm (modified) (2 diffs)

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

@@ -143 +143 @@
-sub archive_entries_count {
-    my $obj = shift;
-
+, $cat
-    return $obj->SUPER::archive_entries_count(@_) unless $entry;
-my $cat = $entry->category
+$cat = $entry->category unless $cat
-    return 0 unless $cat;
-    return $obj->SUPER::archive_entries_count(

branches/release-41/lib/MT/ArchiveType/CategoryDaily.pm

@@ -207 +207 @@
-sub archive_entries_count {
-    my $obj = shift;
-
-my $cat = $entry->category
+, $cat
+$cat = $entry->category unless $cat
-    return 0 unless $cat;
-    return $obj->SUPER::archive_entries_count(

branches/release-41/lib/MT/ArchiveType/CategoryMonthly.pm

@@ -202 +202 @@
-sub archive_entries_count {
-    my $obj = shift;
-
-my $cat = $entry->category
+, $cat
+$cat = $entry->category unless $cat
-    return 0 unless $cat;
-    return $obj->SUPER::archive_entries_count(

branches/release-41/lib/MT/ArchiveType/CategoryWeekly.pm

@@ -198 +198 @@
-sub archive_entries_count {
-    my $obj = shift;
-
-my $cat = $entry->category
+, $cat
+$cat = $entry->category unless $cat
-    return 0 unless $cat;
-    return $obj->SUPER::archive_entries_count(

branches/release-41/lib/MT/ArchiveType/CategoryYearly.pm

@@ -187 +187 @@
-sub archive_entries_count {
-    my $obj = shift;
-
-my $cat = $entry->category
+, $cat
+$cat = $entry->category unless $cat
-    return 0 unless $cat;
-    return $obj->SUPER::archive_entries_count(

branches/release-41/lib/MT/AtomServer.pm

@@ -786 +786 @@
-    return $app->error(403, "Access denied")
-        unless $app->{perms}->can_edit_entry($entry, $app->{user});
+
+    # Delete archive file
+    my $blog = MT::Blog->load($entry->blog_id);
+    my %recip = $app->publisher->rebuild_deleted_entry(
+        Entry => $entry,
+        Blog  => $blog);
+
+    # Rebuild archives
+    $app->rebuild_archives(
+        Blog             => $blog,
+        Recip            => \%recip,
+    ) or die _fault($app->errstr);
+
+    # Remove object
-    $entry->remove
-        or return $app->error(500, $entry->errstr);
-    $app->publish($entry, 1) or return $app->error(500, $app->errstr);
-    '';
-}

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

@@ -2126 +2126 @@
-    my $app = shift;
-    $app->validate_magic() or return;
-
-    require MT::Blog;
-    my $q       = $app->param;
@@ -2138 +2137 @@
-
-    my %rebuild_recip;
-    my $at = $blog->archive_type;
-    my @at;
-    if ( $at && $at ne 'None' ) {
-        my @at_orig = split( /,/, $at );
-        @at = grep { $_ ne 'Individual' && $_ ne 'Page' } @at_orig;
-    }
-
-    for my $id ( $q->param('id') ) {
-        my $class = $app->model("entry");
@@ -2154 +2146 @@
-            $app->translate( "Permission denied: [_1]", $app->errstr() ) );
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
-
-        # Remove object from database

branches/release-41/lib/MT/WeblogPublisher.pm

@@ -349 +349 @@
-    }
-    1;
+}
+
+sub remove_fileinfo {
+    my $mt    = shift;
+    my %param = @_;
+    my $at    = $param{ArchiveType}
+      or return $mt->error(
+        MT->translate( "Parameter '[_1]' is required", 'ArchiveType' ) );
+    my $blog_id = $param{Blog}
+      or return $mt->error(
+        MT->translate( "Parameter '[_1]' is required", 'Blog' ) );
+    my $entry_id = $param{Entry}, my $author_id = $param{Author};
+    my $start    = $param{StartDate};
+    my $cat_id   = $param{Category};
+
+    require MT::FileInfo;
+    my @finfo = MT::FileInfo->load(
+        {
+            archive_type => $at,
+            blog_id      => $blog_id,
+            ( $entry_id ? ( entry_id    => $entry_id ) : () ),
+            ( $cat_id   ? ( category_id => $cat_id )   : () ),
+            ( $start    ? ( startdate   => $start )    : () ),
+        }
+    );
+
+    for my $f (@finfo) {
+        $f->remove;
+    }
+    1;
+}
+
+# rebuild_deleted_entry
+#
+# $mt->rebuild_deleted_entry(
+#                    Entry => $entry | $entry_id,
+#                    Blog => [ $blog | $blog_id ],
+#                    );
+sub rebuild_deleted_entry {
+    my $mt    = shift;
+    my $app   = MT->instance;
+    my %param = @_;
+    my $entry = $param{Entry}
+      or return $mt->error(
+        MT->translate( "Parameter '[_1]' is required", 'Entry' ) );
+    require MT::Entry;
+    $entry = MT::Entry->load($entry) unless ref $entry;
+    return unless $entry;
+
+    my $blog;
+    unless ( $blog = $param{Blog} ) {
+        require MT::Blog;
+        my $blog_id = $entry->blog_id;
+        $blog = MT::Blog->load($blog_id)
+          or return $mt->error(
+            MT->translate(
+                "Load of blog '[_1]' failed: [_2]", $blog_id,
+                MT::Blog->errstr
+            )
+          );
+    }
+
+    my %rebuild_recip;
+    my $at = $blog->archive_type;
+    my @at;
+    if ( $at && $at ne 'None' ) {
+        my @at_orig = split( /,/, $at );
+        @at = grep { $_ ne 'Individual' && $_ ne 'Page' } @at_orig;
+    }
+
+    # Remove Individual archive file.
+    if ( $app->config('DeleteFilesAtRebuild') ) {
+        $mt->remove_entry_archive_file( Entry => $entry, );
+    }
+
+    # Remove Individual fileinfo records.
+    $mt->remove_fileinfo(
+        ArchiveType => 'Individual',
+        Blog        => $blog->id,
+        Entry       => $entry->id
+    );
+
+    require MT::Util;
+    for my $at (@at) {
+        my $archiver = $mt->archiver($at);
+        next unless $archiver;
+
+        my ( $start, $end ) = $archiver->date_range( $entry->authored_on )
+          if $archiver->date_based() && $archiver->can('date_range');
+
+        # Remove archive file if archive file has not entries.
+        if ( $archiver->category_based() ) {
+            my $categories = $entry->categories();
+            for my $cat (@$categories) {
+                if (
+                    ( $archiver->can('archive_entries_count') )
+                    && (
+                        $archiver->archive_entries_count( $blog, $at, $entry,
+                            $cat ) == 1
+                    )
+                  )
+                {
+                    $mt->remove_fileinfo(
+                        ArchiveType => $at,
+                        Blog        => $blog->id,
+                        Category    => $cat->id,
+                        (
+                            $archiver->date_based()
+                            ? ( startdate => $start )
+                            : ()
+                        ),
+                    );
+                    if ( $app->config('DeleteFilesAtRebuild') ) {
+                        $mt->remove_entry_archive_file(
+                            Entry       => $entry,
+                            ArchiveType => $at,
+                            Category    => $cat,
+                        );
+                    }
+                }
+                else {
+                    if ( $app->config('RebuildAtDelete') ) {
+                        if ( $archiver->date_based() ) {
+                            $rebuild_recip{$at}{ $cat->id }{ $start . $end }
+                              {'Start'} = $start;
+                            $rebuild_recip{$at}{ $cat->id }{ $start . $end }
+                              {'End'} = $end;
+                            $rebuild_recip{$at}{ $cat->id }{ $start . $end }
+                              {'File'} = MT::Util::archive_file_for(
+                                $entry, $blog, $at, $cat,
+                                undef,  undef, undef
+                              );
+                        }
+                        else {
+                            $rebuild_recip{$at}{ $cat->id }{id} = $cat->id;
+                            $rebuild_recip{$at}{ $cat->id }{'File'} =
+                              MT::Util::archive_file_for(
+                                $entry, $blog, $at, $cat,
+                                undef,  undef, undef
+                              );
+                        }
+                    }
+                }
+            }
+        }
+        else {
+            if ( ( $archiver->can('archive_entries_count') )
+                && ( $archiver->archive_entries_count( $blog, $at, $entry ) ==
+                    1 ) )
+            {
+
+                # Remove archives fileinfo records.
+                $mt->remove_fileinfo(
+                    ArchiveType => $at,
+                    Blog        => $blog->id,
+                    (
+                        $archiver->author_based()
+                        ? ( author_id => $entry->author->id )
+                        : ()
+                    ),
+                    ( $archiver->date_based() ? ( startdate => $start ) : () ),
+                );
+                if ( $app->config('DeleteFilesAtRebuild') ) {
+                    $mt->remove_entry_archive_file(
+                        Entry       => $entry,
+                        ArchiveType => $at
+                    );
+                }
+            }
+            else {
+                if ( $app->config('RebuildAtDelete') ) {
+                    if ( $archiver->author_based() ) {
+                        if ( $archiver->date_based() ) {
+                            $rebuild_recip{$at}{ $entry->author->id }
+                              { $start . $end }{'Start'} = $start;
+                            $rebuild_recip{$at}{ $entry->author->id }
+                              { $start . $end }{'End'} = $end;
+                            $rebuild_recip{$at}{ $entry->author->id }
+                              { $start . $end }{'File'} =
+                              MT::Util::archive_file_for( $entry, $blog, $at,
+                                undef, undef, undef, $entry->author );
+                        }
+                        else {
+                            $rebuild_recip{$at}{ $entry->author->id }{id} =
+                              $entry->author->id;
+                            $rebuild_recip{$at}{ $entry->author->id }{'File'} =
+                              MT::Util::archive_file_for( $entry, $blog, $at,
+                                undef, undef, undef, $entry->author );
+                        }
+                    }
+                    elsif ( $archiver->date_based() ) {
+                        $rebuild_recip{$at}{ $start . $end }{'Start'} = $start;
+                        $rebuild_recip{$at}{ $start . $end }{'End'}   = $end;
+                        $rebuild_recip{$at}{ $start . $end }{'File'} =
+                          MT::Util::archive_file_for( $entry, $blog, $at, undef,
+                            undef, undef, undef );
+                    }
+                    if ( my $prev = $entry->previous(1) ) {
+                        $rebuild_recip{Individual}{ $prev->id }{id} = $prev->id;
+                        $rebuild_recip{Individual}{ $prev->id }{'File'} =
+                          MT::Util::archive_file_for( $prev, $blog,
+                            'Individual', undef, undef, undef, undef );
+                    }
+                    if ( my $next = $entry->next(1) ) {
+                        $rebuild_recip{Individual}{ $next->id }{id} = $next->id;
+                        $rebuild_recip{Individual}{ $next->id }{'File'} =
+                          MT::Util::archive_file_for( $next, $blog,
+                            'Individual', undef, undef, undef, undef );
+                    }
+                }
+            }
+        }
+    }
+
+    return %rebuild_recip;
-}
-
@@ -552 +767 @@
-
-### Recip hash
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-###
-sub rebuild_archives {

branches/release-41/lib/MT/XMLRPCServer.pm

@@ -687 +687 @@
-    die _fault(MT->translate("Permission denied."))
-        unless $perms && $perms->can_edit_entry($entry, $author);
+
+    # Delete archive file
+    my $blog = MT::Blog->load($entry->blog_id);
+    my %recip = $mt->publisher->rebuild_deleted_entry(
+        Entry => $entry,
+        Blog  => $blog);
+
+    # Rebuild archives
+    $mt->rebuild_archives(
+        Blog             => $blog,
+        Recip            => \%recip,
+    ) or die _fault($class->errstr);
+
+    # Remove object
-    $entry->remove;
-
@@ -696 +710 @@
-    });
-
-    if ($publish) {
-        $class->_publish($mt, $entry, 1) or die _fault($class->errstr);
-    }
-    SOAP::Data->type(boolean => 1);
-}