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

Diff for /loncom/homework/structuretags.pm between versions 1.479 and 1.482

version 1.479, 2010/12/18 22:49:33 version 1.482, 2010/12/31 00:58:10
Line 168  sub file_delchk_js { Line 168  sub file_delchk_js {
     return <<"ENDSCRIPT";      return <<"ENDSCRIPT";
 <script type="text/javascript">  <script type="text/javascript">
 function file_deletion_check(formname) {  function file_deletion_check(formname) {
     var str = new RegExp("^HWFILE.+_delete\$");  
     var delfilecount = 0;  
     var elemnum = formname.elements.length;      var elemnum = formname.elements.length;
     if (elemnum == 0) {      if (elemnum == 0) {
         return true;          return true;
     }      }
     for (i=0; i<formname.elements.length; i++) {      var str = new RegExp("^HWFILE.+_delete\$");
       var delboxes = new Array();
       for (var i=0; i<formname.elements.length; i++) {
         var id = formname.elements[i].id;          var id = formname.elements[i].id;
         if (id != '') {          if (id != '') {
             if (str.test(id)) {              if (str.test(id)) {
                 if (formname.elements[i].type == 'checkbox') {                  if (formname.elements[i].type == 'checkbox') {
                     if (formname.elements[i].checked) {                      if (formname.elements[i].checked) {
                         delfilecount ++;                          delboxes.push(id);
                     }                      }
                 }                  }
             }              }
         }          }
     }      }
     if (delfilecount > 0) {      if (delboxes.length > 0) {
         if (confirm("$delfilewarn")) {          if (confirm("$delfilewarn")) {
             return true;              return true;
         } else {          } else {
               for (var j=0; j<delboxes.length; j++) {
                   formname.elements[delboxes[j]].checked = false;
               }
             return false;              return false;
         }          }
     } else {      } else {
Line 393  sub setup_rndseed { Line 396  sub setup_rndseed {
             if ($tries) {              if ($tries) {
                 $rndseed += $tries;                  $rndseed += $tries;
             }              }
               $env{'form.'.$Apache::inputtags::part.'.rndseed'}=$rndseed;
         }          }
  if ( ($env{'form.resetdata'} eq &mt('New Problem Variation')   if ( ($env{'form.resetdata'} eq &mt('New Problem Variation')
       && $env{'form.submitted'} eq 'yes')  ||        && $env{'form.submitted'} eq 'yes')  ||
Line 717  sub finalize_storage { Line 721  sub finalize_storage {
       $namespace,'',$domain,$name);        $namespace,'',$domain,$name);
     &Apache::lonxml::debug('Construct Store return message:'.$result);      &Apache::lonxml::debug('Construct Store return message:'.$result);
  } else {   } else {
             if ($Apache::lonhomework::type eq 'randomizetry') {  
                 foreach my $key (keys(%Apache::lonhomework::results)) {  
                     if ($key =~ /^resource\.([^\.]+)\.tries/) {  
                         $Apache::lonhomework::results{'resource.'.$1.'.rndseed'}=$env{'form.'.$1.'.rndseed'};  
                     }  
                 }  
             }  
     $result=&Apache::lonnet::cstore(\%Apache::lonhomework::results,      $result=&Apache::lonnet::cstore(\%Apache::lonhomework::results,
     $symb,$courseid,$domain,$name);      $symb,$courseid,$domain,$name);
     &Apache::lonxml::debug('Store return message:'.$result);      &Apache::lonxml::debug('Store return message:'.$result);
Line 804  sub store_aggregates { Line 801  sub store_aggregates {
                             $cdomain,$cname);                              $cdomain,$cname);
     }      }
     if (keys(%anoncounter) > 0) {      if (keys(%anoncounter) > 0) {
         &Apache::lonnet::cinc('nohist_anonsurveys',\%anoncounter,          &Apache::lonnet::cput('nohist_anonsurveys',\%anoncounter,
                             $cdomain,$cname);                                $cdomain,$cname);
     }      }
     if (keys(%randtrycounter) > 0) {      if (keys(%randtrycounter) > 0) {
         &Apache::lonnet::cinc('nohist_randomizetry',\%randtrycounter,          &Apache::lonnet::cput('nohist_randomizetry',\%randtrycounter,
                             $cdomain,$cname);                                $cdomain,$cname);
     }      }
 }  }
   
Removed from v.1.479  
changed lines
  Added in v.1.482

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