loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8, 2001/01/01 17:30:00	version 1.9, 2001/01/15 14:51:18
Line 15	Line 15
# 12/08,12/12 Gerd Kortemeyer)	# 12/08,12/12 Gerd Kortemeyer)
#	#
# 12/26,12/27,12/28,	# 12/26,12/27,12/28,
# 01/01/01 Gerd Kortemeyer	# 01/01/01,01/15 Gerd Kortemeyer

package Apache::londropadd;	package Apache::londropadd;

Line 80 ENDUPFORM	Line 80 ENDUPFORM
# ------------------------------------------------------------------- Phase two	# ------------------------------------------------------------------- Phase two
if ($ENV{'form.phase'} eq 'two') {	if ($ENV{'form.phase'} eq 'two') {
if ($ENV{'form.fileupload'}) {	if ($ENV{'form.fileupload'}) {
	$ENV{'form.upfile'}=~s/\r/\n/gs;
	$ENV{'form.upfile'}=~s/\f/\n/gs;
	$ENV{'form.upfile'}=~s/\n+/\n/gs;
my $datatoken=$ENV{'user.name'}.'_'.$ENV{'user.domain'}.	my $datatoken=$ENV{'user.name'}.'_'.$ENV{'user.domain'}.
'_enroll_'.$ENV{'request.course.id'}.'_'.time.'_'.$$;	'_enroll_'.$ENV{'request.course.id'}.'_'.time.'_'.$$;
{	{