Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	16 Oct 2006 15:21:53 -0000	1.26
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	11 Sep 2013 07:23:42 -0000	1.27
@@ -104,7 +104,7 @@
         array set blog_site_node [site_node::get -url $url]
         set package_id $blog_site_node(object_id)
     }
-    set create_p [ad_permission_p $package_id create]
+    set create_p [permission::permission_p -object_id $package_id -privilege create]
     return [util_memoize [list lars_blog_get_as_string_mem $package_id $create_p $display_template] 600]
 }
 
Index: openacs-4/packages/lars-blogger/tcl/rss-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/rss-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/lars-blogger/tcl/rss-procs.tcl	16 Oct 2006 15:21:53 -0000	1.12
+++ openacs-4/packages/lars-blogger/tcl/rss-procs.tcl	11 Sep 2013 07:23:43 -0000	1.13
@@ -61,16 +61,16 @@
 
     set column_array(channel_link) $blog_url
 
-    set image_url [ad_parameter -package_id $package_id "channel_image_url"]
+    set image_url [parameter::get -package_id $package_id -parameter "channel_image_url"]
     if { [empty_string_p $image_url] } {
         set column_array(image) ""
     } else {
         set column_array(image) [list \
                 url "[ad_url]$image_url" \
                 title $blog_title \
                 link $blog_url \
-                width [ad_parameter -package_id $package_id "channel_image_width"] \
-                height [ad_parameter -package_id $package_id "channel_image_height"]]
+                width [parameter::get -package_id $package_id -parameter "channel_image_width"] \
+                height [parameter::get -package_id $package_id -parameter "channel_image_height"]]
     }
 
     set items [list]
Index: openacs-4/packages/lars-blogger/www/entry-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-edit.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	8 Aug 2006 21:26:57 -0000	1.28
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	11 Sep 2013 07:23:43 -0000	1.29
@@ -200,7 +200,7 @@
     } \
     -after_submit {
         if {"$draft_p" == "t"} {
-            ad_returnredirect one-entry?[export_url_vars entry_id]
+            ad_returnredirect one-entry?[export_vars -url {entry_id}]
         } else {
             ad_returnredirect $return_url
         }
Index: openacs-4/packages/lars-blogger/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/index.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/lars-blogger/www/admin/index.tcl	8 Aug 2006 21:26:58 -0000	1.12
+++ openacs-4/packages/lars-blogger/www/admin/index.tcl	11 Sep 2013 07:23:43 -0000	1.13
@@ -5,7 +5,7 @@
 
 set package_id [ad_conn package_id]
 
-set admin_p [ad_require_permission $package_id admin]
+set admin_p [permission::require_permission -object_id $package_id -privilege admin]
 
 set context [list]
 
Index: openacs-4/packages/lars-blogger/www/admin/migrate-categories-1.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/migrate-categories-1.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lars-blogger/www/admin/migrate-categories-1.tcl	16 Oct 2006 15:21:54 -0000	1.3
+++ openacs-4/packages/lars-blogger/www/admin/migrate-categories-1.tcl	11 Sep 2013 07:23:43 -0000	1.4
@@ -9,7 +9,7 @@
 
 set package_id [ad_conn package_id]
 
-set admin_p [ad_require_permission $package_id admin]
+set admin_p [permission::require_permission -object_id $package_id -privilege admin]
 
 # Getting fancy - display progress bar
 
Index: openacs-4/packages/lars-blogger/www/admin/migrate-categories.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/migrate-categories.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lars-blogger/www/admin/migrate-categories.tcl	12 Apr 2013 16:12:57 -0000	1.4
+++ openacs-4/packages/lars-blogger/www/admin/migrate-categories.tcl	11 Sep 2013 07:23:43 -0000	1.5
@@ -7,7 +7,7 @@
 
 set package_id [ad_conn package_id]
 
-set admin_p [ad_require_permission $package_id admin]
+set admin_p [permission::require_permission -object_id $package_id -privilege admin]
 
 set context {{Categories Migration}}