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

Diff for /loncom/interface/lonparmset.pm between versions 1.137 and 1.139.2.1

version 1.137, 2003/11/18 22:21:00 version 1.139.2.1, 2003/12/09 22:40:46
Line 131  sub parmval { Line 131  sub parmval {
   
 # -------------------------------------------------------- first, check default  # -------------------------------------------------------- first, check default
   
     if ($def) { $outpar[11]=$def; $result=11; }      if (defined($def)) { $outpar[11]=$def; $result=11; }
   
 # ----------------------------------------------------- second, check map parms  # ----------------------------------------------------- second, check map parms
   
     my $thisparm=$parmhash{$symbparm};      my $thisparm=$parmhash{$symbparm};
     if ($thisparm) { $outpar[10]=$thisparm; $result=10; }      if (defined($thisparm)) { $outpar[10]=$thisparm; $result=10; }
   
 # --------------------------------------------------------- third, check course  # --------------------------------------------------------- third, check course
   
Line 1520  sub crsenv { Line 1520  sub crsenv {
              'courseid'       => '<b>Course ID or number</b><br />'.               'courseid'       => '<b>Course ID or number</b><br />'.
                                  '(internal, optional)',                                   '(internal, optional)',
              'grading'        => '<b>Grading</b>'.               'grading'        => '<b>Grading</b>'.
                                  '"standard" or any other value.  '.                                   '"standard", "external", or any other value.'.
                                  'Default for new courses is "standard".',                                   '  Default for new courses is "standard".',
   
              'default_xml_style' => '<b>Default XML Style File</b> '.               'default_xml_style' => '<b>Default XML Style File</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
Line 1614  sub crsenv { Line 1614  sub crsenv {
                              'default_enrollment_end_date',                               'default_enrollment_end_date',
                              );                               );
  foreach my $parameter (sort(keys(%values))) {   foreach my $parameter (sort(keys(%values))) {
     if (! $descriptions{$parameter}) {              unless ($parameter =~ m/^internal\./) {
                 $descriptions{$parameter}=$parameter;                  if (! $descriptions{$parameter}) {
                 push(@Display_Order,$parameter);                      $descriptions{$parameter}=$parameter;
     }                      push(@Display_Order,$parameter);
                   }
               }
  }   }
         foreach my $parameter (@Display_Order) {          foreach my $parameter (@Display_Order) {
             my $description = $descriptions{$parameter};              my $description = $descriptions{$parameter};
Removed from v.1.137  
changed lines
  Added in v.1.139.2.1

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