Index: openacs-4/packages/wp-slim/www/presentation-acl-delete-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-delete-postgresql.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/wp-slim/www/presentation-acl-delete-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1 +++ openacs-4/packages/wp-slim/www/presentation-acl-delete-postgresql.xql 19 Jun 2002 11:37:28 -0000 1.2 @@ -5,15 +5,10 @@ - -create function inline_0() -returns integer as' - declare owner_id integer; - - +begin select creation_user into owner_id from acs_objects where object_id = :pres_item_id; @@ -22,16 +17,11 @@ PERFORM acs_permission__revoke_permission(:pres_item_id, :user_id, :privilege); end if; -return 0; - -end;' language 'plpgsql'; - -select inline_0(); -drop function inline_0(); - - + return 0; +end; + \ No newline at end of file