Index: openacs-4/packages/news/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/index.adp,v
diff -u -r1.15 -r1.15.2.1
--- openacs-4/packages/news/www/admin/index.adp	15 May 2007 20:14:50 -0000	1.15
+++ openacs-4/packages/news/www/admin/index.adp	1 Aug 2008 12:56:43 -0000	1.15.2.1
@@ -4,10 +4,10 @@
 <property name="title">@title;noquote@</property>
 
 <ul>
-  <li><a href="../item-create">#news.Create_a_news_item#</a>
+  <li><a href="../item-create">#news.Create_a_news_item#</a></li>
   <li><if @rss_exists@ true>#rss-support.Rss_feed_active# [<a
   href="rss">#rss-support.Remove_feed#</a>]</if><else>#rss-support.Rss_feed_inactive#[<a href="rss">
-  #rss-support.Create_feed#</a>]</else>
+  #rss-support.Create_feed#</a>]</else></li>
     </ul>
 
 <p>
@@ -39,9 +39,9 @@
         <tr class="even">
         </else>
           <td align=center><input type=checkbox name=n_items  value=@news_items.item_id@></td>
-          <td><a href=item?item_id=@news_items.item_id@>@news_items.item_id@</a></td>
-          <td class="adminLink">@news_items.publish_title@ (#news.rev# @news_items.revision_no@) <a href=revision-add?item_id=@news_items.item_id@>#news.revise#</a></td>
-          <td><a href=/shared/community-member?user_id=@news_items.creation_user@>@news_items.item_creator@</a></td>
+          <td><a href="item?item_id=@news_items.item_id@">@news_items.item_id@</a></td>
+          <td class="adminLink">@news_items.publish_title@ (#news.rev# @news_items.revision_no@) <a href="revision-add?item_id=@news_items.item_id@">#news.revise#</a></td>
+          <td><a href="/shared/community-member?user_id=@news_items.creation_user@">@news_items.item_creator@</a></td>
           <td>@news_items.publish_date_pretty@</td>
           <td>@news_items.archive_date_pretty@</td>
           <td>@news_items.pretty_status@</td>
Index: openacs-4/packages/news/www/admin/revision.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision.adp,v
diff -u -r1.7.8.1 -r1.7.8.2
--- openacs-4/packages/news/www/admin/revision.adp	29 Jul 2008 17:22:17 -0000	1.7.8.1
+++ openacs-4/packages/news/www/admin/revision.adp	1 Aug 2008 12:56:43 -0000	1.7.8.2
@@ -3,18 +3,14 @@
 <property name="title">@title;noquote@</property>
 
 
-<if @item_exist_p@ eq "0">
-   <p>#news.lt_Could_not_find_corres#</p>
-</if>
 
-<else>
 <p>	
   #news.Author#: @creator_link;noquote@<br>
   #news.Revision_number#: @revision_no@<br>
-  #news.Creation_Date#: @creation_date@<br>
+  #news.Creation_Date#: @creation_date_pretty@<br>
   #news.Creation_IP#: @creation_ip@<br>
-  #news.Release_Date#: @publish_date@<br>
-  #news.Archive_Date#: @archive_date@
+  #news.Release_Date#: @publish_date_pretty@<br>
+  #news.Archive_Date#: @archive_date_pretty@
 </p>
 <hr>
 <include src="../news"
@@ -23,32 +19,3 @@
     publish_body=@publish_body;noquote@
     creator_link=@creator_link;noquote@
 >
-</else>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
Index: openacs-4/packages/news/www/admin/revision.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision.tcl,v
diff -u -r1.7 -r1.7.8.1
--- openacs-4/packages/news/www/admin/revision.tcl	24 Feb 2005 18:03:05 -0000	1.7
+++ openacs-4/packages/news/www/admin/revision.tcl	1 Aug 2008 12:56:43 -0000	1.7.8.1
@@ -30,32 +30,16 @@
 
 
 # Access a news item in a particular revision
-set item_exist_p [db_0or1row one_item "
-    select item_id,
-           revision_id,
-           content_revision.get_number(:revision_id) as revision_no,
-           publish_title,
-           publish_lead,
-           html_p,
-           publish_date,
-           archive_date,
-           creation_ip,
-           creation_date,
-           '<a href=/shared/community-member?user_id=' || creation_user || '>' || item_creator ||  '</a>' as creator_link
-    from   news_item_revisions
-    where  item_id = :item_id
-    and    revision_id = :revision_id"]
+set item_exist_p [db_0or1row one_item {}]
 
 if { $item_exist_p } {
 
     # workaround to get blobs with >4000 chars into a var, content.blob_to_string fails! 
     # when this'll work, you get publish_body by selecting 'publish_body' directly from above view
     #
     set get_content [db_map get_content]
-    if {![string match $get_content ""]} {
-	set publish_body [db_string get_content "select  content
-	from    cr_revisions
-	where   revision_id = :revision_id"]
+    if { $get_content ne "" } {
+        set publish_body [db_string get_content {}]
     }
     
     # text-only body
@@ -65,17 +49,19 @@
     #if {[info exists html_p] && ![string equal $html_p "t"]} {
     #    set publish_body "[ad_quotehtml $publish_body]"
     #}
-    if {[info exists html_p] && [string equal $html_p "f"]} {
+    if { !$html_p } {
     	set publish_body [ad_text_to_html -- $publish_body]
     }
 
-    set title "Revision"
+    set title [_ news.Revision]
     set context [list [list "item?[export_vars -url item_id]" [_ news.One_Item]] $title]
+
+    set creation_date_pretty [lc_time_fmt $creation_date %q]
+    set publish_date_pretty [lc_time_fmt $publish_date %q]
+    set archive_date_pretty [lc_time_fmt $archive_date %q]
     
 } else {
-    set context {}
-    set title "[_ news.Error]"
+    ad_return_complaint 1 [_ news.lt_Could_not_find_corres]
 }
 
 ad_return_template
-