loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.15 and 1.16

version 1.15, 2001/08/20 23:27:27	version 1.16, 2001/10/05 21:51:14
Line 18 sub moreinfo {	Line 18 sub moreinfo {
$request->print("Unable to process request: $reason");	$request->print("Unable to process request: $reason");
if ( $Apache::grades::viewgrades eq 'F' ) {	if ( $Apache::grades::viewgrades eq 'F' ) {
$request->print('<form action="/adm/grades" method="post">'."\n");	$request->print('<form action="/adm/grades" method="post">'."\n");
$request->print('<input type="hidden" name="url" value="'.$ENV{'form.url'}.'"></input>'."\n");	if ($ENV{'form.url'}) {
$request->print('<input type="hidden" name="command" value="'.$ENV{'form.command'}.'"></input>'."\n");	$request->print('<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />'."\n");
$request->print("Student:".'<input type="text" name="student" value="'.$ENV{'form.student'}.'"></input>'."<br />\n");	}
$request->print("Domain:".'<input type="text" name="domain" value="'.$ENV{'user.domain'}.'"></input>'."<br />\n");	if ($ENV{'form.symb'}) {
$request->print('<input type="submit" name="submit" value="ReSubmit"></input>'."<br />\n");	$request->print('<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />'."\n");
	}
	$request->print('<input type="hidden" name="command" value="'.$ENV{'form.command'}.'" />'."\n");
	$request->print("Student:".'<input type="text" name="student" value="'.$ENV{'form.student'}.'" />'."<br />\n");
	$request->print("Domain:".'<input type="text" name="domain" value="'.$ENV{'user.domain'}.'" />'."<br />\n");
	$request->print('<input type="submit" name="submit" value="ReSubmit" />'."<br />\n");
$request->print('</form>');	$request->print('</form>');
}	}
return '';	return '';
Line 48 sub listStudents {	Line 53 sub listStudents {
if ( $Apache::grades::viewgrades eq 'F' ) {	if ( $Apache::grades::viewgrades eq 'F' ) {
$request->print('<form action="/adm/grades" method="post">'."\n");	$request->print('<form action="/adm/grades" method="post">'."\n");
$request->print("$sname @nameparts\n");	$request->print("$sname @nameparts\n");
$request->print('<input type="hidden" name="url" value="'.$ENV{'form.url'}.'"></input>'."\n");	if ($ENV{'form.url'}) {
$request->print('<input type="hidden" name="command" value="'.$ENV{'form.command'}.'"></input>'."\n");	$request->print('<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />'."\n");
$request->print('<input type="hidden" name="student" value="'.$sname.'"></input>'."\n");	}
$request->print('<input type="hidden" name="domain" value="'.$sdom.'"></input>'."\n");	if ($ENV{'form.symb'}) {
$request->print('<input type="submit" name="submit" value="View"></input>'."<br />\n");	$request->print('<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />'."\n");
	}
	$request->print('<input type="hidden" name="command" value="'.$ENV{'form.command'}.'" />'."\n");
	$request->print('<input type="hidden" name="student" value="'.$sname.'" />'."\n");
	$request->print('<input type="hidden" name="domain" value="'.$sdom.'" />'."\n");
	$request->print('<input type="submit" name="submit" value="View" />'."<br />\n");
$request->print('</form>');	$request->print('</form>');
}	}
}	}
Line 211 sub submission {	Line 221 sub submission {
# if ($ENV{'form.student'} eq '') { &listStudents($request); return ''; }	# if ($ENV{'form.student'} eq '') { &listStudents($request); return ''; }
my ($uname,$udom) = &finduser($ENV{'form.student'});	my ($uname,$udom) = &finduser($ENV{'form.student'});
if ($uname eq '') { &moreinfo($request,"Unable to find student"); return ''; }	if ($uname eq '') { &moreinfo($request,"Unable to find student"); return ''; }
my $symb=&Apache::lonnet::symbread($url);	my $symb;
	if ($ENV{'form.symb'}) {
	$symb=$ENV{'form.symb'};
	} else {
	$symb=&Apache::lonnet::symbread($url);
	}
if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; }	if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; }
my $answer=&Apache::loncommon::get_previous_attempt($symb,$uname,$udom,	my $answer=&Apache::loncommon::get_previous_attempt($symb,$uname,$udom,
$ENV{'request.course.id'});	$ENV{'request.course.id'});
Line 245 sub viewgrades {	Line 260 sub viewgrades {

#start the form	#start the form
$result = '<form action="/adm/grades" method="post">'."\n".	$result = '<form action="/adm/grades" method="post">'."\n".
'<input type="hidden" name="symb" value="'.$symb.'"/>'."\n".	'<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
'<input type="hidden" name="url" value="'.$url.'"/>'."\n".	'<input type="hidden" name="url" value="'.$url.'" />'."\n".
'<input type="hidden" name="command" value="editgrades" />'."\n".	'<input type="hidden" name="command" value="editgrades" />'."\n".
'<input type="submit" name="submit" value="Submit Changes" />'."\n".	'<input type="submit" name="submit" value="Submit Changes" />'."\n".
'<table border=0><tr><td bgcolor="#999999">'."\n".	'<table border=0><tr><td bgcolor="#999999">'."\n".
Line 326 sub handler {	Line 341 sub handler {
}	}
$request->send_http_header;	$request->send_http_header;
return OK if $request->header_only;	return OK if $request->header_only;
	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
my $url=$ENV{'form.url'};	my $url=$ENV{'form.url'};
my $symb=$ENV{'form.symb'};	my $symb=$ENV{'form.symb'};
my $command=$ENV{'form.command'};	my $command=$ENV{'form.command'};
	if (!$url) {
	my ($temp1,$temp2);
	($temp1,$temp2,$ENV{'form.url'})=split(/___/,$symb);
	$url = $ENV{'form.url'};
	}
&send_header($request);	&send_header($request);
if ($url eq '' && $symb eq '') {	if ($url eq '' && $symb eq '') {
if ($ENV{'user.adv'}) {	if ($ENV{'user.adv'}) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.15
changed lines
	Added in v.1.16