[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[albertel]

albertel		Tue Apr 25 16:48:38 2006 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - this should actaully work now
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.353 loncom/interface/loncommon.pm:1.354
--- loncom/interface/loncommon.pm:1.353	Tue Apr 25 11:18:47 2006
+++ loncom/interface/loncommon.pm	Tue Apr 25 16:48:38 2006
@@ -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 @@
 	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; }