--- loncom/interface/loncss.pm	2006/09/06 19:08:33	1.4
+++ loncom/interface/loncss.pm	2011/05/27 21:53:41	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # gerenates a lon-capa CSS response
 #
-# $Id: loncss.pm,v 1.4 2006/09/06 19:08:33 albertel Exp $
+# $Id: loncss.pm,v 1.9 2011/05/27 21:53:41 raeburn 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) = @_;
@@ -45,20 +45,13 @@ sub handler {
 	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") {
+    $r->header_out("Cache-Control" =>  "public, no-transform");
+    $r->send_http_header;
+    
+    my $handle = &Apache::lonnet::check_for_valid_session($r);
+    if ($handle ne '' ) {
 	&Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'),
 						 $handle);
     }