--- loncom/homework/inputtags.pm 2007/02/22 00:21:47 1.213 +++ loncom/homework/inputtags.pm 2007/02/27 19:43:16 1.216 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # input definitons # -# $Id: inputtags.pm,v 1.213 2007/02/22 00:21:47 banghart Exp $ +# $Id: inputtags.pm,v 1.216 2007/02/27 19:43:16 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -292,7 +292,9 @@ sub start_textline { my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval); my $maxlength; if ($size eq '') { $size=20; } else { - if ($size < 20) { $maxlength=$size; } + if ($size < 20) { + $maxlength = ' maxlength="'.$size.'"'; + } } my $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"}; &Apache::lonxml::debug("oldresponse $oldresponse is ".ref($oldresponse)); @@ -320,8 +322,8 @@ sub start_textline { if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') { $name = "none"; } - $result.= ''; + $result.= ''; } if ($Apache::lonhomework::type eq 'exam' && &needs_exam_box($tagstack)) { @@ -621,11 +623,11 @@ sub decideoutput { $message.= $computer; } $added_computer_text=1; - &Apache::lonnet::logthis("the course is ".$env{'request.course.id'}); + my ($symb) = &Apache::lonnet::whichuser(); if ((!$env{'course.'. $env{'request.course.id'}. '.disable_receipt_display'} eq 'yes')&& - $env{'request.course.id'}) { + $symb) { $message.=(($target eq 'web')?'
':' '). &mt('Your receipt is').' '.&Apache::lonnet::receipt($Apache::inputtags::part). (($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''); @@ -1065,7 +1067,7 @@ sub gradestatus { if ( $status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') {$showbutton = 0;} if ( $showbutton ) { if ($target ne 'tex') { - $button = ''; + $button = ''; } } if ($Apache::lonhomework::history{"resource.$id.afterduedate"}) {