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 |