version 1.37, 2006/04/07 21:56:02
|
version 1.39, 2006/05/09 14:38:10
|
Line 70 sub handler {
|
Line 70 sub handler {
|
if ($caller eq 'grppg') { |
if ($caller eq 'grppg') { |
$marker =~ s/\W//g; |
$marker =~ s/\W//g; |
$namespace = 'grppage_'.$marker; |
$namespace = 'grppage_'.$marker; |
my %curr_groups; |
my %curr_groups = &Apache::loncommon::coursegroups($dom,$crs,$marker); |
if (!&Apache::loncommon::coursegroups(\%curr_groups,$dom,$crs,$marker)) { |
if (!%curr_groups) { |
&Apache::loncommon::simple_error_page($r,'','Invalid group name'); |
&Apache::loncommon::simple_error_page($r,'','Invalid group name'); |
return OK; |
return OK; |
} |
} |
Line 100 sub handler {
|
Line 100 sub handler {
|
# ------------------------------------------------------------ Get query string |
# ------------------------------------------------------------ Get query string |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']); |
($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']); |
# ----------------------------------------------------- Force menu registration |
|
my $addentries=''; |
|
if ($env{'form.register'}) { |
|
$addentries=' onLoad="'.&Apache::lonmenu::loadevents(). |
|
'" onUnload="'.&Apache::lonmenu::unloadevents().'"'; |
|
} |
|
# --------------------------------------------------------------- Force Student |
# --------------------------------------------------------------- Force Student |
my $forcestudent=''; |
my $forcestudent=''; |
if ($env{'form.forcestudent'} || $target eq 'tex' ) { $forcestudent='student'; }; |
if ($env{'form.forcestudent'} || $target eq 'tex' ) { $forcestudent='student'; }; |
my $forceedit=''; |
my $forceedit=''; |
if ($env{'form.forceedit'}) { $forceedit='edit'; } |
if ($env{'form.forceedit'}) { $forceedit='edit'; } |
|
|
|
|
my %syllabus=&Apache::lonnet::dump($namespace,$dom,$crs); |
my %syllabus=&Apache::lonnet::dump($namespace,$dom,$crs); |
Line 125 sub handler {
|
Line 119 sub handler {
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page($title,undef, |
&Apache::loncommon::start_page($title,undef, |
{'function' => $forcestudent, |
{'function' => $forcestudent, |
'add_entries' => $addentries, |
|
'domain' => $dom, |
'domain' => $dom, |
'force_register' => |
'force_register' => |
$env{'form.register'},}); |
$env{'form.register'},}); |