';
}
+
+ # 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;
@@ -215,15 +228,11 @@ ENDHEADER
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);
}
-# ---------------------------------------------------------------- Who is this?
+# ------------------------------------------------- Can this user re-init, etc?
- my $advanced=0;
- foreach $envkey (keys %ENV) {
- if ($envkey=~/^user\.role\./) {
- my (undef,undef,$role,@pwhere)=split(/\./,$envkey);
- if ($role ne 'st') { $advanced=1; }
- }
- }
+ my $advanced=$ENV{'user.adv'};
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['tryagain']);
+ my $tryagain=$ENV{'form.tryagain'};
# -------------------------------------------------------- Generate Page Output
# --------------------------------------------------------------- Error Header?
@@ -263,7 +272,7 @@ ENDHEADER
$r->print("Author and Co-Author roles may not be available on ".
"servers other than your home server.");
} else {
- $r->print("