loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.134, 2016/10/27 21:02:02	version 1.135, 2017/08/11 18:58:16
Line 2945 sub csv_upload_map {	Line 2945 sub csv_upload_map {
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'}) { shift(@records); }	if ($env{'form.noFirstLine'}) { shift(@records); }
Line 2997 sub csvupload_fields {	Line 2999 sub csvupload_fields {

sub csv_upload_assign {	sub csv_upload_assign {
my ($r,$mgr)= @_;	my ($r,$mgr)= @_;
&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 @slotdata = &Apache::loncommon::upfile_record_sep();	my @slotdata = &Apache::loncommon::upfile_record_sep();
if ($env{'form.noFirstLine'}) { shift(@slotdata); }	if ($env{'form.noFirstLine'}) { shift(@slotdata); }
my %fields=&Apache::grades::get_fields();	my %fields=&Apache::grades::get_fields();