version 1.64, 2012/11/08 22:01:00
|
version 1.66, 2012/12/07 17:15:56
|
Line 78 sub handler {
|
Line 78 sub handler {
|
|
|
# ------------------------------------------------------------ Get Query String |
# ------------------------------------------------------------ Get Query String |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forceedit','register', |
($ENV{'QUERY_STRING'},['forceedit','register','todocs', |
'origpage','group','ref']); |
'origpage','group','ref']); |
# ----------------------------------------------------- Force menu registration |
# ----------------------------------------------------- Force menu registration |
my %addentries; |
my %addentries; |
Line 131 sub handler {
|
Line 131 sub handler {
|
} else { |
} else { |
$course_or_group="Group"; |
$course_or_group="Group"; |
} |
} |
|
my $registered; |
if ($group ne '' && $env{'form.group'} eq $group) { |
if ($group ne '' && $env{'form.group'} eq $group) { |
|
unless ($env{'form.ref'} eq 'grouplist') { |
|
$registered = $env{'form.register'}; |
|
} |
my $gpterm = &Apache::loncommon::group_term(); |
my $gpterm = &Apache::loncommon::group_term(); |
my $ucgpterm = $gpterm; |
my $ucgpterm = $gpterm; |
$ucgpterm =~ s/^(\w)/uc($1)/e; |
$ucgpterm =~ s/^(\w)/uc($1)/e; |
Line 141 sub handler {
|
Line 145 sub handler {
|
if ((ref($groupboards) eq 'ARRAY') && (@{$groupboards} > 0)) { |
if ((ref($groupboards) eq 'ARRAY') && (@{$groupboards} > 0)) { |
$boardtitle = $$boards{$$groupboards[0]}{'title'}; |
$boardtitle = $$boards{$$groupboards[0]}{'title'}; |
} |
} |
$boardurl .= '?register=1&group='.$group; |
$boardurl .= '?group='.$group; |
$brcrum = |
if ($registered) { |
&groupboard_breadcrumbs($dom,$crs,$group,$refarg,$gpterm, |
$boardurl .= '&register='.$env{'form.register'}; |
$ucgpterm,$grp_desc,$boardurl,$boardtitle); |
} else { |
|
$brcrum = |
|
&groupboard_breadcrumbs($dom,$crs,$group,$refarg,$gpterm, |
|
$ucgpterm,$grp_desc,$boardurl, |
|
$boardtitle); |
|
} |
} else { |
} else { |
|
$registered = $env{'form.register'}; |
$brcrum = []; |
$brcrum = []; |
} |
} |
my $start_page = |
my $start_page = |
Line 154 sub handler {
|
Line 164 sub handler {
|
'domain' => $dom, |
'domain' => $dom, |
'bread_crumbs' => $brcrum, |
'bread_crumbs' => $brcrum, |
'group' => $group, |
'group' => $group, |
'force_register' => |
'force_register' => $registered} |
$env{'form.register'}}); |
); |
$r->print($start_page); |
$r->print($start_page); |
} |
} |
my ($allowed); |
my ($allowed); |