Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.155 and 1.162

version 1.155, 2012/02/10 00:26:42 version 1.162, 2018/12/19 04:07:35
Line 80  sub start_radiobuttonresponse { Line 80  sub start_radiobuttonresponse {
  $result=&Apache::response::meta_package_write('radiobuttonresponse');   $result=&Apache::response::meta_package_write('radiobuttonresponse');
     } 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)             .'<tr><td>'.&Apache::loncommon::insert_folding_button()
              .&Apache::lonxml::description($token)
            .&Apache::loncommon::help_open_topic('Radio_Response_Problems')             .&Apache::loncommon::help_open_topic('Radio_Response_Problems')
            .'</td>'             .'</td>'
            .'<td><span class="LC_nobreak">'.&mt('Delete?').' '             .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
Line 90  sub start_radiobuttonresponse { Line 91  sub start_radiobuttonresponse {
            .&Apache::edit::start_spanning_row();             .&Apache::edit::start_spanning_row();
  $result.=   $result.=
     &Apache::edit::text_arg('Max Number Of Shown Foils:','max',      &Apache::edit::text_arg('Max Number Of Shown Foils:','max',
     $token,'4').'&nbsp;'x 3 .      $token,'4').
     &Apache::edit::select_arg('Randomize Foil Order:','randomize',      &Apache::edit::select_arg('Randomize Foil Order:','randomize',
       ['yes','no'],$token).'&nbsp;'x 3 .        ['yes','no'],$token).
     &Apache::edit::select_arg('Display Direction:','direction',      &Apache::edit::select_arg('Display Direction:','direction',
       ['vertical','horizontal'],$token).        ['vertical','horizontal'],$token).
       &Apache::edit::end_row().        &Apache::edit::end_row().
Line 376  sub get_last_survey_response { Line 377  sub get_last_survey_response {
         }          }
     }      }
     $showanswer = &Apache::response::show_answer();      $showanswer = &Apache::response::show_answer();
     unless (      unless ($newvariation && !$showanswer) {
         (          if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||
             (              (($env{'form.grade_username'} eq $env{'user.name'}) &&
                 $Apache::lonhomework::history{"resource.$part.type"} eq               ($env{'form.grade_domain'} eq $env{'user.domain'}))) {
                 'anonsurvey'              $lastresponse = $Apache::lonhomework::history{"resource.$part.$id.submission"};
             )          } else {
             || ( $Apache::lonhomework::history{"resource.$part.type"} eq              unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') ||
                 'anonsurveycred' )                      ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) {
         )                  $lastresponse = $Apache::lonhomework::history{"resource.$part.$id.submission"};
         && ( defined( $env{'form.grade_symb'} ) )              }
         || ( $newvariation && !$showanswer )          }
       )  
     {  
         $lastresponse =  
           $Apache::lonhomework::history{"resource.$part.$id.submission"};  
     }      }
     my %lastresponse = &Apache::lonnet::str2hash($lastresponse);      my %lastresponse = &Apache::lonnet::str2hash($lastresponse);
      
   
     return \%lastresponse;      return \%lastresponse;
   
Line 596  sub html_direction_fragments { Line 592  sub html_direction_fragments {
     if ($direction eq 'horizontal') {      if ($direction eq 'horizontal') {
  return ('<table><tr>', '</tr></table>', '<td>', '</td>');   return ('<table><tr>', '</tr></table>', '<td>', '</td>');
     } else {      } else {
  return ('', '<br />', '<br />', '');   return ('', '', '<div class="LC_radiofoil">', '</div>');
     }      }
 }  }
   
Line 829  sub html_radiobutton { Line 825  sub html_radiobutton {
   
     my $result='<label>';      my $result='<label>';
           
     $result .= '<input type="radio"      $result .= '<input type="radio" '
                 onchange="javascript:setSubmittedPart(' . "'$part');\""   . 'onchange="javascript:setSubmittedPart(' . "'$part');\" "
  . 'name="HWVAL_' . $fieldname . '"'   . 'name="HWVAL_' . $fieldname . '" '
  . "value='$value'";   . 'value="'.$value.'"';
   
     if (defined($last_responses->{$name})) {      if (defined($last_responses->{$name})) {
  $result .= '  checked="checked" ';   $result .= '  checked="checked" ';
Line 874  sub get_last_response { Line 870  sub get_last_response {
  }   }
     }      }
     unless ($newvariation) {      unless ($newvariation) {
  $lastresponse =          if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||
     $Apache::lonhomework::history{"resource.$part.$id.submission"};              (($env{'form.grade_username'} eq $env{'user.name'}) &&
                ($env{'form.grade_domain'} eq $env{'user.domain'}))) {
               $lastresponse =
                   $Apache::lonhomework::history{"resource.$part.$id.submission"};
           } else {
               unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') ||
                       ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) {
                   $lastresponse =
                       $Apache::lonhomework::history{"resource.$part.$id.submission"};
   
               }
           }
     }      }
   
     my %lastresponse = &Apache::lonnet::str2hash($lastresponse);      my %lastresponse = &Apache::lonnet::str2hash($lastresponse);
   
     return \%lastresponse;      return \%lastresponse;
Line 1022  sub display_latex_exam { Line 1030  sub display_latex_exam {
  . '} \hspace*{\fill} \\\\';   . '} \hspace*{\fill} \\\\';
  }   }
  else {   else {
     $result .= '\textbf{' . $Apache::lonxml::counter . '}.';      $result .= '\textbf{' . $Apache::lonxml::counter . '}.'.
                          '\hspace*{2 mm}';
  }   }
   
  # Now output the bubbles themselves:   # Now output the bubbles themselves:
Line 1039  sub display_latex_exam { Line 1048  sub display_latex_exam {
     }      }
     my $preindent;      my $preindent;
     if ($bubble_number > 0) {      if ($bubble_number > 0) {
  $preindent = '\hspace*{3 mm}';                  my $offset = 5;
                   if ($Apache::lonxml::counter) {
                       if ($identifier) {
                           $offset += 2 * (length($identifier)-1);
                       } else {
                           $offset += 2 * (length($Apache::lonxml::counter)-1);
                       }
                   }
                   $preindent = '\hspace*{'.$offset.' mm}';
     }      }
     my $foiltext = $Apache::response::foilgroup{$name . '.text'};      my $foiltext = $Apache::response::foilgroup{$name . '.text'};
     $foiltext =~ s/\\noindent//; # forgive me for I have sinned..      $foiltext =~ s/\\noindent//; # forgive me for I have sinned..

Removed from v.1.155  
changed lines
  Added in v.1.162


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