--- loncom/interface/lonparmset.pm	2005/06/06 17:38:07	1.214
+++ loncom/interface/lonparmset.pm	2005/06/14 02:33:18	1.221
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.214 2005/06/06 17:38:07 www Exp $
+# $Id: lonparmset.pm,v 1.221 2005/06/14 02:33:18 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -70,6 +70,8 @@ my $parmhashid;
 my %parmhash;
 my $symbsid;
 my %symbs;
+my $rulesid;
+my %rules;
 
 # --- end local caches
 
@@ -240,6 +242,24 @@ sub symbcache {
     return $symbs{$id};
 }
 
+sub resetrulescache {
+    $rulesid='';
+}
+
+sub rulescache {
+    my $id=shift;
+    if ($rulesid ne $env{'request.course.id'}) {
+	%rules=();
+    }
+    unless ($rules{$id}) {
+	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+	my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+	my %rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);
+	$rulesid=$env{'request.course.id'};
+    }
+    return $rules{$id};
+}
+
 ##################################################
 ##################################################
 #
@@ -776,8 +796,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');
@@ -820,12 +850,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>
@@ -1004,7 +1036,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);
 }
 
 ##################################################
@@ -1062,7 +1096,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;
@@ -1780,8 +1814,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>',
@@ -2135,9 +2169,23 @@ sub listdata {
 		$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}.'">');
@@ -2152,8 +2200,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');
@@ -2182,7 +2229,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'};
@@ -2298,8 +2345,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');
@@ -2462,28 +2508,27 @@ 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',
             },
-#          { text => 'Set Parameter Default Preferences',
-#            help => 'Course_View_Class_List',
-#            action => 'setdefaults',
-#            permission => $parm_permission,
-#            },
+          { text => 'Set Parameter Setting Default Actions',
+            action => 'setdefaults',
+            permission => $parm_permission,
+            },
           );
     my $menu_html = '';
     foreach my $menu_item (@menu) {
@@ -2508,7 +2553,72 @@ ENDMAINFORMHEAD
 }
 
 
+##################################################
 
+sub defaultsetter {
+    my $r=shift;
+    my $bodytag=&Apache::loncommon::bodytag('Parameter Setting Default Actions');
+    my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Defaults');
+    my $html=&Apache::lonxml::xmlbegin();
+    $r->print(<<ENDDEFHEAD);
+$html
+<head>
+<title>LON-CAPA Parameters</title>
+</head>
+$bodytag
+$breadcrumbs
+<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">
+ENDDEFHEAD
+    if ($env{'form.storerules'}) {
+	&resetrulescache();
+    }
+    my @ids=();
+    my %typep=();
+    my %keyp=();
+    my %allparms=();
+    my %allparts=();
+    my %allmaps=();
+    my %mapp=();
+    my %symbp=();
+    my %maptitles=();
+    my %uris=();
+    my %keyorder=&standardkeyorder();
+    my %defkeytype=();
+
+    &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
+				\%mapp, \%symbp,\%maptitles,\%uris,
+				\%keyorder,\%defkeytype);
+    my %lt=&Apache::lonlocal::texthash('hours' => 'Hours',
+				       'min' => 'Minutes',
+				       'sec' => 'Seconds',
+				       'yes' => 'Yes',
+				       'no' => 'No');
+    $r->print("\n<table border='1'><tr><th>".&mt('Rule for parameter').'</th><th>'.
+	      &mt('Automatically set to ...').'</th><th>'.&mt('if ...').'</th></tr>');
+    foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
+	$r->print("\n<tr><td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
+        if (&isdateparm($defkeytype{$tempkey})) {
+	    $r->print(<<ENDINPUTDATE);
+<input name="$tempkey\_hours" type="text" size="4" />$lt{'hours'}<br />
+<input name="$tempkey\_min" type="text" size="4" />$lt{'min'}<br />
+<input name="$tempkey\_sec" type="text" size="4" />$lt{'sec'}
+ENDINPUTDATE
+	} elsif ($defkeytype{$tempkey} eq 'string_yesno') {
+	    $r->print(<<ENDYESNO);
+<label><input type="radio" name="$tempkey" value="yes" /> $lt{'yes'}</label><br />
+<label><input type="radio" name="$tempkey" value="no" /> $lt{'no'}</label>
+ENDYESNO
+        } else {
+	    $r->print('<input type="text" size="20" name="'.$tempkey.'" />');
+	}
+        $r->print('</td></tr>');
+
+    }
+    $r->print("</table></form></body></html>");
+    return;
+}
 
 ##################################################
 ##################################################
@@ -2522,7 +2632,8 @@ Main handler.  Calls &assessparms and &c
 =cut
 ##################################################
 ##################################################
-    use Data::Dumper;
+#    use Data::Dumper;
+
 sub handler {
     my $r=shift;
 
@@ -2536,7 +2647,7 @@ sub handler {
                                              'pres_marker',
                                              'pres_value',
                                              'pres_type',
-                                             'udom','uname']);
+                                             'udom','uname','symb']);
 
 
     &Apache::lonhtmlcommon::clear_breadcrumbs();
@@ -2589,7 +2700,11 @@ sub handler {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
 						    text=>"Overview Mode"});
 	    &newoverview($r);
-        } elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
+        }  elsif ($env{'form.action'} eq 'setdefaults' && $parm_permission) {
+            &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
+						    text=>"Set Defaults"});
+	    &defaultsetter($r);
+	} elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
 						    text=>"Table Mode",
 						    help => 'Course_Setting_Parameters'});