--- 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"}) {