version 1.530, 2007/04/20 01:17:12
|
version 1.534, 2007/05/13 06:34:42
|
Line 1467 sub home_server_option_list {
|
Line 1467 sub home_server_option_list {
|
|
|
=pod |
=pod |
|
|
|
=back |
|
|
=cut |
=cut |
|
|
############################################################### |
############################################################### |
Line 2912 sub blockcheck {
|
Line 2914 sub blockcheck {
|
} |
} |
my $no_ownblock = 0; |
my $no_ownblock = 0; |
my $no_userblock = 0; |
my $no_userblock = 0; |
if ($otheruser) { |
if ($otheruser && $activity ne 'com') { |
# Check if current user has 'evb' priv for this |
# Check if current user has 'evb' priv for this |
if (defined($own_courses{$course})) { |
if (defined($own_courses{$course})) { |
foreach my $sec (keys(%{$own_courses{$course}})) { |
foreach my $sec (keys(%{$own_courses{$course}})) { |
Line 3165 Returns: Determines which domain should
|
Line 3167 Returns: Determines which domain should
|
############################################### |
############################################### |
sub determinedomain { |
sub determinedomain { |
my $domain=shift; |
my $domain=shift; |
if (! $domain) { |
if (! $domain) { |
# Determine domain if we have not been given one |
# Determine domain if we have not been given one |
$domain = $Apache::lonnet::perlvar{'lonDefDomain'}; |
$domain = $Apache::lonnet::perlvar{'lonDefDomain'}; |
if ($env{'user.domain'}) { $domain=$env{'user.domain'}; } |
if ($env{'user.domain'}) { $domain=$env{'user.domain'}; } |
Line 3715 form, .inline { display: inline; }
|
Line 3717 form, .inline { display: inline; }
|
.LC_diff_removed { |
.LC_diff_removed { |
color: red; |
color: red; |
} |
} |
|
|
|
.LC_info, |
.LC_success, |
.LC_success, |
.LC_diff_added { |
.LC_diff_added { |
color: green; |
color: green; |
Line 3723 form, .inline { display: inline; }
|
Line 3727 form, .inline { display: inline; }
|
border: 0px; |
border: 0px; |
} |
} |
|
|
|
.LC_internal_info { |
|
color: #999; |
|
} |
|
|
table.LC_pastsubmission { |
table.LC_pastsubmission { |
border: 1px solid black; |
border: 1px solid black; |
margin: 2px; |
margin: 2px; |
Line 4432 sub headtag {
|
Line 4440 sub headtag {
|
my $bgcolor = $args->{'bgcolor'} || &designparm($function.'.pgbg',$domain); |
my $bgcolor = $args->{'bgcolor'} || &designparm($function.'.pgbg',$domain); |
my $url = join(':',$env{'user.name'},$env{'user.domain'}, |
my $url = join(':',$env{'user.name'},$env{'user.domain'}, |
$Apache::lonnet::perlvar{'lonVersion'}, |
$Apache::lonnet::perlvar{'lonVersion'}, |
time(), |
#time(), |
$env{'environment.color.timestamp'}, |
$env{'environment.color.timestamp'}, |
$function,$domain,$bgcolor); |
$function,$domain,$bgcolor); |
|
|