[BACK]Return to inputtags.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/inputtags.pm between versions 1.56 and 1.58

version 1.56, 2002/04/01 21:26:57 version 1.58, 2002/07/25 20:55:13
Line 78  sub start_textfield { Line 78  sub start_textfield {
   my $id = &start_input($parstack,$safeeval);    my $id = &start_input($parstack,$safeeval);
   my $resid=$Apache::inputtags::response[-1];    my $resid=$Apache::inputtags::response[-1];
   if ($target eq 'web') {    if ($target eq 'web') {
       $Apache::lonxml::evaluate--;
     my $partid=$Apache::inputtags::part;      my $partid=$Apache::inputtags::part;
     my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"});      my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"});
     my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);      my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
Line 108  sub start_textfield { Line 109  sub start_textfield {
 sub end_textfield {  sub end_textfield {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   if ($target eq 'web') {    if ($target eq 'web') {
       $Apache::lonxml::evaluate++;
     if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {      if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
       return "</textarea>";        return "</textarea>";
     }      }
Line 120  sub start_textline { Line 122  sub start_textline {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   my $result = "";    my $result = "";
   if ($target eq 'web') {    if ($target eq 'web') {
       $Apache::lonxml::evaluate--;
     my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);      my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
     if ($size eq '') { $size=20; }      if ($size eq '') { $size=20; }
     my $partid=$Apache::inputtags::part;      my $partid=$Apache::inputtags::part;
Line 144  sub start_textline { Line 147  sub start_textline {
   
 sub end_textline {  sub end_textline {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   if ($target eq 'edit') { return ('','no'); }    if    ($target eq 'web') { $Apache::lonxml::evaluate++; }
     elsif ($target eq 'edit') { return ('','no'); }
   return "";    return "";
 }  }
   
Line 342  sub setgradedata { Line 346  sub setgradedata {
       delete($Apache::lonhomework::results{"resource.$id.tries"});        delete($Apache::lonhomework::results{"resource.$id.tries"});
       $Apache::lonhomework::results{"resource.$id.previous"} = '1';        $Apache::lonhomework::results{"resource.$id.previous"} = '1';
     } elsif ( $previously_used eq 'PREVIOUSLY_LAST') {      } elsif ( $previously_used eq 'PREVIOUSLY_LAST') {
       #delete all data as they student didn't do anything        #delete all data as they student didn't do anything, but save
         #the list of collaborators.
       foreach my $key (keys(%Apache::lonhomework::results)) {        foreach my $key (keys(%Apache::lonhomework::results)) {
  if ($key =~ /^resource\.$id\./) {   if (($key =~ /^resource\.$id\./) && ($key !~ /\.collaborators$/)) {
   &Apache::lonxml::debug("Removing $key");    &Apache::lonxml::debug("Removing $key");
   delete($Apache::lonhomework::results{$key});    delete($Apache::lonhomework::results{$key});
  }   }
Removed from v.1.56  
changed lines
  Added in v.1.58

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>