loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.125.2.3.4.1, 2019/06/24 03:23:36	version 1.125.2.7, 2019/06/22 19:18:28
Line 2686 sub csv_upload_map {	Line 2686 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 2737 sub csvupload_fields {	Line 2739 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();