|
version 1.67, 2002/09/07 17:53:05
|
version 1.68, 2002/09/07 18:25:42
|
|
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>"; |
| } |
} |
| |
# ---------------------------------------------------------------- Done storing |
| |
} |
| # --------------------------------------------- Devalidate cache for this child |
# --------------------------------------------- Devalidate cache for this child |
| &Apache::lonnet::devalidatecourseresdata( |
&Apache::lonnet::devalidatecourseresdata( |
| $ENV{'course.'.$ENV{'request.course.id'}.'.num'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}, |
| $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}); |
| # ---------------------------------------------------------------- Done storing |
|
| } |
|
| # -------------------------------------------------------------- Get coursedata |
# -------------------------------------------------------------- Get coursedata |
| %courseopt = &Apache::lonnet::dump |
%courseopt = &Apache::lonnet::dump |
| ('resourcedata', |
('resourcedata', |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonparmset.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface