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

[albertel]

albertel		Wed Sep  6 15:08:34 2006 EDT

  Modified files:              
    /loncom/interface	loncss.pm loncommon.pm 
  Log:
  - add the lon capa version info to the css url
  
  
Index: loncom/interface/loncss.pm
diff -u loncom/interface/loncss.pm:1.3 loncom/interface/loncss.pm:1.4
--- loncom/interface/loncss.pm:1.3	Wed Jun 28 12:04:34 2006
+++ loncom/interface/loncss.pm	Wed Sep  6 15:08:33 2006
@@ -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.4 2006/09/06 19:08:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,7 +41,7 @@
     $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');
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.449 loncom/interface/loncommon.pm:1.450
--- loncom/interface/loncommon.pm:1.449	Tue Sep  5 16:42:18 2006
+++ loncom/interface/loncommon.pm	Wed Sep  6 15:08:33 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.449 2006/09/05 20:42:18 albertel Exp $
+# $Id: loncommon.pm,v 1.450 2006/09/06 19:08:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3703,6 +3703,8 @@
     my $bgcolor  = $args->{'bgcolor'}  || &designparm($function.'.pgbg',$domain);
     my $url = join(':',$env{'user.name'},$env{'user.domain'},
 		   #time(),
+		   $Apache::lonnet::perlvar{'lonVersion'},
+
 		   $env{'environment.color.timestamp'},
 		   $function,$domain,$bgcolor);