--- loncom/interface/lonparmset.pm	2003/09/03 15:44:57	1.120
+++ 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.120 2003/09/03 15:44:57 www Exp $
+# $Id: lonparmset.pm,v 1.122 2003/09/04 01:09:04 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1679,13 +1679,49 @@ sub overview {
 </head>
 $bodytag
 <form method="post" action="/adm/parmset" name="overview">
-Not yet implemented.
 <input type="hidden" name="overview" value="1" />
-</form>
-</body>
-</html>
 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<hr /><h1>$section</h1>");
+		$oldsection=$section;
+		$oldrealm='';
+	    }
+	    if ($realm ne $oldrealm) {
+		$r->print("\n<h2>$realm</h2>");
+		$oldrealm=$realm;
+		$oldpart='';
+	    }
+	    if ($part ne $oldpart) {
+		$r->print("\n<h3>Part: $part</h3>");
+		$oldpart=$part;
+	    }
+
+	    $r->print('<br />'.$name.': '.$thiskey.' = '.$resourcedata{$thiskey});
+	}
+    }
+    $r->print('</form></body></html>');
 }
+
 ##################################################
 ##################################################
 
@@ -1720,13 +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
+# -------------------------- 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