version 1.51, 2007/07/13 00:29:21
|
version 1.52, 2007/09/10 19:22:22
|
Line 91 sub handler {
|
Line 91 sub handler {
|
my %curr_group = (); |
my %curr_group = (); |
my %groupinfo = (); |
my %groupinfo = (); |
if ($db_name =~ /^grppage_/) { |
if ($db_name =~ /^grppage_/) { |
my ($group)=(split(m{/},$r->uri))[4]; |
$group = (split(m{/},$r->uri))[4]; |
$group =~ s/\W//g; |
$group =~ s/\W//g; |
my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group); |
my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group); |
if (!%curr_groups) { |
if (!%curr_groups) { |