[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.14

version 1.948.2.12, 2010/11/09 21:18:16 version 1.948.2.14, 2010/12/19 22:34:42
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 3558  sub format_previous_attempt_value { Line 3562  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.14

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