[BACK]Return to lonsimplepage.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsimplepage.pm between versions 1.99 and 1.100

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>");
Removed from v.1.99  
changed lines
  Added in v.1.100

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>