Index: openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl	7 Nov 2003 17:35:42 -0000	1.4
+++ openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl	24 Feb 2005 13:33:27 -0000	1.5
@@ -1,47 +1,47 @@
-#
-# /weblogger-portlet/www/weblogger-portlet.tcl
-#
-# simon@bcuni.net
-#
-# The logic for the weblogger portlet
-# 
-
-ad_page_contract {
-    The display logic for the weblogger portlet
-    @author Simon Carstensen (simon@bcuni.net)
-} {
-    item_id:integer,notnull,optional,multiple
-} -properties {
-
-}
-
-set user_id [ad_conn user_id]
-set write_p [ad_permission_p $user_id admin]
-
-array set config $cf	
-set shaded_p $config(shaded_p)
-
-set list_of_package_ids $config(package_id)
-set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
-
-set read_p 0
-array set package_read_p [list]
-array set package_create_p [list]
-foreach package_id $config(package_id) {
-    set package_read_p($package_id) [permission::permission_p -object_id $package_id -privilege read]
-    set package_create_p($package_id) [permission::permission_p -object_id $package_id -privilege create]
-    if { $package_read_p($package_id) } {
-        set read_p 1
-    }
-}
-
-db_multirow -extend { view_url add_url } entries entries {} {
-    if { !$package_read_p($package_id) } {
-        continue
-    }
-    set content [string_truncate -len 100 -- $content]
-    set view_url "${base_url}one-entry?[export_vars { entry_id }]"
-    if { $package_create_p($package_id) } {
-        set add_url "${base_url}entry-edit"
-    }
-}
+#
+# /weblogger-portlet/www/weblogger-portlet.tcl
+#
+# simon@bcuni.net
+#
+# The logic for the weblogger portlet
+# 
+
+ad_page_contract {
+    The display logic for the weblogger portlet
+    @author Simon Carstensen (simon@bcuni.net)
+} {
+    item_id:integer,notnull,optional,multiple
+} -properties {
+
+}
+
+set user_id [ad_conn user_id]
+set write_p [ad_permission_p $user_id admin]
+
+array set config $cf	
+set shaded_p $config(shaded_p)
+
+set list_of_package_ids $config(package_id)
+set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
+
+set read_p 0
+array set package_read_p [list]
+array set package_create_p [list]
+foreach package_id $config(package_id) {
+    set package_read_p($package_id) [permission::permission_p -object_id $package_id -privilege read]
+    set package_create_p($package_id) [permission::permission_p -object_id $package_id -privilege create]
+    if { $package_read_p($package_id) } {
+        set read_p 1
+    }
+}
+
+db_multirow -extend { view_url add_url } entries entries {} {
+    if { !$package_read_p($package_id) } {
+        continue
+    }
+    set content [string_truncate -len 100 -- $content]
+    set view_url "${base_url}one-entry?[export_vars { entry_id }]"
+    if { $package_create_p($package_id) } {
+        set add_url "${base_url}entry-edit"
+    }
+}