version 1.324, 2005/04/15 21:08:37
|
version 1.326, 2005/04/15 22:03:23
|
Line 2112 sub generate_course_user_opt {
|
Line 2112 sub generate_course_user_opt {
|
|
|
my $uname=$env{'user.name'}; |
my $uname=$env{'user.name'}; |
my $udom=$env{'user.domain'}; |
my $udom=$env{'user.domain'}; |
my $uhome=$env{'user.home'}; |
|
my $cid=$env{'request.course.id'}; |
my $cid=$env{'request.course.id'}; |
my $chome=$env{'course.'.$cid.'.home'}; |
my $cdom=$env{'course.'.$cid.'.domain'}; |
my ($cdom,$cnum)=split(/\_/,$cid); |
my $cnum=$env{'course.'.$cid.'.num'}; |
|
|
my $userprefix=$uname.'_'.$udom.'_'; |
my $useropt; my $courseopt; |
|
|
my %courserdatas; my %useropt; my %courseopt; my %userrdatas; |
|
unless ($uhome eq 'no_host') { |
|
# ------------------------------------------------- Get coursedata (if present) |
# ------------------------------------------------- Get coursedata (if present) |
my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum. |
my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom); |
':resourcedata',$chome); |
# Check for network failure |
# Check for network failure |
if (!ref($courseopt)) { |
if ( $reply =~ /no.such.host/i || $reply =~ /con_lost/i) { |
if ( $courseopt =~ /no.such.host/i || $courseopt =~ /con_lost/i) { |
$self->{NETWORK_FAILURE} = 1; |
$self->{NETWORK_FAILURE} = 1; |
} elsif ($reply!~/^error\:/) { |
|
$courserdatas{$cid}=$reply; |
|
$courserdatas{$cid.'.last_cache'}=time; |
|
} |
|
foreach (split(/\&/,$courserdatas{$cid})) { |
|
my ($name,$value)=split(/\=/,$_); |
|
$courseopt{$userprefix.&Apache::lonnet::unescape($name)}= |
|
&Apache::lonnet::unescape($value); |
|
} |
} |
|
undef($courseopt); |
|
} |
|
|
# --------------------------------------------------- Get userdata (if present) |
# --------------------------------------------------- Get userdata (if present) |
my $reply=&Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome); |
|
if ($reply!~/^error\:/) { |
my $useropt=&Apache::lonnet::get_userresdata($uname,$udom); |
$userrdatas{$uname.'___'.$udom}=$reply; |
# Check for network failure |
$userrdatas{$uname.'___'.$udom.'.last_cache'}=time; |
if (!ref($useropt)) { |
} |
if ( $useropt =~ /no.such.host/i || $useropt =~ /con_lost/i) { |
# check to see if network failed |
|
elsif ( $reply=~/no.such.host/i || $reply=~/con.*lost/i ) |
|
{ |
|
$self->{NETWORK_FAILURE} = 1; |
$self->{NETWORK_FAILURE} = 1; |
} |
} |
foreach (split(/\&/,$userrdatas{$uname.'___'.$udom})) { |
undef($useropt); |
my ($name,$value)=split(/\=/,$_); |
|
$useropt{$userprefix.&Apache::lonnet::unescape($name)}= |
|
&Apache::lonnet::unescape($value); |
|
} |
|
$self->{COURSE_OPT} = \%courseopt; |
|
$self->{USER_OPT} = \%useropt; |
|
} |
} |
|
|
|
$self->{COURSE_OPT} = $courseopt; |
|
$self->{USER_OPT} = $useropt; |
|
|
$self->{COURSE_USER_OPT_GENERATED} = 1; |
$self->{COURSE_USER_OPT_GENERATED} = 1; |
|
|
return; |
return; |
Line 2167 sub generate_email_discuss_status {
|
Line 2153 sub generate_email_discuss_status {
|
if ($self->{EMAIL_DISCUSS_GENERATED}) { return; } |
if ($self->{EMAIL_DISCUSS_GENERATED}) { return; } |
|
|
my $cid=$env{'request.course.id'}; |
my $cid=$env{'request.course.id'}; |
my ($cdom,$cnum)=split(/\_/,$cid); |
my $cdom=$env{'course.'.$cid.'.domain'}; |
|
my $cnum=$env{'course.'.$cid.'.num'}; |
|
|
my %emailstatus = &Apache::lonnet::dump('email_status'); |
my %emailstatus = &Apache::lonnet::dump('email_status'); |
my $logoutTime = $emailstatus{'logout'}; |
my $logoutTime = $emailstatus{'logout'}; |
Line 2187 sub generate_email_discuss_status {
|
Line 2174 sub generate_email_discuss_status {
|
|
|
my %feedback=(); |
my %feedback=(); |
my %error=(); |
my %error=(); |
my $keys = &Apache::lonnet::reply('keys:'. |
my @keys = &Apache::lonnet::getkeys('nohist_email',$env{'user.domain'}, |
$env{'user.domain'}.':'. |
$env{'user.name'}); |
$env{'user.name'}.':nohist_email', |
|
$env{'user.home'}); |
|
|
|
foreach my $msgid (split(/\&/, $keys)) { |
foreach my $msgid (@keys) { |
$msgid=&Apache::lonnet::unescape($msgid); |
|
if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) { |
if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) { |
my $plain= |
my $plain= |
&Apache::lonnet::unescape(&Apache::lonnet::unescape($msgid)); |
&Apache::lonnet::unescape(&Apache::lonnet::unescape($msgid)); |
Line 2457 sub parmval_real {
|
Line 2441 sub parmval_real {
|
|
|
my $symbparm=$symb.'.'.$what; |
my $symbparm=$symb.'.'.$what; |
my $mapparm=$mapname.'___(all).'.$what; |
my $mapparm=$mapname.'___(all).'.$what; |
my $usercourseprefix=$uname.'_'.$udom.'_'.$cid; |
my $usercourseprefix=$cid; |
|
|
my $seclevel= $usercourseprefix.'.['.$csec.'].'.$what; |
my $seclevel= $usercourseprefix.'.['.$csec.'].'.$what; |
my $seclevelr=$usercourseprefix.'.['.$csec.'].'.$symbparm; |
my $seclevelr=$usercourseprefix.'.['.$csec.'].'.$symbparm; |