Changeset 1379

Timestamp:

02/19/08 09:24:26 (17 months ago)

Author:

auno

Message:

Fixed to get entries in a category using limit attribute. BugzID:68474

Location:

branches/release-30/lib/MT

Files:

• Template/ContextHandlers.pm (modified) (1 diff)
• WeblogPublisher.pm (modified) (19 diffs)

branches/release-30/lib/MT/Template/ContextHandlers.pm

@@ -3459 +3459 @@
     
     my $cfg = $ctx->{config};
+    my $at = $ctx->{current_archive_type} || $ctx->{archive_type};
+    my $archiver = MT->publisher->archiver($at);
+    if ( $archiver && $archiver->archive_group_entries ) {
+        my $entries = $archiver->archive_group_entries->( $ctx, %$args );
+        $ctx->stash( 'entries', $entries );
+    }
     my $entries = $ctx->stash('entries');
     my $blog_id = $ctx->stash('blog_id');

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

@@ -1444 +1444 @@
     {
         if ( $archiver->archive_group_entries ) {
-
-            # TBD: Would it help to use MT::Promise here?
-            my $entries = $archiver->archive_group_entries->($ctx);
-            $ctx->stash( 'entries', $entries );
+            require MT::Promise;
+            my $entries = sub { $archiver->archive_group_entries->($ctx) };
+            $ctx->stash( 'entries', MT::Promise::delay($entries) );
         }
 
@@ -2334 +2333 @@
 sub yearly_group_entries {
     my ( $ctx, %param ) = @_;
-    date_based_group_entries( $ctx, 'Yearly',
-        %param ? sprintf( "%04d%02d%02d000000", $param{year}, 1, 1 ) : undef );
+    my $ts =
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", $param{year}, 1, 1 )
+        : undef;
+    my $limit = $param{limit};
+    date_based_group_entries( $ctx, 'Yearly', $ts, $limit );
 }
 
@@ -2431 +2434 @@
 sub monthly_group_entries {
     my ( $ctx, %param ) = @_;
-    date_based_group_entries( $ctx, 'Monthly',
-        %param
-        ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month}, 1 )
-        : undef );
+    my $ts =
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month}, 1 )
+        : undef;
+    my $limit = $param{limit};
+    date_based_group_entries( $ctx, 'Monthly', $ts, $limit );
 }
 
@@ -2520 +2525 @@
 sub category_group_entries {
     my ( $ctx, %param ) = @_;
-
+    my $limit = $param{limit};
+    if ( $limit eq 'auto' ) {
+        my $blog = $ctx->stash('blog');
+        $limit = $blog->entries_on_index if $blog;
+    }
     my $c = $ctx->stash('archive_category') || $ctx->stash('category');
     require MT::Entry;
@@ -2530 +2539 @@
                 { category_id => $c->id }, { unqiue => 1 }
             ],
-            'sort' => 'authored_on',
+            'sort'      => 'authored_on',
             'direction' => 'descend',
+            ( $limit ? ( 'limit' => $limit ) : () ),
         }
     );
@@ -2739 +2749 @@
 sub daily_group_entries {
     my ( $ctx, %param ) = @_;
-    date_based_group_entries(
-        $ctx, 'Daily',
-        %param
-        ? sprintf( "%04d%02d%02d000000",
-            $param{year}, $param{month}, $param{day} )
-        : undef
-    );
+    my $ts =
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month},
+               $param{day} )
+        : undef;
+    my $limit = $param{limit};
+    date_based_group_entries( $ctx, 'Daily', $ts, $limit );
 }
 
@@ -2839 +2849 @@
 sub weekly_group_entries {
     my ( $ctx, %param ) = @_;
-    date_based_group_entries(
-        $ctx, 'Weekly',
-        %param
-        ? sprintf( "%04d%02d%02d000000",
-            week2ymd( $param{year}, $param{week} ) )
-        : undef
-    );
+    my $ts =
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", week2ymd( $param{year}, $param{week} ) )
+        : undef;
+    my $limit = $param{limit};
+    date_based_group_entries( $ctx, 'Weekly', $ts, $limit );
 }
 
@@ -2898 +2907 @@
 
 sub date_based_group_entries {
-    my ( $ctx, $at, $ts ) = @_;
+    my ( $ctx, $at, $ts, $limit ) = @_;
     my $blog = $ctx->stash('blog');
     my ( $start, $end );
@@ -2925 +2934 @@
             'sort' => 'authored_on',
             'direction' => 'descend',
+            ( $limit ? ( 'limit' => $limit ) : () ),
         }
     ) or return $ctx->error("Couldn't get $at archive list");
@@ -3002 +3012 @@
     my $blog = $ctx->stash('blog');
     my $a = $param{author} || $ctx->stash('author');
+    my $limit = $param{limit};
+    if ( $limit eq 'auto' ) {
+        my $blog = $ctx->stash('blog');
+        $limit = $blog->entries_on_index if $blog;
+    }
     return [] unless $a;
     require MT::Entry;
@@ -3013 +3028 @@
             'sort'      => 'authored_on',
             'direction' => 'descend',
+            ( $limit ? ( 'limit' => $limit ) : () ),
         }
     );
@@ -3201 +3217 @@
     my ( $ctx, %param ) = @_;
     my $ts =
