--- loncom/interface/loncss.pm	2006/06/28 16:04:34	1.3
+++ loncom/interface/loncss.pm	2007/10/02 01:10:27	1.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # gerenates a lon-capa CSS response
 #
-# $Id: loncss.pm,v 1.3 2006/06/28 16:04:34 albertel Exp $
+# $Id: loncss.pm,v 1.7 2007/10/02 01:10:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,7 +32,7 @@ use Apache::lonnet;
 use Apache::loncommon;
 use Apache::Constants qw(:common);
 use POSIX qw(strftime);
-use CGI::Cookie();
+use LONCAPA;
 
 sub handler {
     my ($r) = @_;
@@ -41,24 +41,16 @@ sub handler {
     $url =~ s{^/adm/css/}{};
     $url =~ s{ \.css $ }{}xms; 
 	      
-    my ($uname,$udom,$timestamp,$function,$domain,$bgcolor) = 
+    my ($uname,$udom,$version,$timestamp,$function,$domain,$bgcolor) = 
 	split(':',$url);
 
     $r->content_type('text/css');
-    my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime(time+600));
+    my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime(time+86400));
     $r->header_out("Expires" => $date);
 
-    my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
-    my $lonidsdir=$r->dir_config('lonIDsDir');
-
-    my $handle;
-    if ($cookies{'lonID'}) {
-	$handle=$cookies{'lonID'}->value;
-        $handle=~s/\W//g;
-    }
-
-    if ($handle ne '' 
-	&& -e $r->dir_config('lonIDsDir')."/$handle.id") {
+    
+    my $handle = &Apache::lonnet::check_for_valid_session($r);
+    if ($handle ne '' ) {
 	&Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'),
 						 $handle);
     }