--- loncom/interface/lonparmset.pm	2005/06/06 15:13:46	1.212
+++ loncom/interface/lonparmset.pm	2005/06/09 20:35:48	1.219
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.212 2005/06/06 15:13:46 www Exp $
+# $Id: lonparmset.pm,v 1.219 2005/06/09 20:35:48 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -403,7 +403,7 @@ sub valout {
 		$result.=$sec.' secs ';
             }
             $result=~s/\s+$//;
-        } elsif ($type=~/^date/) {
+        } elsif (&isdateparm($type)) {
             $result = localtime($value);
         } else {
             $result = $value;
@@ -434,7 +434,7 @@ sub plink {
     my ($type,$dis,$value,$marker,$return,$call)=@_;
     my $winvalue=$value;
     unless ($winvalue) {
-	if ($type=~/^date/) {
+	if (&isdateparm($type)) {
             $winvalue=$env{'form.recent_'.$type};
         } else {
             $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
@@ -742,6 +742,11 @@ sub extractResourceInformation {
 ##################################################
 ##################################################
 
+sub isdateparm {
+    my $type=shift;
+    return (($type=~/^date/) && (!($type eq 'date_interval')));
+}
+
 sub parmmenu {
     my ($r,$allparms,$pscat,$keyorder)=@_;
     my $tempkey;
@@ -771,8 +776,18 @@ sub parmmenu {
 	checkthis('duedate','pscat');
  	checkthis('opendate','pscat');
 	checkthis('answerdate','pscat');
-	checkthis('interval','pscat');
-   }
+    }
+
+    function checkdisset() {
+	checkthis('discussend','pscat');
+ 	checkthis('discusshide','pscat');
+    }
+
+    function checkcontdates() {
+	checkthis('contentopen','pscat');
+ 	checkthis('contentclose','pscat');
+    }
+ 
 
     function checkvisi() {
 	checkthis('hiddenresource','pscat');
@@ -815,12 +830,14 @@ ENDSCRIPT
     }
     $r->print('
 </tr><tr><td>
-<a href="javascript:checkall(true, \'pscat\')">Select All</a>
-<a href="javascript:checkstandard()">Select Standard</a>
+<a href="javascript:checkall(true, \'pscat\')">Select All</a><br />
+<a href="javascript:checkstandard()">Select Common Only</a>
 </td><td>
-<a href="javascript:checkdates()">Select Dates</a>
-<a href="javascript:checkvisi()">Select Visibilities</a>
-<a href="javascript:checkparts()">Select Part Parameters</a>
+<a href="javascript:checkdates()">Add Problem Dates</a>
+<a href="javascript:checkcontdates()">Add Content Dates</a><br />
+<a href="javascript:checkdisset()">Add Discussion Settings</a>
+<a href="javascript:checkvisi()">Add Visibilities</a><br />
+<a href="javascript:checkparts()">Add Part Parameters</a>
 </td><td>
 <a href="javascript:checkall(false, \'pscat\')">Unselect All</a>
 </td>
@@ -967,6 +984,20 @@ sub keysindisplayorder {
     } (keys %{$name});
 }
 
+sub sortmenu {
+    my ($r,$sortorder)=@_;
+    $r->print('<br /><input type="radio" name="sortorder" value="realmstudent"');
+    if ($sortorder eq 'realmstudent') {
+       $r->print(' checked="on"');
+    }
+    $r->print(' />'.&mt('Sort by realm first, then student (group/section)'));
+    $r->print('<br /><input type="radio" name="sortorder" value="studentrealm"');
+    if ($sortorder eq 'studentrealm') {
+       $r->print(' checked="on"');
+    }
+    $r->print(' />'.&mt('Sort by student (group/section) first, then realm'));
+}
+
 sub standardkeyorder {
     return ('parameter_0_opendate' => 1,
 	    'parameter_0_duedate' => 2,
@@ -985,7 +1016,9 @@ sub standardkeyorder {
 	    'parameter_0_ordered' => 15,
 	    'parameter_0_tol' => 16,
 	    'parameter_0_sig' => 17,
-	    'parameter_0_turnoffunit' => 18);
+	    'parameter_0_turnoffunit' => 18,
+            'parameter_0_discussend' => 19,
+            'parameter_0_discusshide' => 20);
 }
 
 ##################################################
@@ -1043,7 +1076,7 @@ sub assessparms {
     my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
 
     $alllevs{'Resource Level'}='full';
-    $alllevs{'Map Level'}='map';
+    $alllevs{'Map/Folder Level'}='map';
     $alllevs{'Course Level'}='general';
 
     my %allparms;
@@ -1761,8 +1794,8 @@ sub crsenv {
              'anonymous_quiz'
                  => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
                     ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
-             'default_enrollment_start_date' => '<b>'.&mt('Default beginning date when enrolling students').'</b>',
-             'default_enrollment_end_date'   => '<b>'.&mt('Default ending date when enrolling students').'</b>',
+             'default_enrollment_start_date' => '<b>'.&mt('Default beginning date for student access.').'</b>',
+             'default_enrollment_end_date'   => '<b>'.&mt('Default ending date for student access.').'</b>',
              'nothideprivileged'   => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.
                                  '<br />(<tt>user:domain,user:domain,...</tt>)',
              'languages' => '<b>'.&mt('Languages used').'</b>',
@@ -2031,7 +2064,7 @@ sub extractuser {
 }
 
 sub listdata {
-    my ($r,$resourcedata,$listdata)=@_;
+    my ($r,$resourcedata,$listdata,$sortorder)=@_;
 # Start list output
 
     my $oldsection='';
@@ -2040,7 +2073,15 @@ sub listdata {
     my $pointer=0;
     $tableopen=0;
     my $foundkeys=0;
-    foreach my $thiskey (sort keys %{$listdata}) {
+    foreach my $thiskey (sort {
+	if ($sortorder eq 'realmstudent') {
+	    my ($astudent,$arealm)=($a=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
+	    my ($bstudent,$brealm)=($b=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
+            ($arealm cmp $brealm) || ($astudent cmp $bstudent);
+	} else {
+	    $a cmp $b;
+	}
+    } keys %{$listdata}) {
 	if ($$listdata{$thiskey.'.type'}) {
             my $thistype=$$listdata{$thiskey.'.type'};
             if ($$resourcedata{$thiskey.'.type'}) {
@@ -2067,19 +2108,32 @@ sub listdata {
 		my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
 		$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
 	    }
-	    if ($section ne $oldsection) {
-		$r->print(&tableend()."\n<hr /><h1>$section</h1>");
-		$oldsection=$section;
-		$oldrealm='';
-	    }
-	    if ($realm ne $oldrealm) {
-		$r->print(&tableend()."\n<h2>$realm</h2>");
-		$oldrealm=$realm;
-		$oldpart='';
+	    if ($sortorder eq 'realmstudent') {
+		if ($realm ne $oldrealm) {
+		    $r->print(&tableend()."\n<hr /><h1>$realm</h1>");
+		    $oldrealm=$realm;
+		    $oldsection='';
+		}
+		if ($section ne $oldsection) {
+		    $r->print(&tableend()."\n<h2>$section</h2>");
+		    $oldsection=$section;
+		    $oldpart='';
+		}
+	    } else {
+		if ($section ne $oldsection) {
+		    $r->print(&tableend()."\n<hr /><h1>$section</h1>");
+		    $oldsection=$section;
+		    $oldrealm='';
+		}
+		if ($realm ne $oldrealm) {
+		    $r->print(&tableend()."\n<h2>$realm</h2>");
+		    $oldrealm=$realm;
+		    $oldpart='';
+		}
 	    }
 	    if ($part ne $oldpart) {
 		$r->print(&tableend().
-			  "\n<h3><font color='blue'>".&mt('Part').": $part</font></h3>");
+			  "\n<font color='blue'>".&mt('Part').": $part</font>");
 		$oldpart=$part;
 	    }
 #
@@ -2089,15 +2143,29 @@ sub listdata {
 		      ':</b></td><td><input type="checkbox" name="del_'.
 		      $thiskey.'" /></td><td>');
 	    $foundkeys++;
-	    if ($thistype=~/^date/) {
+	    if (&isdateparm($thistype)) {
 		my $jskey='key_'.$pointer;
 		$pointer++;
 		$r->print(
 			  &Apache::lonhtmlcommon::date_setter('overviewform',
 							      $jskey,
-						      $$resourcedata{$thiskey}).
+						      $$resourcedata{$thiskey},
+							      '',1).
 '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
 			  );
+	    } elsif ($thistype eq 'string_yesno') {
+		$r->print('<label><input type="radio" name="set_'.$thiskey.
+			  '" value="yes"');
+		if ($$resourcedata{$thiskey} eq 'yes') {
+		    $r->print(' checked="checked"');
+		}
+                $r->print(' />'.&mt('Yes').'</label> ');
+		$r->print('<label><input type="radio" name="set_'.$thiskey.
+			  '" value="no"');
+		if ($$resourcedata{$thiskey} eq 'no') {
+		    $r->print(' checked="checked"');
+		}
+                $r->print(' />'.&mt('No').'</label>');
 	    } else {
 		$r->print('<input type="text" name="set_'.$thiskey.'" value="'.
 			  $$resourcedata{$thiskey}.'">');
@@ -2112,8 +2180,7 @@ sub listdata {
 
 sub newoverview {
     my $r=shift;
-    my $bodytag=&Apache::loncommon::bodytag(
-                             'Set Course Assessment Parameters');
+    my $bodytag=&Apache::loncommon::bodytag('Set Parameters');
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
@@ -2142,7 +2209,7 @@ ENDOVER
 
     my %alllevs=();
     $alllevs{'Resource Level'}='full';
-    $alllevs{'Map Level'}='map';
+    $alllevs{'Map/Folder Level'}='map';
     $alllevs{'Course Level'}='general';
 
     my $csec=$env{'form.csec'};
@@ -2191,8 +2258,14 @@ ENDOVER
     &partmenu($r,\%allparts,\@psprt);
     $r->print('</td><td>');
     &sectionmenu($r,\@selected_sections);
-    $r->print('</td></tr></table>'.
-	      '<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');
+
+    $r->print('</td></tr></table>');
+ 
+    my $sortorder=$env{'form.sortorder'};
+    unless ($sortorder) { $sortorder='realmstudent'; }
+    &sortmenu($r,$sortorder);
+
+    $r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');
 
 # Build the list data hash from the specified parms
 
@@ -2243,7 +2316,7 @@ ENDOVER
 
 # List data
 
-	&listdata($r,$resourcedata,$listdata);
+	&listdata($r,$resourcedata,$listdata,$sortorder);
     }
     $r->print(&tableend().
 	     ((($env{'form.store'}) || ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Store').'" /></p>':'').
@@ -2252,8 +2325,7 @@ ENDOVER
 
 sub overview {
     my $r=shift;
-    my $bodytag=&Apache::loncommon::bodytag(
-                             'Modify Course Assessment Parameters');
+    my $bodytag=&Apache::loncommon::bodytag('Modify Parameters');
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
@@ -2275,9 +2347,14 @@ ENDOVER
 
     my $resourcedata=&readdata($crs,$dom);
 
+
+    my $sortorder=$env{'form.sortorder'};
+    unless ($sortorder) { $sortorder='realmstudent'; }
+    &sortmenu($r,$sortorder);
+
 # List data
 
-    my $foundkeys=&listdata($r,$resourcedata,$resourcedata);
+    my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder);
 
     $r->print(&tableend().'<p>'.
 	($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form></body></html>');
@@ -2411,19 +2488,19 @@ ENDMAINFORMHEAD
 	    action => 'crsenv',
             permission => $parm_permission,
             },
-          { text => 'Set/Modify Course Assessment Parameters - Helper Mode',
+          { text => 'Set/Modify Resource Parameters - Helper Mode',
             url => '/adm/helper/parameter.helper',
             permission => $parm_permission,
             },
-          { text => 'Modify Course Assessment Parameters - Overview Mode',
+          { text => 'Modify Resource Parameters - Overview Mode',
             action => 'setoverview',
             permission => $parm_permission,
             },          
-	  { text => 'Set Course Assessment Parameters - Overview Mode',
+	  { text => 'Set Resource Parameters - Overview Mode',
             action => 'newoverview',
             permission => $parm_permission,
             },
-          { text => 'Set/Modify Course Assessment Parameters - Table Mode',
+          { text => 'Set/Modify Resource Parameters - Table Mode',
             action => 'settable',
             permission => $parm_permission,
             help => 'Cascading_Parameters',
@@ -2485,7 +2562,7 @@ sub handler {
                                              'pres_marker',
                                              'pres_value',
                                              'pres_type',
-                                             'udom','uname']);
+                                             'udom','uname','symb']);
 
 
     &Apache::lonhtmlcommon::clear_breadcrumbs();