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

Diff for /loncom/homework/response.pm between versions 1.31 and 1.34

version 1.31, 2001/07/13 16:15:01 version 1.34, 2001/08/04 20:01:36
Line 2 Line 2
 # various response type definitons response definition  # various response type definitons response definition
   
 # 11/23,11/24,11/28 Gerd Kortemeyer  # 11/23,11/24,11/28 Gerd Kortemeyer
   # Guy Albertelli
   # 08/04 Gerd Kortemeyer
   
 package Apache::response;  package Apache::response;
 use strict;  use strict;
Line 51  sub meta_parameter_write { Line 53  sub meta_parameter_write {
      ."\n";       ."\n";
 }  }
   
   sub meta_package_write {
       my $name=shift;
       return '<parameter part="'.$Apache::inputtags::part.
            '" package="'.$name.'"></parameter>'
        ."\n";
   }
   
 sub meta_stores_write {  sub meta_stores_write {
     my ($name,$type,$display)=@_;      my ($name,$type,$display)=@_;
     return '<stores part="'.$Apache::inputtags::part.      return '<stores part="'.$Apache::inputtags::part.
Line 69  sub mandatory_part_meta { Line 78  sub mandatory_part_meta {
 # of each part  # of each part
 #  #
  return   return
     &meta_parameter_write('opendate','date_start','',  #    &meta_parameter_write('opendate','date_start','',
                           'Opening Date').  #                          'Opening Date').
     &meta_parameter_write('duedate','date_end','',  #    &meta_parameter_write('duedate','date_end','',
                           'Due Date').  #                          'Due Date').
     &meta_parameter_write('answerdate','date_start','',  #    &meta_parameter_write('answerdate','date_start','',
                           'Show Answer Date').  #                          'Show Answer Date').
     &meta_parameter_write('weight','int_zeropos','',  #    &meta_parameter_write('weight','int_zeropos','',
                           'Available Points').  #                          'Available Points').
     &meta_parameter_write('maxtries','int_pos','',  #    &meta_parameter_write('maxtries','int_pos','',
                           'Maximum Number of Tries').  #                          'Maximum Number of Tries').
       &meta_package_write('part');
     &meta_stores_write('solved','string',      &meta_stores_write('solved','string',
                           'Problem Status').                            'Problem Status').
     &meta_stores_write('tries','int_zeropos',      &meta_stores_write('tries','int_zeropos',
Line 93  sub mandatory_part_meta { Line 102  sub mandatory_part_meta {
 }  }
   
 sub check_for_previous {  sub check_for_previous {
   return '0';    my ($curresponse,$partid,$id) = @_;
     my %previous;
     $previous{'used'} = 0;
     foreach my $key (reverse(sort(keys(%Apache::lonhomework::history)))) {
       if ($key =~ /resource\.$partid\.$id\.submission/) {
         &Apache::lonxml::debug("Trying $key");
         my $pastresponse=$Apache::lonhomework::history{$key};
         if ($pastresponse eq $curresponse) {
    $previous{'used'} = 1;
    my $history;
    if ( $key =~ /^(\d+):/ ) {
     $history=$1;
     $previous{'award'} = $Apache::lonhomework::history{"$history:resource.$partid.$id.awarddetail"};
     $previous{'last'}='0';
    } else {
     $previous{'award'} = $Apache::lonhomework::history{"resource.$partid.$id.awarddetail"};
     $previous{'last'}='1';
    }
    if (! $previous{'award'} ) { $previous{'award'} = 'UNKNOWN'; }
    &Apache::lonxml::debug("got a match :$previous{'award'}:$previous{'used'}:");
    last;
         }
       }
     }
     return %previous;
 }  }
   
 sub start_caparesponse {  sub start_caparesponse {
Line 115  sub start_numericalresponse { Line 148  sub start_numericalresponse {
   require Apache::caparesponse;     require Apache::caparesponse; 
   import Apache::caparesponse;     import Apache::caparesponse; 
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   return &Apache::caparesponse::start_numericalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);    if ($target eq 'meta') {
         return &meta_package_write('numericalresponse');
     } else {
         return &Apache::caparesponse::start_numericalresponse
                ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
     }
 }  }
   
 sub start_radiobuttonresponse {  sub start_radiobuttonresponse {
Removed from v.1.31  
changed lines
  Added in v.1.34

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