--- loncom/interface/lonparmset.pm 2003/09/03 15:44:57 1.120 +++ loncom/interface/lonparmset.pm 2003/09/03 21:24:32 1.121 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.120 2003/09/03 15:44:57 www Exp $ +# $Id: lonparmset.pm,v 1.121 2003/09/03 21:24:32 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1672,6 +1672,7 @@ sub overview { 'Set/Modify Course Assessment Parameters'); my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'}; + my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs); $r->print(< @@ -1679,13 +1680,14 @@ sub overview { $bodytag
-Not yet implemented. -
- - ENDOVER + foreach (sort keys %resourcedata) { + $r->print($_.' - '.$resourcedata{$_}.'
'); + } + $r->print(''); } + ################################################## ################################################## @@ -1720,13 +1722,16 @@ sub handler { $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; - unless (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) { -# --------------------------------------------------------- Bring up assessment - &assessparms($r); + if (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) { # ---------------------------------------------- This is for course environment +# -------------------------- also call if toplevel map coudl not be initialized + &crsenv($r); } elsif ($ENV{'form.overview'}) { +# --------------------------------------------------------------- Overview mode + &overview($r); } else { - &crsenv($r); +# --------------------------------------------------------- Bring up assessment + &assessparms($r); } } else { # ----------------------------- Not in a course, or not allowed to modify parms