--- loncom/homework/inputtags.pm 2002/09/23 07:08:40 1.61 +++ loncom/homework/inputtags.pm 2002/10/01 21:05:45 1.63 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # input definitons # -# $Id: inputtags.pm,v 1.61 2002/09/23 07:08:40 albertel Exp $ +# $Id: inputtags.pm,v 1.63 2002/10/01 21:05:45 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -110,7 +110,7 @@ sub start_textfield { $result.=&Apache::edit::text_arg('Rows:','rows',$token,4); $result.=&Apache::edit::text_arg('Columns:','cols',$token,4); my $bodytext=&Apache::lonxml::get_all_text("/textfield",$$parser[-1]); - $result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',50,2); + $result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2); } elsif ($target eq 'modified') { my $constructtag=&Apache::edit::get_new_args($token,$parstack, $safeeval,'rows','cols'); @@ -382,7 +382,7 @@ sub setgradedata { foreach my $key (keys(%Apache::lonhomework::results)) { if (($key =~ /^resource\.$id\./) && ($key !~ /\.collaborators$/)) { &Apache::lonxml::debug("Removing $key"); - delete($Apache::lonhomework::results{$key}); + delete($Apache::lonhomework::results{$key}); } } #and since they didn't do anything we were never here @@ -424,7 +424,7 @@ sub grade { } sub gradestatus { - my ($id) = @_; + my ($id,$target) = @_; my $showbutton = 1; my $message = ''; my $latemessage = ''; @@ -443,9 +443,13 @@ sub gradestatus { &Apache::lonxml::debug('Getting message'); ($showbutton,$message,$previousmsg) = &decideoutput($award,$solved,$previous); - $message="