loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.57, 2003/05/21 20:10:53
+version 1.58, 2003/06/03 14:08:32
  Line 156  ENDENTERKEY
  				$msg=
  	 '<h1><font color=red>Could not initialize top-level map.</font></h1>';
  			    }
+ 			    # Check to see if the user is a CC entering a course
+ 			    # for the first time
+ 			    my (undef, undef, $role, $courseid) = split(/\./, $envkey);
+ 			    if (substr($courseid, 0, 1) eq '/') {
+ 				$courseid = substr($courseid, 1);
+ 			    }
+ 			    $courseid =~ s/\//_/;
+ 			    if ($role eq 'cc' && $ENV{'course.' . $courseid .
+ 							  '.course.helper.not.run'}) {
+ 				$furl = "/adm/helper/course.initialization.helper";
+ 			    }
  			    $r->content_type('text/html');
  			    &Apache::loncommon::no_cache($r);
  			    $r->send_http_header;