version 1.33, 2001/12/29 21:09:47
|
version 1.35, 2002/05/04 02:30:00
|
Line 208 ENDHEADER
|
Line 208 ENDHEADER
|
} |
} |
} else { |
} else { |
if ($advanced) { |
if ($advanced) { |
$r->print("<h2>Select a User Role</h2>\n"); |
$r->print |
|
("<h2>$ENV{'user.name'}, Please Select a Role</h2>\n"); |
|
$r->print("Your home server is ". |
|
$Apache::lonnet::hostname{&Apache::lonnet::homeserver |
|
($ENV{'user.name'},$ENV{'user.domain'})}."<br />\n"); |
|
$r->print("Author and Co-Author roles may not be available on ". |
|
"servers other than your home server."); |
} else { |
} else { |
$r->print("<h2>Enter a Course</h2>\n"); |
$r->print("<h2>Enter a Course</h2>\n"); |
} |
} |
Line 229 ENDHEADER
|
Line 235 ENDHEADER
|
'<th>Start</th><th>End</th><th>Remark</th></tr>'."\n"); |
'<th>Start</th><th>End</th><th>Remark</th></tr>'."\n"); |
|
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
|
my $button = 1; |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
Line 240 ENDHEADER
|
Line 247 ENDHEADER
|
my $tpend=' '; |
my $tpend=' '; |
if ($tstart) { |
if ($tstart) { |
if ($tstart>$then) { |
if ($tstart>$then) { |
$tstatus='future'; |
$tstatus='future'; |
if ($tstart<$now) { $tstatus='will'; } |
if ($tstart<$now) { $tstatus='will'; } |
} |
} |
$tpstart=localtime($tstart); |
$tpstart=localtime($tstart); |
} |
} |
if ($tend) { |
if ($tend) { |
if ($tend<$then) { |
if ($tend<$then) { |
$tstatus='expired'; |
$tstatus='expired'; |
} elsif ($tend<$now) { |
} elsif ($tend<$now) { |
$tstatus='will_not'; |
$tstatus='will_not'; |
} |
} |
$tpend=localtime($tend); |
$tpend=localtime($tend); |
} |
} |
Line 257 ENDHEADER
|
Line 264 ENDHEADER
|
$tstatus='selected'; |
$tstatus='selected'; |
} |
} |
my $tbg; |
my $tbg; |
if (($tstatus eq 'is') || ($tstatus eq 'selected') || |
if (($tstatus eq 'is') || ($tstatus eq 'selected') || |
($ENV{'form.showall'})) { |
($ENV{'form.showall'})) { |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$tbg='#77FF77'; |
$tbg='#77FF77'; |
} elsif ($tstatus eq 'future') { |
} elsif ($tstatus eq 'future') { |
$tbg='#FFFF77'; |
$tbg='#FFFF77'; |
} elsif ($tstatus eq 'will') { |
} elsif ($tstatus eq 'will') { |
$tbg='#FFAA77'; |
$tbg='#FFAA77'; |
$tremark.='Active at next login. '; |
$tremark.='Active at next login. '; |
} elsif ($tstatus eq 'expired') { |
} elsif ($tstatus eq 'expired') { |
$tbg='#FF7777'; |
$tbg='#FF7777'; |
} elsif ($tstatus eq 'will_not') { |
} elsif ($tstatus eq 'will_not') { |
$tbg='#AAFF77'; |
$tbg='#AAFF77'; |
$tremark.='Expired after logout. '; |
$tremark.='Expired after logout. '; |
} elsif ($tstatus eq 'selected') { |
} elsif ($tstatus eq 'selected') { |
$tbg='#11CC55'; |
$tbg='#11CC55'; |
$tremark.='Currently selected. '; |
$tremark.='Currently selected. '; |
} |
} |
my $trole; |
my $trole; |
if ($role =~ /^cr\//) { |
if ($role =~ /^cr\//) { |
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role); |
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role); |
$tremark.='<br>Defined by '.$rauthor.' at '.$rdomain.'.'; |
$tremark.='<br>Defined by '.$rauthor.' at '.$rdomain.'.'; |
$trole=$rrole; |
$trole=$rrole; |
} else { |
|
$trole=Apache::lonnet::plaintext($role); |
|
} |
|
my $ttype; |
|
my $twhere; |
|
my ($tdom,$trest,$tsection)= |
|
split(/\//,Apache::lonnet::declutter($where)); |
|
if ($trest) { |
|
if ($role eq 'ca') { |
|
$ttype='Construction Space'; |
|
$twhere='User: '.$trest.'<br>Domain: '.$tdom; |
|
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
|
} else { |
|
$ttype='Course'; |
|
if ($tsection) { |
|
$ttype.='<br>Section/Group: '.$tsection; |
|
} |
|
my $tcourseid=$tdom.'_'.$trest; |
|
if ($ENV{'course.'.$tcourseid.'.description'}) { |
|
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
|
} else { |
} else { |
my %newhash=Apache::lonnet::coursedescription($tcourseid); |
$trole=Apache::lonnet::plaintext($role); |
if (%newhash) { |
} |
$twhere=$newhash{'description'}; |
my $ttype; |
|
my $twhere; |
|
my ($tdom,$trest,$tsection)= |
|
split(/\//,Apache::lonnet::declutter($where)); |
|
# First, Co-Authorship roles |
|
if ($role eq 'ca') { |
|
my $home = &Apache::lonnet::homeserver($trest,$tdom); |
|
$button = 0 if ($home ne $r->dir_config('lonHostID')); |
|
#next if ($home eq 'no_host'); |
|
$home = $Apache::lonnet::hostname{$home}; |
|
$ttype='Construction Space'; |
|
$twhere='User: '.$trest.'<br />Domain: '.$tdom.'<br />'. |
|
' Server: '.$home; |
|
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
|
} elsif ($role eq 'au') { |
|
# Authors |
|
my $home = &Apache::lonnet::homeserver |
|
($ENV{'user.name'},$ENV{'user.domain'}); |
|
$button = 0 if ($home ne $r->dir_config('lonHostID')); |
|
#next if ($home eq 'no_host'); |
|
$home = $Apache::lonnet::hostname{$home}; |
|
$ttype='Construction Space'; |
|
$twhere='Domain: '.$tdom.'<br />Server: '.$home; |
|
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
|
} elsif ($trest) { |
|
$ttype='Course'; |
|
if ($tsection) { |
|
$ttype.='<br>Section/Group: '.$tsection; |
|
} |
|
my $tcourseid=$tdom.'_'.$trest; |
|
if ($ENV{'course.'.$tcourseid.'.description'}) { |
|
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
} else { |
} else { |
$twhere='Currently not available'; |
my %newhash=Apache::lonnet::coursedescription |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
($tcourseid); |
|
if (%newhash) { |
|
$twhere=$newhash{'description'}; |
|
} else { |
|
$twhere='Currently not available'; |
|
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
|
} |
|
if ($trole ne 'st') { |
|
$twhere.="<br />Domain:".$tdom; |
|
} |
} |
} |
} |
} elsif ($tdom) { |
} |
$ttype='Domain'; |
} elsif ($tdom) { |
$twhere=$tdom; |
$ttype='Domain'; |
|
$twhere=$tdom; |
|
} else { |
|
$ttype='System'; |
|
$twhere='system wide'; |
|
} |
|
|
|
$r->print('<tr bgcolor='.$tbg.'>'); |
|
unless ($nochoose) { |
|
if ($tstatus eq 'is') { |
|
$r->print('<td><input type=submit value=Select name="'. |
|
$trolecode.'"></td>'); |
|
} elsif ($ENV{'user.adv'}) { |
|
$r->print( |
|
'<td><input type=submit value="Re-Initialize" name="'. |
|
$trolecode.'"></td>'); |
|
} else { |
} else { |
$r->print('<td> </td>'); |
$ttype='System'; |
|
$twhere='system wide'; |
|
} |
|
|
|
# ----- do not trust the indention below here ----- |
|
$r->print('<tr bgcolor='.$tbg.'>'); |
|
unless ($nochoose) { |
|
if (!$button) { |
|
$r->print('<td> </td>'); |
|
} elsif ($tstatus eq 'is') { |
|
$r->print('<td><input type=submit value=Select name="'. |
|
$trolecode.'"></td>'); |
|
} elsif ($ENV{'user.adv'}) { |
|
$r->print |
|
('<td><input type=submit value="Re-Initialize"'. |
|
' name="'.$trolecode.'"></td>'); |
|
} else { |
|
$r->print('<td> </td>'); |
|
} |
} |
} |
} |
|
$r->print('<td>'.$trole.'</td><td>'. |
$r->print('<td>'.$trole.'</td><td>'. |
$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart. |
$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart. |
'</td><td>'.$tpend. |
'</td><td>'.$tpend. |