--- loncom/homework/structuretags.pm	2010/07/29 18:00:06	1.470
+++ loncom/homework/structuretags.pm	2010/07/29 21:16:40	1.471
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.470 2010/07/29 18:00:06 raeburn Exp $
+# $Id: structuretags.pm,v 1.471 2010/07/29 21:16:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -685,12 +685,12 @@ sub store_aggregates {
             if ($needsrelease) {   
                 my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};
                 if ($curr_required eq '') {
-                    &update_courseenv($needsrelease,$cdomain,$cname);
+                    &Apache::lonnet::update_released_required($needsrelease);
                 } else {
                     my ($currmajor,$currminor) = split(/\./,$curr_required);
                     my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
                     if (($currmajor < $needsmajor) || ($currmajor == $needsmajor && $currminor < $needsminor)) {
-                        &update_courseenv($needsrelease,$cdomain,$cname);
+                        &Apache::lonnet::update_released_required($needsrelease);
                     }
                 }
             }
@@ -702,24 +702,6 @@ 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 {
     my %lt=&Apache::lonlocal::texthash( 
 		'resource'=>'The resource needs to be checked out',