loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2001/01/01 15:43:46	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.'_'.$$;
{	{
Line 499 ENDPICK	Line 502 ENDPICK
unless ($classlst=~/^error\:/) {	unless ($classlst=~/^error\:/) {
map {	map {
my ($name,$value)=split(/\=/,$_);	my ($name,$value)=split(/\=/,$_);
my ($end,$start)=split(/\_/,	my ($end,$start)=split(/\:/,
&Apache::lonnet::unescape($value));	&Apache::lonnet::unescape($value));
my $active=1;	my $active=1;
if (($end) && ($now>$end)) { $active=0; }	if (($end) && ($now>$end)) { $active=0; }