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

Diff for /loncom/interface/loncommon.pm between versions 1.948.2.12 and 1.948.2.15

version 1.948.2.12, 2010/11/09 21:18:16 version 1.948.2.15, 2010/12/19 22:59:22
Line 2284  function changed_text(choice,currentform Line 2284  function changed_text(choice,currentform
 }  }
   
 function set_auth_radio_buttons(newvalue,currentform) {  function set_auth_radio_buttons(newvalue,currentform) {
       var numauthchoices = currentform.login.length;
       if (typeof numauthchoices  == "undefined") {
           return;
       }
     var i=0;      var i=0;
     while (i < currentform.login.length) {      while (i < numauthchoices) {) {
         if (currentform.login[i].value == newvalue) { break; }          if (currentform.login[i].value == newvalue) { break; }
         i++;          i++;
     }      }
     if (i == currentform.login.length) {      if (i == numauthchoices) {
         return;          return;
     }      }
     current.radiovalue = newvalue;      current.radiovalue = newvalue;
Line 3428  sub get_previous_attempt { Line 3432  sub get_previous_attempt {
  my ($ign,@parts) = split(/\./,$key);   my ($ign,@parts) = split(/\./,$key);
  if ($#parts > 0) {   if ($#parts > 0) {
   my $data=$parts[-1];    my $data=$parts[-1];
             next if ($data eq 'foilorder');
   pop(@parts);    pop(@parts);
           if ($data eq 'type') {            if ($data eq 'type') {
               unless ($showsurv) {                unless ($showsurv) {
Line 3464  sub get_previous_attempt { Line 3469  sub get_previous_attempt {
                            '<td>'.&mt('Transaction [_1]',$version).'</td>';                             '<td>'.&mt('Transaction [_1]',$version).'</td>';
             if (@hidden) {              if (@hidden) {
                 foreach my $key (sort(keys(%lasthash))) {                  foreach my $key (sort(keys(%lasthash))) {
                       next if ($key =~ /\.foilorder$/);
                     my $hide;                      my $hide;
                     foreach my $id (@hidden) {                      foreach my $id (@hidden) {
                         if ($key =~ /^\Q$id\E/) {                          if ($key =~ /^\Q$id\E/) {
Line 3492  sub get_previous_attempt { Line 3498  sub get_previous_attempt {
                 }                  }
             } else {              } else {
         foreach my $key (sort(keys(%lasthash))) {          foreach my $key (sort(keys(%lasthash))) {
                       next if ($key =~ /\.foilorder$/);
     my $value = &format_previous_attempt_value($key,      my $value = &format_previous_attempt_value($key,
             $returnhash{$version.':'.$key});              $returnhash{$version.':'.$key});
     $prevattempts.='<td>'.$value.'&nbsp;</td>';      $prevattempts.='<td>'.$value.'&nbsp;</td>';
Line 3503  sub get_previous_attempt { Line 3510  sub get_previous_attempt {
       my @currhidden = keys(%lasthidden);        my @currhidden = keys(%lasthidden);
       $prevattempts.=&start_data_table_row().'<td>'.&mt('Current').'</td>';        $prevattempts.=&start_data_table_row().'<td>'.&mt('Current').'</td>';
       foreach my $key (sort(keys(%lasthash))) {        foreach my $key (sort(keys(%lasthash))) {
             next if ($key =~ /\.foilorder$/);
           if (%typeparts) {            if (%typeparts) {
               my $hidden;                my $hidden;
               foreach my $id (@currhidden) {                foreach my $id (@currhidden) {
Line 3558  sub format_previous_attempt_value { Line 3566  sub format_previous_attempt_value {
  $value = &Apache::lonlocal::locallocaltime($value);   $value = &Apache::lonlocal::locallocaltime($value);
     } elsif (ref($value) eq 'ARRAY') {      } elsif (ref($value) eq 'ARRAY') {
  $value = '('.join(', ', @{ $value }).')';   $value = '('.join(', ', @{ $value }).')';
       } elsif ($key =~ /answerstring$/) {
           my %answers = &Apache::lonnet::str2hash($value);
           my @anskeys = sort(keys(%answers));
           if (@anskeys == 1) {
               my $answer = $answers{$anskeys[0]};
               if ($answer =~ m{\Q\0\E}) {
                   $answer =~ s{\Q\0\E}{, }g;
               }
               my $tag_internal_answer_name = 'INTERNAL';
               if ($anskeys[0] eq $tag_internal_answer_name) {
                   $value = $answer;
               } else {
                   $value = $anskeys[0].'='.$answer;
               }
           } else {
               foreach my $ans (@anskeys) {
                   my $answer = $answers{$ans};
                   if ($answer =~ m{\Q\0\E}) {
                       $answer =~ s{\Q\0\E}{, }g;
                   }
                   $value .=  $ans.'='.$answer.'<br />';;
               }
           }
     } else {      } else {
  $value = &unescape($value);   $value = &unescape($value);
     }      }
Removed from v.1.948.2.12  
changed lines
  Added in v.1.948.2.15

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