--- loncom/interface/lonparmset.pm	2006/01/10 05:27:57	1.275
+++ loncom/interface/lonparmset.pm	2006/03/06 22:17:48	1.278
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.275 2006/01/10 05:27:57 raeburn Exp $
+# $Id: lonparmset.pm,v 1.278 2006/03/06 22:17:48 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -293,6 +293,25 @@ sub preset_defaults {
 }
 
 ##################################################
+
+sub date_sanity_info {
+   my $checkdate=shift;
+   unless ($checkdate) { return ''; }
+   my $result='';
+   my $crsprefix='course.'.$env{'request.course.id'}.'.';
+   if ($env{$crsprefix.'default_enrollment_end_date'}) {
+      if ($checkdate>$env{$crsprefix.'default_enrollment_end_date'}) {
+         $result.='<br />'.&mt('After course enrollment end!');
+      }
+   }
+   if ($env{$crsprefix.'default_enrollment_start_date'}) {
+      if ($checkdate<$env{$crsprefix.'default_enrollment_start_date'}) {
+         $result.='<br />'.&mt('Before course enrollment start!');
+      }
+   }
+   return $result;
+}
+##################################################
 ##################################################
 #
 # Store a parameter by ID
@@ -516,7 +535,7 @@ sub valout {
             }
             $result=~s/\s+$//;
         } elsif (&isdateparm($type)) {
-            $result = localtime($value);
+            $result = localtime($value).&date_sanity_info($value);
         } else {
             $result = $value;
         }
@@ -2138,8 +2157,11 @@ sub crsenv {
 	         => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
 	            '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
              'allow_discussion_post_editing'
-                 => '<b>'.&mt('Allow users to edit/delete their own discussion posts').'</b><br />'.
-                    '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
+                 => '<b>'.&mt('Allow users with specified roles to edit/delete their own discussion posts').'</b><br />"<tt>st</tt>": '.
+                                  &mt('student').', "<tt>ta</tt>": '.
+                                  'TA, "<tt>in</tt>": '.
+                                  &mt('instructor').';&nbsp;(<tt>'.&mt('role:section,role:section,..., e.g., st:001,st:002,in,cc would permit students in sections 001 and 002 and instructors in any section, and course coordinators to edit their own posts.').'</tt>)<br />'.
+                    '('.&mt('or set value to "[_1]" to allow all roles',"<tt>yes</tt>").')',
 	     'rndseed'
 	         => '<b>'.&mt('Randomization algorithm used').'</b> <br />'.
                     '<font color="red">'.&mt('Modifying this will make problems').' '.
@@ -2175,10 +2197,13 @@ sub crsenv {
 	     'disableexampointprint'
 	         => '<b>'.&mt('Disable automatically printing point values onto exams.').'</b><br />'.
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
+             'externalsyllabus'
+                 => '<b>'.&mt('URL of Syllabus (not using internal handler))').'</b>',
 	     'tthoptions'
 	         => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
              ); 
         my @Display_Order = ('url','description','courseid','cloners','grading',
+                             'externalsyllabus',
                              'default_xml_style','pageseparators',
                              'question.email','comment.email','policy.email',
                              'student_classlist_view',
@@ -2557,7 +2582,8 @@ sub listdata {
 							      $jskey,
 						      $$resourcedata{$thiskey},
 							      '',1,'','',$hour,$min,$sec).
-'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
+'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
+&date_sanity_info($$resourcedata{$thiskey})
 			  );
 	    } elsif ($thistype eq 'string_yesno') {
 		my $showval;