--- loncom/homework/inputtags.pm 2001/01/24 17:02:17 1.26 +++ loncom/homework/inputtags.pm 2001/02/19 21:02:59 1.28 @@ -1,5 +1,6 @@ # The LearningOnline Network with CAPA # input definitons +# 2/19 Guy package Apache::inputtags; use strict; @@ -63,7 +64,7 @@ sub start_textline { my $size = &Apache::run::run("{$args;".'return $size}',$safeeval); if ($size eq '') { $size=20; } my $oldresponse = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"}; - $result= ''; + $result= ''; } return $result; } @@ -94,7 +95,7 @@ sub end_textline { # my $id = &Apache::run::run("{$args;".'return $id}',$safeeval); # push (@Apache::inputtags::answergroup,$id); # my $result=''; -# my $button=''; +# my $button=''; # my $showbutton='1'; # my $usedtry='1'; # my $response=''; @@ -114,7 +115,7 @@ sub start_datasubmission { sub end_datasubmission { my ($target,$token,$parstack,$parser,$safeeval)=@_; if ( $target == 'web' ) { - return ''; + return ''; } return ''; } @@ -270,11 +271,11 @@ sub gradestatus { if ( $maxtries eq '' ) { $maxtries = '2'; } if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; } if ( $showbutton ) { - $trystr = "

Tries $tries/$maxtries"; + $trystr = "
Tries $tries/$maxtries"; } if ( $status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') {$showbutton = 0;} if ( $showbutton ) { - $button = '

'; + $button = '
'; } } return $button.$message.$trystr;