--- loncom/interface/loncommon.pm	2006/05/18 01:08:50	1.375
+++ loncom/interface/loncommon.pm	2006/05/30 12:46:08	1.376
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.375 2006/05/18 01:08:50 raeburn Exp $
+# $Id: loncommon.pm,v 1.376 2006/05/30 12:46:08 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4962,15 +4962,6 @@ sub restore_course_settings {
 ############################################################
 ############################################################
 
-sub propath {
-    my ($udom,$uname)=@_;
-    $udom=~s/\W//g;
-    $uname=~s/\W//g;
-    my $subdir=$uname.'__';
-    $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
-    my $proname="$Apache::lonnet::perlvar{'lonUsersDir'}/$udom/$subdir/$uname";
-    return $proname;
-} 
 
 sub icon {
     my ($file)=@_;