loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.153, 2003/11/11 22:11:09	version 1.154, 2003/11/12 21:37:07
Line 2747 the routine &Apache::lonnet::transfer_pr	Line 2747 the routine &Apache::lonnet::transfer_pr
############################################################	############################################################
my $uniq=0;	my $uniq=0;
sub get_cgi_id {	sub get_cgi_id {
$uniq=($uniq++)%100000;	$uniq=($uniq+1)%100000;
return (time.'_'.$uniq);	return (time.'_'.$uniq);
}	}

Line 3201 sub restore_course_settings {	Line 3201 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	=pod

=back	=back