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; } |