Index: openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/sql/oracle/Attic/dotlrn-fs-init.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-init.sql	9 Oct 2001 03:13:36 -0000	1.1
+++ openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-init.sql	9 Oct 2001 03:45:02 -0000	1.2
@@ -23,6 +23,15 @@
 
 	-- add all the hooks
 
+	-- GetPrettyName
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'GetPrettyName',
+	       'dotlrn_fs::get_pretty_name',
+	       'TCL'
+	);
+
 	-- AddApplet
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	9 Oct 2001 03:13:36 -0000	1.1
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	9 Oct 2001 03:44:49 -0000	1.2
@@ -33,6 +33,13 @@
 	return "fs-portlet"
     }
 
+    ad_proc -public get_pretty_name {
+    } {
+	returns the pretty name
+    } {
+	return "dotLRN File Storage"
+    }
+
     ad_proc -public add_applet {
 	community_id
     } {