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

Diff for /loncom/interface/lonuserutils.pm between versions 1.183.2.1 and 1.184.2.1

version 1.183.2.1, 2020/10/15 13:47:45 version 1.184.2.1, 2017/11/01 02:51:07
Line 1121  sub print_upload_manager_form { Line 1121  sub print_upload_manager_form {
     if (!$env{'form.datatoken'}) {      if (!$env{'form.datatoken'}) {
         $datatoken=&Apache::loncommon::upfile_store($r);          $datatoken=&Apache::loncommon::upfile_store($r);
     } else {      } else {
         $datatoken=$env{'form.datatoken'};          $datatoken=&Apache::loncommon::valid_datatoken($env{'form.datatoken'});
         &Apache::loncommon::load_tmp_file($r);          if ($datatoken ne '') {
               &Apache::loncommon::load_tmp_file($r,$datatoken);
           }
     }      }
     my @records=&Apache::loncommon::upfile_record_sep();      my @records=&Apache::loncommon::upfile_record_sep();
     if($env{'form.noFirstLine'}){      if($env{'form.noFirstLine'}){
Line 2757  END Line 2759  END
                .'<input type="checkbox" name="userwin" value="1"'.$checkwin.' />'.$lt{'owin'}                 .'<input type="checkbox" name="userwin" value="1"'.$checkwin.' />'.$lt{'owin'}
                .'</label></span></td></tr></table></fieldset></div>';                 .'</label></span></td></tr></table></fieldset></div>';
         }          }
         $output .= "\n".'<br clear="all" />'."\n".          $output .= "\n".'<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n".
                   &Apache::loncommon::start_data_table().                    &Apache::loncommon::start_data_table().
                   &Apache::loncommon::start_data_table_header_row();                    &Apache::loncommon::start_data_table_header_row();
         if ($mode eq 'autoenroll') {          if ($mode eq 'autoenroll') {
Line 4107  sub print_first_users_upload_form { Line 4109  sub print_first_users_upload_form {
 # ================================================= Drop/Add from uploaded file  # ================================================= Drop/Add from uploaded file
 sub upfile_drop_add {  sub upfile_drop_add {
     my ($r,$context,$permission,$showcredits) = @_;      my ($r,$context,$permission,$showcredits) = @_;
     &Apache::loncommon::load_tmp_file($r);      my $datatoken = &Apache::loncommon::valid_datatoken($env{'form.datatoken'});
       if ($datatoken ne '') {
           &Apache::loncommon::load_tmp_file($r,$datatoken);
       }
     my @userdata=&Apache::loncommon::upfile_record_sep();      my @userdata=&Apache::loncommon::upfile_record_sep();
     if($env{'form.noFirstLine'}){shift(@userdata);}      if($env{'form.noFirstLine'}){shift(@userdata);}
     my @keyfields = split(/\,/,$env{'form.keyfields'});      my @keyfields = split(/\,/,$env{'form.keyfields'});
Line 4786  sub upfile_drop_add { Line 4791  sub upfile_drop_add {
                                     }                                      }
                                 }                                  }
                             }                              }
                         }                              if (!$multiple) {
                         if (!$multiple) {                                  ($userresult,$authresult,$roleresult,$idresult) = 
                             ($userresult,$authresult,$roleresult,$idresult) =                                       &modifyuserrole($context,$setting,
                                 &modifyuserrole($context,$setting,                                                      $changeauth,$cid,$userdomain,$username, 
                                                 $changeauth,$cid,$userdomain,$username,                                                       $id,$amode,$password,$fname,
                                                 $id,$amode,$password,$fname,                                                      $mname,$lname,$gen,$singlesec,
                                                 $mname,$lname,$gen,$singlesec,                                                      $env{'form.forceid'},$desiredhost,
                                                 $env{'form.forceid'},$desiredhost,                                                      $email,$role,$enddate,$startdate,
                                                 $email,$role,$enddate,$startdate,                                                      $checkid,$inststatus);
                                                 $checkid,$inststatus);                              }
                         }                          }
                     }                      }
                     if ($multiple) {                      if ($multiple) {
Removed from v.1.183.2.1  
changed lines
  Added in v.1.184.2.1

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