--- loncom/homework/grades.pm 2002/09/06 21:01:09 1.46.2.1 +++ loncom/homework/grades.pm 2002/08/26 12:47:28 1.47 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.46.2.1 2002/09/06 21:01:09 albertel Exp $ +# $Id: grades.pm,v 1.47 2002/08/26 12:47:28 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -324,7 +324,6 @@ sub listStudents { LISTJAVASCRIPT - my ($symb,$url) = &get_symb_and_url(); my $cdom = $ENV{"course.$ENV{'request.course.id'}.domain"}; my $cnum = $ENV{"course.$ENV{'request.course.id'}.num"}; my $getsec = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'}; @@ -334,8 +333,8 @@ LISTJAVASCRIPT 'View/Grade Submissions for a Student or a Group of Students'; $result.=''; $result.=''; - my ($partlist,$handgrade) = &response_type($url); + 'Resource: '.$ENV{'form.url'}.''; + my ($partlist,$handgrade) = &response_type($ENV{'form.url'}); for (sort keys(%$handgrade)) { my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_}); $ENV{'form.handgrade'} = 'yes' if ($handgrade eq 'yes'); @@ -362,8 +361,8 @@ LISTJAVASCRIPT ''."\n". '
'."\n". '
'."\n". - ''."\n". - ''."\n". + ''."\n". + ''."\n". 'To view/grade a submission, click on the check box next to the student\'s name. Then '."\n". 'click on the View/Grade button. To view the submissions for a group of students, click'."\n". ' on the check boxes for the group of students.
'."\n". @@ -386,7 +385,8 @@ LISTJAVASCRIPT my $ctr = 0; foreach my $student (sort {$$fullname{$a} cmp $$fullname{$b} } keys %$fullname) { my ($uname,$udom) = split(/:/,$student); - my (%status) =&student_gradeStatus($url,$symb,$udom,$uname,$partlist); + my (%status) = &student_gradeStatus($ENV{'form.url'}, + $ENV{'form.symb'},$udom,$uname,$partlist); my $statusflg = ''; foreach (keys(%status)) { $statusflg = 1 if ($status{$_} ne 'nothing'); @@ -423,7 +423,7 @@ LISTJAVASCRIPT if ($ctr == 0) { $gradeTable='
 '. 'No submission found for this resource.
'; - $gradeTable.=&show_grading_menu_form($symb,$url); + $gradeTable.=&show_grading_menu_form ($ENV{'form.symb'},$ENV{'form.url'}); } elsif ($ctr == 1) { $gradeTable =~ s/type=checkbox/type=checkbox checked/; } @@ -2316,7 +2316,7 @@ sub send_header { #remotewindow=open('','homeworkremote'); #remotewindow.close(); #"); - $request->print(''); + $request->print(&Apache::loncommon::bodytag('Grading')); } sub send_footer {
'. - 'Resource: '.$url.'