--- loncom/homework/grades.pm 2017/12/18 23:51:24 1.745 +++ loncom/homework/grades.pm 2017/12/21 23:20:48 1.747 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.745 2017/12/18 23:51:24 raeburn Exp $ +# $Id: grades.pm,v 1.747 2017/12/21 23:20:48 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -856,7 +856,7 @@ sub verifyreceipt { sub listStudents { my ($request,$symb,$submitonly) = @_; - my ($is_tool) = ($symb =~ /ext\.tool$/); + my $is_tool = ($symb =~ /ext\.tool$/); 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'}; @@ -2021,7 +2021,7 @@ sub submission { my $probtitle=&Apache::lonnet::gettitle($symb); if ($symb eq '') { $request->print("Unable to handle ambiguous references:."); return ''; } - my ($is_tool) = ($symb =~ /ext\.tool$/); + my $is_tool = ($symb =~ /ext\.tool$/); if (!&canview($usec)) { $request->print( @@ -2635,7 +2635,7 @@ sub get_last_submission { if (!@string) { my $msg; if ($is_tool) { - $msg = &mt('Nothing passed back - no attempts.'); + $msg = &mt('No grade passed back.'); } else { $msg = &mt('Nothing submitted - no attempts.'); } @@ -5021,7 +5021,7 @@ sub displayPage { my $parts = $curRes->parts(); my $title = $curRes->compTitle(); my $symbx = $curRes->symb(); - my ($is_tool) = ($symbx =~ /ext\.tool$/); + my $is_tool = ($symbx =~ /ext\.tool$/); $studentTable.= &Apache::loncommon::start_data_table_row(). '