loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.375, 2006/05/18 01:08:50	version 1.376, 2006/05/30 12:46:08
Line 4962 sub restore_course_settings {	Line 4962 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 {	sub icon {
my ($file)=@_;	my ($file)=@_;