version 1.99, 2012/11/08 21:15:02
|
version 1.100, 2012/11/17 00:05:50
|
Line 139 sub handler {
|
Line 139 sub handler {
|
my %syllabus=&Apache::lonnet::dump($db_name,$dom,$crs); |
my %syllabus=&Apache::lonnet::dump($db_name,$dom,$crs); |
|
|
# --------------------------------------- There is such a user, get environment |
# --------------------------------------- There is such a user, get environment |
my ($group_view_perm,$group_edit_perm,$group_home_view,$group_home_edit, |
my ($registered,$group_view_perm,$group_edit_perm,$group_home_view, |
$has_group_access); |
$group_home_edit,$has_group_access); |
my $brcrum = []; |
my $brcrum = []; |
if ($group ne '') { |
if ($group eq '') { |
|
$registered = $env{'form.register'}; |
|
} else { |
|
unless ($env{'form.ref'} eq 'grouplist') { |
|
$registered = $env{'form.register'}; |
|
} |
$group_view_perm = |
$group_view_perm = |
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}. |
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}. |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); |
Line 157 sub handler {
|
Line 162 sub handler {
|
$group_home_edit || &Apache::longroup::check_group_access($group)) { |
$group_home_edit || &Apache::longroup::check_group_access($group)) { |
$has_group_access = 1; |
$has_group_access = 1; |
if (($env{'form.ref'} eq 'grouplist') && ($target ne 'tex') && |
if (($env{'form.ref'} eq 'grouplist') && ($target ne 'tex') && |
(!$env{'form.register'})) { |
(!$registered)) { |
$brcrum = &grouppage_breadcrumbs($dom,$crs,$group,$group_desc); |
$brcrum = &grouppage_breadcrumbs($dom,$crs,$group,$group_desc); |
} |
} |
} |
} |
} |
} |
|
|
if ($target ne 'tex') { |
if ($target ne 'tex') { |
my $title = 'Simple Course Page'; |
my $title = ($group eq '')? 'Simple Course Page':'Simple Group Page'; |
if ($group ne '') { |
|
$title = 'Simple Group Page'; |
|
} |
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page($title,undef, |
&Apache::loncommon::start_page($title,undef, |
{'domain' => $dom, |
{'domain' => $dom, |
'group' => $group, |
'group' => $group, |
'bread_crumbs' => $brcrum, |
'bread_crumbs' => $brcrum, |
'force_register' => $env{'form.register'}, |
'force_register' => $registered, |
}); |
}); |
$r->print($start_page); |
$r->print($start_page); |
} |
} |
Line 286 sub handler {
|
Line 288 sub handler {
|
if ($env{'form.grade_target'} ne 'tex') { |
if ($env{'form.grade_target'} ne 'tex') { |
#editbox for title |
#editbox for title |
$r->print('<form method="post" action="" enctype="multipart/form-data">'."\n". |
$r->print('<form method="post" action="" enctype="multipart/form-data">'."\n". |
'<input type="hidden" register="'.$env{'form.register'}.'" />'); |
'<input type="hidden" register="'.$registered.'" />'); |
&Apache::lontemplate::print_start_template($r,&mt('Title'),'LC_Box'); |
&Apache::lontemplate::print_start_template($r,&mt('Title'),'LC_Box'); |
$r->print($titletext); |
$r->print($titletext); |
$r->print("<br /><div>"); |
$r->print("<br /><div>"); |