--- loncom/interface/loncommon.pm 2007/04/20 01:17:12 1.530 +++ loncom/interface/loncommon.pm 2007/05/02 01:33:48 1.532 @@ -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.532 2007/05/02 01:33:48 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3165,7 +3165,7 @@ Returns: Determines which domain should ############################################### 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'}; } @@ -3715,6 +3715,8 @@ form, .inline { display: inline; } .LC_diff_removed { color: red; } + +.LC_info, .LC_success, .LC_diff_added { color: green; @@ -3723,6 +3725,10 @@ form, .inline { display: inline; } border: 0px; } +.LC_internal_info { + color: #999; +} + table.LC_pastsubmission { border: 1px solid black; margin: 2px; @@ -4432,7 +4438,7 @@ sub headtag { 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);