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

[albertel]

albertel		Fri Apr 20 17:39:39 2007 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - comment out debug code
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.530 loncom/interface/loncommon.pm:1.531
--- loncom/interface/loncommon.pm:1.530	Thu Apr 19 21:17:12 2007
+++ loncom/interface/loncommon.pm	Fri Apr 20 17:39:39 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.530 2007/04/20 01:17:12 albertel Exp $
+# $Id: loncommon.pm,v 1.531 2007/04/20 21:39:39 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3165,7 +3165,7 @@
 ###############################################
 sub determinedomain {
     my $domain=shift;
-   if (! $domain) {
+    if (! $domain) {
         # Determine domain if we have not been given one
         $domain = $Apache::lonnet::perlvar{'lonDefDomain'};
         if ($env{'user.domain'}) { $domain=$env{'user.domain'}; }
@@ -4432,7 +4432,7 @@
     my $bgcolor  = $args->{'bgcolor'}  || &designparm($function.'.pgbg',$domain);
     my $url = join(':',$env{'user.name'},$env{'user.domain'},
 		   $Apache::lonnet::perlvar{'lonVersion'},
-		   time(),
+		   #time(),
 		   $env{'environment.color.timestamp'},
 		   $function,$domain,$bgcolor);