-      %param
-      ? sprintf( "%04d%02d%02d000000", $param{year}, 1, 1 )
-      : $ctx->stash('current_timestamp');
-    my $author = %param ? $param{author} : $ctx->stash('author');
-    date_based_author_entries( $ctx, 'Author-Yearly', $author, $ts );
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", $param{year}, 1, 1 )
+        : $ctx->stash('current_timestamp');
+    my $author = $param{author} || $ctx->stash('author');
+    my $limit = $param{limit};
+    date_based_author_entries( $ctx, 'Author-Yearly', $author, $ts, $limit );
 }
 
@@ -3384 +3401 @@
     my ( $ctx, %param ) = @_;
     my $ts =
-      %param
-      ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month}, 1 )
-      : $ctx->stash('current_timestamp');
-    my $author = %param ? $param{author} : $ctx->stash('author');
-    date_based_author_entries( $ctx, 'Author-Monthly', $author, $ts );
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month}, 1 )
+        : $ctx->stash('current_timestamp');
+    my $author = $param{author} || $ctx->stash('author');
+    my $limit = $param{limit};
+    date_based_author_entries( $ctx, 'Author-Monthly', $author, $ts, $limit );
 }
 
@@ -3565 +3583 @@
     my ( $ctx, %param ) = @_;
     my $ts =
-      %param
-      ? sprintf( "%04d%02d%02d000000", week2ymd( $param{year}, $param{week} ) )
-      : $ctx->stash('current_timestamp');
-    my $author = %param ? $param{author} : $ctx->stash('author');
-    date_based_author_entries( $ctx, 'Author-Weekly', $author, $ts );
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", week2ymd( $param{year}, $param{week} ) )
+        : $ctx->stash('current_timestamp');
+    my $author = $param{author} || $ctx->stash('author');
+    my $limit = $param{limit};
+    date_based_author_entries( $ctx, 'Author-Weekly', $author, $ts, $limit );
 }
 
@@ -3754 +3773 @@
     my ( $ctx, %param ) = @_;
     my $ts =
-      %param
-      ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month},
-        $param{day} )
-      : $ctx->stash('current_timestamp');
-    my $author = %param ? $param{author} : $ctx->stash('author');
-    date_based_author_entries( $ctx, 'Author-Daily', $author, $ts );
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month},
+               $param{day} )
+        : $ctx->stash('current_timestamp');
+    my $author = $param{author} || $ctx->stash('author');
+    my $limit = $param{limit};
+    date_based_author_entries( $ctx, 'Author-Daily', $author, $ts, $limit );
 }
 
@@ -3956 +3976 @@
 sub cat_yearly_group_entries {
     my ( $ctx, %param ) = @_;
-
     my $ts =
-      %param
-      ? sprintf( "%04d%02d%02d000000", $param{year}, 1, 1 )
-      : $ctx->stash('current_timestamp');
-    my $cat = %param ? $param{category} : $ctx->stash('archive_category');
-
-    date_based_category_entries( $ctx, 'Category-Yearly', $cat, $ts );
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", $param{year}, 1, 1 )
+        : $ctx->stash('current_timestamp');
+    my $cat = $param{category} || $ctx->stash('archive_category');
+    my $limit = $param{limit};
+    date_based_category_entries( $ctx, 'Category-Yearly', $cat, $ts, $limit );
 }
 
@@ -4124 +4143 @@
 sub cat_monthly_group_entries {
     my ( $ctx, %param ) = @_;
-
     my $ts =
-      %param
-      ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month}, 1 )
-      : $ctx->stash('current_timestamp');
-    my $cat = %param ? $param{category} : $ctx->stash('archive_category');
-
-    date_based_category_entries( $ctx, 'Category-Monthly', $cat, $ts );
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month}, 1 )
+        : $ctx->stash('current_timestamp');
+    my $cat = $param{category} || $ctx->stash('archive_category');
+    my $limit = $param{limit};
+    date_based_category_entries( $ctx, 'Category-Monthly', $cat, $ts, $limit );
 }
 
@@ -4297 +4315 @@
 sub cat_daily_group_entries {
     my ( $ctx, %param ) = @_;
-
     my $ts =
-      %param
-      ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month},
-        $param{day} )
-      : $ctx->stash('current_timestamp');
-    my $cat = %param ? $param{category} : $ctx->stash('archive_category');
-
-    date_based_category_entries( $ctx, 'Category-Daily', $cat, $ts );
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", $param{year}, $param{month},
+               $param{day} )
+        : $ctx->stash('current_timestamp');
+    my $cat = $param{category} || $ctx->stash('archive_category');
+    my $limit = $param{limit};
+    date_based_category_entries( $ctx, 'Category-Daily', $cat, $ts, $limit );
 }
 
@@ -4464 +4481 @@
     my ( $ctx, %param ) = @_;
     my $ts =
-      %param
-      ? sprintf( "%04d%02d%02d000000", week2ymd( $param{year}, $param{week} ) )
-      : $ctx->stash('current_timestamp');
-    my $cat = %param ? $param{category} : $ctx->stash('archive_category');
-
-    date_based_category_entries( $ctx, 'Category-Weekly', $cat, $ts );
+        $param{year}
+    ? sprintf( "%04d%02d%02d000000", week2ymd( $param{year}, $param{week} ) )
+        : $ctx->stash('current_timestamp');
+    my $cat = $param{category} || $ctx->stash('archive_category');
+    my $limit = $param{limit};
+    date_based_category_entries( $ctx, 'Category-Weekly', $cat, $ts, $limit );
 }