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

Diff for /loncom/homework/rankresponse.pm between versions 1.58 and 1.62

version 1.58, 2008/10/08 13:58:50 version 1.62, 2010/02/28 23:43:21
Line 50  sub start_rankresponse { Line 50  sub start_rankresponse {
     if ($target eq 'meta') {      if ($target eq 'meta') {
  $result=&Apache::response::meta_package_write('rankresponse');   $result=&Apache::response::meta_package_write('rankresponse');
     } elsif ($target eq 'edit' ) {      } elsif ($target eq 'edit' ) {
  $result.=&Apache::edit::start_table($token).   $result.=&Apache::edit::start_table($token)
     '<tr><td>'.&Apache::lonxml::description($token)."</td><td>Delete:".             .'<tr><td>'.&Apache::lonxml::description($token).'</td>'
     &Apache::edit::deletelist($target,$token)             .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
     ."</td><td>&nbsp".&Apache::edit::end_row()             .&Apache::edit::deletelist($target,$token)
     .&Apache::edit::start_spanning_row();             .'</span></td>'
              .'<td>&nbsp;'.&Apache::edit::end_row()
              .&Apache::edit::start_spanning_row();
   
  $result.=   $result.=
     &Apache::edit::text_arg('Max Number Of Shown Foils:','max',$token,'4').      &Apache::edit::text_arg('Max Number Of Shown Foils:','max',$token,'4').
     &Apache::edit::select_arg('Randomize Foil Order','randomize',      &Apache::edit::select_arg('Randomize Foil Order:','randomize',
       ['yes','no'],$token).        ['yes','no'],$token).
     &Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n";      &Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n";
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
Line 263  sub grade_response { Line 265  sub grade_response {
     $ad='MISSING_ANSWER';      $ad='MISSING_ANSWER';
  }   }
     }      }
     if ($Apache::lonhomework::type eq 'survey' &&      if (($ad eq 'INCORRECT' || $ad eq 'EXACT_ANS')) {
  ($ad eq 'INCORRECT' || $ad eq 'EXACT_ANS') ) {          if ($Apache::lonhomework::type eq 'survey') {
  $ad='SUBMITTED';              $ad='SUBMITTED';
           } elsif ($Apache::lonhomework::type eq 'surveycred') {
       $ad='SUBMITTED_CREDIT';
           } elsif ($Apache::lonhomework::type eq 'anonsurvey') {
               $ad='ANONYMOUS';
           } elsif ($Apache::lonhomework::type eq 'anonsurveycred') {
               $ad='ANONYMOUS_CREDIT';
           } else {
               $Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;
           }
     } else {      } else {
  $Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;   $Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;
     }      }
Line 315  sub displayfoils { Line 326  sub displayfoils {
  my $temp=1;   my $temp=1;
  my $id=$Apache::inputtags::response[-1];   my $id=$Apache::inputtags::response[-1];
  my $part=$Apache::inputtags::part;   my $part=$Apache::inputtags::part;
  my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};   my $lastresponse;
           unless ((($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) && (defined($env{'form.grade_symb'}))) {
               $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
           }
  my %lastresponse=&Apache::lonnet::str2hash($lastresponse);    my %lastresponse=&Apache::lonnet::str2hash($lastresponse); 
  my @alp = splice @alphabet, 0, $#whichopt + 1;   my @alp = splice @alphabet, 0, $#whichopt + 1;
  my $internal_counter=$Apache::lonxml::counter;   my $internal_counter=$Apache::lonxml::counter;
Removed from v.1.58  
changed lines
  Added in v.1.62

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