--- loncom/interface/loncommon.pm	2003/11/11 22:11:09	1.153
+++ loncom/interface/loncommon.pm	2003/11/12 21:37:07	1.154
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.153 2003/11/11 22:11:09 matthew Exp $
+# $Id: loncommon.pm,v 1.154 2003/11/12 21:37:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2747,7 +2747,7 @@ the routine &Apache::lonnet::transfer_pr
 ############################################################
 my $uniq=0;
 sub get_cgi_id {
-    $uniq=($uniq++)%100000;
+    $uniq=($uniq+1)%100000;
     return (time.'_'.$uniq);
 }
 
@@ -3201,6 +3201,16 @@ 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;
+} 
+
 =pod
 
 =back