|
version 1.188, 2017/08/11 00:24:53
|
version 1.189, 2017/08/11 18:58:16
|
|
Line 1127 sub print_upload_manager_form {
|
Line 1127 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 4114 sub print_first_users_upload_form {
|
Line 4116 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'}); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonuserutils.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface