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

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

version 1.138, 2003/11/21 18:18:04 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 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.138  
changed lines
  Added in v.1.139.2.1

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