version 1.66, 2002/09/07 17:30:31
|
version 1.67, 2002/09/07 17:53:05
|
Line 804 sub assessparms {
|
Line 804 sub assessparms {
|
if ($reply=~/^error\:(.*)/) { |
if ($reply=~/^error\:(.*)/) { |
$message.="<font color=red>Write Error: $1</font>"; |
$message.="<font color=red>Write Error: $1</font>"; |
} |
} |
|
# --------------------------------------------- Devalidate cache for this child |
|
&Apache::lonnet::devalidatecourseresdata( |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}); |
# ---------------------------------------------------------------- Done storing |
# ---------------------------------------------------------------- Done storing |
} |
} |
# -------------------------------------------------------------- Get coursedata |
# -------------------------------------------------------------- Get coursedata |