|
version 1.47, 2002/09/03 20:46:30
|
version 1.48, 2002/09/05 19:47:29
|
|
Line 464 sub handler {
|
Line 464 sub handler {
|
| my $userprefix=$uname.'_'.$udom.'_'; |
my $userprefix=$uname.'_'.$udom.'_'; |
| |
|
| unless ($uhome eq 'no_host') { |
unless ($uhome eq 'no_host') { |
| # -------------------------------------------------------------- Get coursedata |
# ------------------------------------------------- Get coursedata (if present) |
| unless ((time-$courserdatas{$cid.'.last_cache'})<240) { |
unless ((time-$courserdatas{$cid.'.last_cache'})<240) { |
| my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum. |
my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum. |
| ':resourcedata',$chome); |
':resourcedata',$chome); |
|
Line 472 sub handler {
|
Line 472 sub handler {
|
| $courserdatas{$cid}=$reply; |
$courserdatas{$cid}=$reply; |
| $courserdatas{$cid.'.last_cache'}=time; |
$courserdatas{$cid.'.last_cache'}=time; |
| } |
} |
| else |
# check to see if network failed |
| |
elsif ( $reply=~/no.such.host/i || $reply=~/con.*lost/i ) |
| { |
{ |
| $networkFailedFlag = 1; |
$networkFailedFlag = 1; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnavmaps.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface