[Rt-commit] [svn] r1047 - in RT-Journal/trunk/html/Journal: . User

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Thu Jun 10 00:36:34 2004
New Revision: 1047

Modified:
   RT-Journal/trunk/html/Journal/Article.html
   RT-Journal/trunk/html/Journal/User/dhandler
Log:
Fixing article.html, making blog paging work

Modified: RT-Journal/trunk/html/Journal/Article.html
==============================================================================
--- RT-Journal/trunk/html/Journal/Article.html	(original)
+++ RT-Journal/trunk/html/Journal/Article.html	Thu Jun 10 00:36:34 2004
@@ -1,10 +1,3 @@
-
-This is Article.html, reconstructed from the mason component cache,
-which appears to have been the last extant copy. It almost definitely
-has blatant errors, since I transformed it back to mason source with
-regexps ;)
-
-
 <%args>
 $id => undef
 $comment => undef
@@ -48,7 +41,7 @@
  my $content = $post->Transactions->First->Content;
  $content =~ s/-- (.*)$//gism;
  $content =~ s/\n/<br>/gi;
-% $m->print( $content );
+ $m->print( $content );
 
  my $refto = $post->RefersTo;
 </%perl>

Modified: RT-Journal/trunk/html/Journal/User/dhandler
==============================================================================
--- RT-Journal/trunk/html/Journal/User/dhandler	(original)
+++ RT-Journal/trunk/html/Journal/User/dhandler	Thu Jun 10 00:36:34 2004
@@ -76,11 +76,11 @@
 
 }
 elsif ($mode eq 'rss') {
-	$tix->RowsPerPage(10);
+	$tix->RowsPerPage($Count);
 	$m->comp("../Elements/BlogAsRSS", EntriesObj => $tix, user => $username, User => $user);
 } else {
 	$tix->RowsPerPage($Count);
-	$tix->GotoPage($ARGS{'Page'});
+	$tix->GotoPage($Page-1);
 	$m->comp("../Elements/BlogAsHTML", EntriesObj => $tix, user => $username, User => $user, Page => $Page);
 
 }