Index: openacs-4/packages/bookmarks/www/delete-dead-links.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/www/delete-dead-links.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bookmarks/www/delete-dead-links.tcl	30 Sep 2003 12:10:04 -0000	1.3
+++ openacs-4/packages/bookmarks/www/delete-dead-links.tcl	9 Sep 2013 12:19:57 -0000	1.4
@@ -29,7 +29,7 @@
 
 if { [empty_string_p $viewed_user_id] } {
     # Only admins can call this page for all users
-    ad_require_permission $package_id admin
+    permission::require_permission -object_id $package_id -privilege admin
     set root_folder_id $package_id
    
 } else {
@@ -66,7 +66,7 @@
     }
 
     if { [empty_string_p $viewed_user_id] } {
-	ad_require_permission $package_id admin
+	permission::require_permission -object_id $package_id -privilege admin
 
 	# Delete the url it self
 	if [catch {db_exec_plsql delete_dead_link "