version 1.13, 2001/08/06 20:29:37
|
version 1.15, 2001/08/20 23:27:27
|
Line 2
|
Line 2
|
# 2/9,2/13 Guy Albertelli |
# 2/9,2/13 Guy Albertelli |
# 6/8 Gerd Kortemeyer |
# 6/8 Gerd Kortemeyer |
# 7/26 H.K. Ng |
# 7/26 H.K. Ng |
|
# 8/20 Gerd Kortemeyer |
|
|
package Apache::grades; |
package Apache::grades; |
use strict; |
use strict; |
Line 40 sub listStudents {
|
Line 41 sub listStudents {
|
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
':environment:lastname&generation&firstname&middlename', |
':environment:lastname&generation&firstname&middlename', |
&Apache::lonnet::homeserver($sname,$sdom)); |
&Apache::lonnet::homeserver($sname,$sdom)); |
print "reply=$reply<br>"; |
#print "reply=$reply<br>"; |
my (@nameparts) = split /&/,$reply; |
my (@nameparts) = split /&/,$reply; |
# my $sfullname = $Apache::lonnet::unescape($nameparts[0]); |
# my $sfullname = $Apache::lonnet::unescape($nameparts[0]); |
|
|
Line 90 sub getclasslist {
|
Line 91 sub getclasslist {
|
my ($end,$start)=split(/:/,$value); |
my ($end,$start)=split(/:/,$value); |
# still a student? |
# still a student? |
if (($hideexpired) && ($end) && ($end < $now)) { |
if (($hideexpired) && ($end) && ($end < $now)) { |
print "Skipping:$name:$end:$now<br />\n"; |
#print "Skipping:$name:$end:$now<br />\n"; |
next; |
next; |
} |
} |
print "record=$record<br>"; |
#print "record=$record<br>"; |
push( @{ $classlist{'allids'} }, $name); |
push( @{ $classlist{'allids'} }, $name); |
} |
} |
return (%classlist); |
return (%classlist); |
Line 331 sub handler {
|
Line 332 sub handler {
|
|
|
&send_header($request); |
&send_header($request); |
if ($url eq '' && $symb eq '') { |
if ($url eq '' && $symb eq '') { |
$request->print("Non-Contextual Access Unsupported:$command:$url:"); |
if ($ENV{'user.adv'}) { |
|
if (($ENV{'form.codeone'}) && ($ENV{'form.codetwo'}) && |
|
($ENV{'form.codethree'})) { |
|
my $token=$ENV{'form.codeone'}.'*'.$ENV{'form.codetwo'}.'*'. |
|
$ENV{'form.codethree'}; |
|
my ($tsymb,$tuname,$tudom,$tcrsid)= |
|
&Apache::lonnet::checkin($token); |
|
if ($tsymb) { |
|
my ($map,$id,$url)=split(/\_\_\_/,$tsymb); |
|
if (&Apache::lonnet::allowed('mgr',$tcrsid)) { |
|
$request->print( |
|
&Apache::lonnet::ssi('/res/'.$url, |
|
('grade_username' => $tuname, |
|
'grade_domain' => $tudom, |
|
'grade_courseid' => $tcrsid, |
|
'grade_symb' => $tsymb))); |
|
} else { |
|
$request->print('<h1>Not authorized: '.$token.'</h1>'); |
|
} |
|
} else { |
|
$request->print('<h1>Not a valid DocID: '.$token.'</h1>'); |
|
} |
|
} else { |
|
$request->print(&Apache::lonxml::tokeninputfield()); |
|
} |
|
} |
} else { |
} else { |
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
if ($command eq 'submission') { |
if ($command eq 'submission') { |