Index: openacs-4/packages/xowiki/www/portlets/last-visited.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/portlets/Attic/last-visited.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xowiki/www/portlets/last-visited.tcl	19 Jun 2006 00:40:04 -0000	1.5
+++ openacs-4/packages/xowiki/www/portlets/last-visited.tcl	17 Aug 2006 01:44:26 -0000	1.6
@@ -11,40 +11,40 @@
 
 ::xowiki::Page proc __render_html {
   -folder_id 
+  -package_id 
   -user_id 
   -max_entries
 } {
-  set package_id   [$folder_id set package_id]
-
   TableWidget t1 -volatile \
       -columns {
-	AnchorField title -label [_ xowiki.page_title]
+        AnchorField title -label [_ xowiki.page_title]
       }
 
   db_foreach get_pages \
       "select r.title,i.name, to_char(x.time,'YYYY-MM-DD HH24:MI:SS') as visited_date  \
        from xowiki_last_visited x, xowiki_page p, cr_items i, cr_revisions r  \
-	 where x.page_id = i.item_id and i.live_revision = p.page_id  and \
-	 r.revision_id = p.page_id and x.user_id = $user_id and x.package_id = $package_id
+         where x.page_id = i.item_id and i.live_revision = p.page_id  and \
+         r.revision_id = p.page_id and x.user_id = $user_id and x.package_id = $package_id
          order by x.time desc limit $max_entries
       " {
-	if {$title eq ""} {set title $name}
+        if {$title eq ""} {set title $name}
 
-	t1 add \
-	    -title $title \
-	    -title.href [::xowiki::Page pretty_link $name] 
+        t1 add \
+            -title $title \
+            -title.href [::$package_id pretty_link $name] 
       }
   return [t1 asHTML]
 }
 
 set link ""
 if {![info exists name]} {set name "Last Visited Pages"}
 set content [::xowiki::Page __render_html \
-		 -folder_id   [$__including_page set parent_id] \
-		 -max_entries [expr {[info exists max_entries] ? $max_entries : 20}] \
-		 -user_id     [expr {[info exists user_id] ? $user_id : \
-					 [ad_conn isconnected] ? [ad_conn user_id] : 0}] \
-		]
+                 -folder_id   [$__including_page set parent_id] \
+                 -package_id  [$__including_page set package_id] \
+                 -max_entries [expr {[info exists max_entries] ? $max_entries : 20}] \
+                 -user_id     [expr {[info exists user_id] ? $user_id : \
+                                         [ad_conn isconnected] ? [ad_conn user_id] : 0}] \
+                ]
 
 if {![info exists skin]} {set skin portlet-skin}
 if {![string match /* $skin]} {set skin [file dir $__adp_stub]/$skin}