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

Diff for /loncom/homework/structuretags.pm between versions 1.470 and 1.471

version 1.470, 2010/07/29 18:00:06 version 1.471, 2010/07/29 21:16:40
Line 685  sub store_aggregates { Line 685  sub store_aggregates {
             if ($needsrelease) {                 if ($needsrelease) {   
                 my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};                  my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};
                 if ($curr_required eq '') {                  if ($curr_required eq '') {
                     &update_courseenv($needsrelease,$cdomain,$cname);                      &Apache::lonnet::update_released_required($needsrelease);
                 } else {                  } else {
                     my ($currmajor,$currminor) = split(/\./,$curr_required);                      my ($currmajor,$currminor) = split(/\./,$curr_required);
                     my ($needsmajor,$needsminor) = split(/\./,$needsrelease);                      my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
                     if (($currmajor < $needsmajor) || ($currmajor == $needsmajor && $currminor < $needsminor)) {                      if (($currmajor < $needsmajor) || ($currmajor == $needsmajor && $currminor < $needsminor)) {
                         &update_courseenv($needsrelease,$cdomain,$cname);                          &Apache::lonnet::update_released_required($needsrelease);
                     }                      }
                 }                  }
             }              }
Line 702  sub store_aggregates { Line 702  sub store_aggregates {
     }      }
 }  }
   
 sub update_courseenv {  
     my ($needsrelease,$cdom,$cnum) = @_;  
     my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};  
     my %needshash = (  
                       'internal.releaserequired' => $needsrelease,  
                     );  
     my $putresult = &put('environment',\%needshash,$cdom,$cnum);  
     if ($putresult eq 'ok') {  
         &appenv({'course.'.$env{'request.course.id'}.'.internal.releaserequired' => $needsrelease});  
         my %crsinfo =  
             &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',$cnum,undef,undef,'.');  
         if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {  
             $crsinfo{$env{'request.course.id'}}{'releaserequired'} = $needsrelease;  
         }  
         &Apache::lonnet::courseidput($cdom,\%crsinfo,$chome,'notime');  
     }  
 }  
   
 sub checkout_msg {  sub checkout_msg {
     my %lt=&Apache::lonlocal::texthash(       my %lt=&Apache::lonlocal::texthash( 
  'resource'=>'The resource needs to be checked out',   'resource'=>'The resource needs to be checked out',
Removed from v.1.470  
changed lines
  Added in v.1.471

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