Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-applet-sc-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-applet-sc-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-applet-sc-create.sql	5 Oct 2001 15:14:21 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-applet-sc-create.sql	8 Oct 2001 21:38:37 -0000	1.4
@@ -22,6 +22,27 @@
 		  contract_desc => 'dotLRN Applet implement a specific interface'
 	);
 
+	-- Get a pretty name
+	foo := acs_sc_msg_type.new (
+	          msg_type_name => 'dotlrn_applet.GetPrettyName.InputType',
+		  msg_type_spec => ''
+	);
+
+	foo := acs_sc_msg_type.new (
+	          msg_type_name => 'dotlrn_applet.GetPrettyName.OutputType',
+		  msg_type_spec => 'pretty_name:string'
+	);
+
+	foo := acs_sc_operation.new (
+	          'dotlrn_applet',
+		  'GetPrettyName',
+		  'Get the pretyt name',
+		  't', -- not cacheable
+		  0,   -- n_args
+		  'dotlrn_applet.GetPrettyName.InputType',
+		  'dotlrn_applet.GetPrettyName.OutputType'
+	);
+
 	-- Add the applet to a community
 	foo := acs_sc_msg_type.new(
 		  msg_type_name => 'dotlrn_applet.AddApplet.InputType',
