--- loncom/interface/loncommon.pm 2006/04/25 15:18:47 1.353 +++ loncom/interface/loncommon.pm 2006/04/25 20:48:38 1.354 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.353 2006/04/25 15:18:47 albertel Exp $ +# $Id: loncommon.pm,v 1.354 2006/04/25 20:48:38 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2616,7 +2616,7 @@ sub findallcourses { if ( $key=~m{^user\.role\.(\w+)\./(\w+)/(\w+)} ) { my ($role,$domain,$id) = ($1,$2,$3); next if ($role eq 'ca' || $role eq 'aa'); - my ($starttime,$endtime)=$env{$key}; + my ($starttime,$endtime)=split(/\./,$env{$key}); my $active=1; if ($starttime) { if ($now<$starttime) { $active=0; }