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

Diff for /loncom/homework/grades.pm between versions 1.419 and 1.421

version 1.419, 2007/07/04 18:37:30 version 1.421, 2007/07/06 23:17:28
Line 6133  sub gather_clicker_ids { Line 6133  sub gather_clicker_ids {
     (&Apache::lonnet::userenvironment($domain,$username,'clickers'))[1];      (&Apache::lonnet::userenvironment($domain,$username,'clickers'))[1];
         foreach my $id (split(/\,/,$clickers)) {          foreach my $id (split(/\,/,$clickers)) {
             $id=~s/^[\#0]+//;              $id=~s/^[\#0]+//;
               $id=~s/[\-\:]//g;
             if (exists($clicker_ids{$id})) {              if (exists($clicker_ids{$id})) {
  $clicker_ids{$id}.=','.$username.':'.$domain;   $clicker_ids{$id}.=','.$username.':'.$domain;
             } else {              } else {
Line 6155  sub gather_adv_clicker_ids { Line 6156  sub gather_adv_clicker_ids {
  (&Apache::lonnet::userenvironment($pudom,$puname,'clickers'))[1];   (&Apache::lonnet::userenvironment($pudom,$puname,'clickers'))[1];
             foreach my $id (split(/\,/,$clickers)) {              foreach my $id (split(/\,/,$clickers)) {
  $id=~s/^[\#0]+//;   $id=~s/^[\#0]+//;
                   $id=~s/[\-\:]//g;
  if (exists($clicker_ids{$id})) {   if (exists($clicker_ids{$id})) {
     $clicker_ids{$id}.=','.$puname.':'.$pudom;      $clicker_ids{$id}.=','.$puname.':'.$pudom;
  } else {   } else {
Line 6301  sub process_clicker_file { Line 6303  sub process_clicker_file {
    $correct_id=~tr/a-z/A-Z/;     $correct_id=~tr/a-z/A-Z/;
    $correct_id=~s/\s//gs;     $correct_id=~s/\s//gs;
    $correct_id=~s/^[\#0]+//;     $correct_id=~s/^[\#0]+//;
              $correct_id=~s/[\-\:]//g;
            if ($correct_id) {             if ($correct_id) {
       $correct_ids{$correct_id}='specified';        $correct_ids{$correct_id}='specified';
            }             }
Line 6446  sub interwrite_eval { Line 6449  sub interwrite_eval {
     my ($questiontitles,$responses)=@_;      my ($questiontitles,$responses)=@_;
     my $number=0;      my $number=0;
     my $errormsg='';      my $errormsg='';
       my $skipline=1;
       my $questionnumber=0;
       my %idresponses=();
     foreach my $line (split(/[\n\r]/,$env{'form.upfile'})) {      foreach my $line (split(/[\n\r]/,$env{'form.upfile'})) {
         my %components=&Apache::loncommon::record_sep($line);          my %components=&Apache::loncommon::record_sep($line);
         my @entries=map {$components{$_}} (sort(keys(%components)));          my @entries=map {$components{$_}} (sort(keys(%components)));
         if ($entries[0] eq 'Question') {          if ($entries[1] eq 'Time') { $skipline=0; next; }
             for (my $i=3;$i<$#entries;$i+=6) {          if ($entries[1] eq 'Response') { $skipline=1; }
                 $$questiontitles[$number]=$entries[$i];          next if $skipline;
                 $number++;          if ($entries[0]!=$questionnumber) {
             }             $questionnumber=$entries[0];
         }             $$questiontitles[$number]=&mt('Question [_1]',$questionnumber);
         if ($entries[0]=~/^\#/) {             $number++;
             my $id=$entries[0];  
             my @idresponses;  
             $id=~s/^[\#0]+//;  
             for (my $i=0;$i<$number;$i++) {  
                 my $idx=3+$i*6;  
                 push(@idresponses,$entries[$idx]);  
             }  
             $$responses{$id}=join(',',@idresponses);  
         }          }
           my $id=$entries[4];
           $id=~s/^[\#0]+//;
           $id=~s/^v\d*\://i;
           $id=~s/[\-\:]//g;
           $idresponses{$id}[$number]=$entries[6];
       }
       foreach my $id (keys %idresponses) {
          $$responses{$id}=join(',',@{$idresponses{$id}});
          $$responses{$id}=~s/^\s*\,//;
     }      }
     return ($errormsg,$number);      return ($errormsg,$number);
 }  }
Line 6521  ENDHEADER Line 6528  ENDHEADER
     my $pincorrect=$env{'form.pincorrect'};      my $pincorrect=$env{'form.pincorrect'};
     my $storecount=0;      my $storecount=0;
     foreach my $key (keys(%env)) {      foreach my $key (keys(%env)) {
          my $user='';
        if ($key=~/^form\.student\:(.*)$/) {         if ($key=~/^form\.student\:(.*)$/) {
           my $user=$1;            $user=$1;
          }
          if ($key=~/^form\.unknown\:(.*)$/) {
             my $id=$1;
             if (($env{'form.uname'.$id}) && ($env{'form.udom'.$id})) {
                $user=$env{'form.uname'.$id}.':'.$env{'form.udom'.$id};
             }
          }
          if ($user) { 
           my @answer=split(/\,/,$env{$key});            my @answer=split(/\,/,$env{$key});
           my $sum=0;            my $sum=0;
           for (my $i=0;$i<$number;$i++) {            for (my $i=0;$i<$number;$i++) {
Removed from v.1.419  
changed lines
  Added in v.1.421

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