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

Diff for /loncom/interface/lonparmset.pm between versions 1.276 and 1.277

version 1.276, 2006/02/09 22:11:54 version 1.277, 2006/03/04 22:17:36
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 2560  sub listdata { Line 2579  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.276  
changed lines
  Added in v.1.277

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