Return to londropadd.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.7, 2001/01/01 15:43:46 | version 1.8, 2001/01/01 17:30:00 |
---|---|
Line 499 ENDPICK | Line 499 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; } |