|
version 1.363, 2006/05/08 18:54:00
|
version 1.365, 2006/05/09 14:38:09
|
|
Line 3165 table#LC_top_nav td a, div#LC_top_nav a
|
Line 3165 table#LC_top_nav td a, div#LC_top_nav a
|
| color: $font; |
color: $font; |
| font-family: $sans; |
font-family: $sans; |
| } |
} |
| |
table#LC_top_nav td.LC_top_nav_logo { |
| |
background: $tabbg; |
| |
text-align: right; |
| |
} |
| table#LC_breadcrumbs td { |
table#LC_breadcrumbs td { |
| background: $tabbg; |
background: $tabbg; |
| color: $font; |
color: $font; |
|
Line 3816 can be sent to &get_group_settings() to
|
Line 3820 can be sent to &get_group_settings() to
|
| ############################################### |
############################################### |
| |
|
| sub coursegroups { |
sub coursegroups { |
| my ($curr_groups,$cdom,$cnum,$group) = @_; |
my ($cdom,$cnum,$group) = @_; |
| my $numgroups; |
|
| if (!defined($cdom) || !defined($cnum)) { |
if (!defined($cdom) || !defined($cnum)) { |
| my $cid = $env{'request.course.id'}; |
my $cid = $env{'request.course.id'}; |
| |
|
| |
return if (!defined($cid)); |
| |
|
| $cdom = $env{'course.'.$cid.'.domain'}; |
$cdom = $env{'course.'.$cid.'.domain'}; |
| $cnum = $env{'course.'.$cid.'.num'}; |
$cnum = $env{'course.'.$cid.'.num'}; |
| } |
} |
| %{$curr_groups} = &Apache::lonnet::get_coursegroups($cdom,$cnum,$group); |
my %curr_groups = &Apache::lonnet::get_coursegroups($cdom,$cnum,$group); |
| my ($tmp) = keys(%{$curr_groups}); |
my ($tmp) = keys(%curr_groups); |
| if ($tmp=~/^error:/) { |
if ($tmp=~/^(con_lost|no_such_host|error: [^2] )/) { |
| unless ($tmp eq 'error: 2 tie(GDBM) Failed while attempting dump') { |
undef(%curr_groups); |
| &logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'. |
&logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'.$cdom); |
| $cdom); |
} elsif ($tmp=~/^error: 2 /) { |
| } |
undef(%curr_groups); |
| $numgroups = 0; |
|
| } else { |
|
| $numgroups = keys(%{$curr_groups}); |
|
| } |
} |
| return $numgroups; |
return %curr_groups; |
| } |
} |
| |
|
| ############################################### |
############################################### |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface