[BACK]Return to lonparmset.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.275 and 1.279

version 1.275, 2006/01/10 05:27:57 version 1.279, 2006/03/07 21:36:19
Line 293  sub preset_defaults { Line 293  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  # Store a parameter by ID
Line 516  sub valout { Line 535  sub valout {
             }              }
             $result=~s/\s+$//;              $result=~s/\s+$//;
         } elsif (&isdateparm($type)) {          } elsif (&isdateparm($type)) {
             $result = localtime($value);              $result = localtime($value).&date_sanity_info($value);
         } else {          } else {
             $result = $value;              $result = $value;
         }          }
Line 2138  sub crsenv { Line 2157  sub crsenv {
          => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.           => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
             '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',              '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
              'allow_discussion_post_editing'               'allow_discussion_post_editing'
                  => '<b>'.&mt('Allow users to edit/delete their own discussion posts').'</b><br />'.                   => '<b>'.&mt('Allow users with specified roles to edit/delete their own discussion posts').'</b><br />"<tt>st</tt>": '.
                     '('.&mt('Set value to "[_1]" to allow',"<tt>yes</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'       'rndseed'
          => '<b>'.&mt('Randomization algorithm used').'</b> <br />'.           => '<b>'.&mt('Randomization algorithm used').'</b> <br />'.
                     '<font color="red">'.&mt('Modifying this will make problems').' '.                      '<font color="red">'.&mt('Modifying this will make problems').' '.
Line 2175  sub crsenv { Line 2197  sub crsenv {
      'disableexampointprint'       'disableexampointprint'
          => '<b>'.&mt('Disable automatically printing point values onto exams.').'</b><br />'.           => '<b>'.&mt('Disable automatically printing point values onto exams.').'</b><br />'.
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',                      ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
                'externalsyllabus'
                    => '<b>'.&mt('URL of Syllabus (not using internal handler)').'</b>',
      'tthoptions'       'tthoptions'
          => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'           => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
              );                ); 
         my @Display_Order = ('url','description','courseid','cloners','grading',          my @Display_Order = ('url','description','courseid','cloners','grading',
                                'externalsyllabus',
                              'default_xml_style','pageseparators',                               'default_xml_style','pageseparators',
                              'question.email','comment.email','policy.email',                               'question.email','comment.email','policy.email',
                              'student_classlist_view',                               'student_classlist_view',
Line 2557  sub listdata { Line 2582  sub listdata {
       $jskey,        $jskey,
       $$resourcedata{$thiskey},        $$resourcedata{$thiskey},
       '',1,'','',$hour,$min,$sec).        '',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') {      } elsif ($thistype eq 'string_yesno') {
  my $showval;   my $showval;
Removed from v.1.275  
changed lines
  Added in v.1.279

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>