Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-class-membership-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-class-membership-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-class-membership-drop.sql	2 Jul 2002 18:40:08 -0000	1.1
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-class-membership-drop.sql	3 Jul 2002 19:58:07 -0000	1.2
@@ -24,35 +24,42 @@
 -- @version $Id$
 --
 
+create function inline_0()
+returns integer as '
 begin
 
-    perform acs_rel_type__drop_type (
-        'dotlrn_student_rel',
-        't'
+    select acs_rel_type__drop_type (
+        ''dotlrn_student_rel'',
+        ''t''
     );
 
-    perform acs_rel_type__drop_type (
-        'dotlrn_ta_rel',
-        't'
+    select acs_rel_type__drop_type (
+        ''dotlrn_ta_rel'',
+        ''t''
     );
 
-    perform acs_rel_type__drop_type (
-        'dotlrn_ca_rel',
-        't'
+    select acs_rel_type__drop_type (
+        ''dotlrn_ca_rel'',
+        ''t''
     );
 
-    perform acs_rel_type__drop_type (
-        'dotlrn_cadmin_rel',
-        't'
+    select acs_rel_type__drop_type (
+        ''dotlrn_cadmin_rel'',
+        ''t''
     );
 
-    perform acs_rel_type__drop_type (
-        'dotlrn_instructor_rel',
-        't'
+    select acs_rel_type__drop_type (
+        ''dotlrn_instructor_rel'',
+        ''t''
     );
 
-end;
+    return 0;
+    
+end;' language 'plpgsql';
 
+select function inline_0();
+drop function inline_0();
+
 drop view dotlrn_instructor_rels_full;
 drop table dotlrn_instructor_rels;
 drop view dotlrn_cadmin_rels_full;