--- loncom/interface/lonparmset.pm 2003/08/06 18:08:02 1.119 +++ loncom/interface/lonparmset.pm 2003/09/04 01:09:04 1.122 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.119 2003/08/06 18:08:02 matthew Exp $ +# $Id: lonparmset.pm,v 1.122 2003/09/04 01:09:04 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -287,7 +287,7 @@ sub plink { sub startpage { my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_; - my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', + my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','', 'onUnload="pclose()"'); my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. &Apache::loncommon::selectstudent_link('parmform','uname','udom'); @@ -343,16 +343,22 @@ $selscript $bodytag
-

Course Environment

- +

Course Environment Parameters

+ +
+
+
+

Course Assessment Parameter - Helper Mode

+ +
+
+
+

Course Assessment Parameters - Overview Mode

+
-

Course Assessments

- -Use Assignment Parameter Helper, a -simpler interface to set open, due, or answer open dates for problems or -sequences.
 
+

Course Assessments Parameters - Table Mode

ENDHEAD if (!$have_assesments) { @@ -1040,7 +1046,7 @@ sub assessparms { if (($prevvisit) || ($pschp) || ($pssymb)) { $submitmessage = "Update Course Assessment Parameter Display"; } else { - $submitmessage = "Set Course Assessment Parameters"; + $submitmessage = "Set/Modify Course Assessment Parameters"; } $r->print(''); @@ -1658,6 +1664,63 @@ $output ENDENV } +################################################## + +sub overview { + my $r=shift; + my $bodytag=&Apache::loncommon::bodytag( + 'Set/Modify Course Assessment Parameters'); + my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; + my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'}; + $r->print(< + +LON-CAPA Course Environment + +$bodytag + + +ENDOVER +# Read and display + my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs); + my $oldsection=''; + my $oldrealm=''; + my $oldpart=''; + foreach my $thiskey (sort keys %resourcedata) { + my ($course,$middle,$part,$name)= + ($thiskey=~/^(\w+)\.(.*)\.*([\w\s]+)\.(\w+)$/); + unless ($name eq 'type') { + my $section='All Students'; + if ($middle=~/^\[(.*)\]\./) { + $section='Group/Section: '.$1; + $middle=~s/^\[(.*)\]\.//; + } + my $realm='All Resources'; + if ($middle=~/^(.+)\_\_\_\(all\)$/) { + $realm='Folder/Map: '.$1; + } elsif ($middle) { + $realm='Resource: '.$middle; + } + if ($section ne $oldsection) { + $r->print("\n

$section

"); + $oldsection=$section; + $oldrealm=''; + } + if ($realm ne $oldrealm) { + $r->print("\n

$realm

"); + $oldrealm=$realm; + $oldpart=''; + } + if ($part ne $oldpart) { + $r->print("\n

Part: $part

"); + $oldpart=$part; + } + + $r->print('
'.$name.': '.$thiskey.' = '.$resourcedata{$thiskey}); + } + } + $r->print(''); +} ################################################## ################################################## @@ -1693,12 +1756,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 - } else { +# -------------------------- also call if toplevel map coudl not be initialized &crsenv($r); + } elsif ($ENV{'form.overview'}) { +# --------------------------------------------------------------- Overview mode + &overview($r); + } else { +# --------------------------------------------------------- Bring up assessment + &assessparms($r); } } else { # ----------------------------- Not in a course, or not allowed to modify parms