--- loncom/interface/lonsimplepage.pm	2012/11/08 21:15:02	1.99
+++ loncom/interface/lonsimplepage.pm	2012/11/17 00:05:50	1.100
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Simple Page Editor
 #
-# $Id: lonsimplepage.pm,v 1.99 2012/11/08 21:15:02 raeburn Exp $
+# $Id: lonsimplepage.pm,v 1.100 2012/11/17 00:05:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -139,10 +139,15 @@ sub handler {
     my %syllabus=&Apache::lonnet::dump($db_name,$dom,$crs);
 
 # --------------------------------------- There is such a user, get environment
-    my ($group_view_perm,$group_edit_perm,$group_home_view,$group_home_edit,
-        $has_group_access);
-    my $brcrum = []; 
-    if ($group ne '') {
+    my ($registered,$group_view_perm,$group_edit_perm,$group_home_view,
+        $group_home_edit,$has_group_access);
+    my $brcrum = [];
+    if ($group eq '') {
+        $registered = $env{'form.register'};
+    } else {
+        unless ($env{'form.ref'} eq 'grouplist') {
+            $registered = $env{'form.register'};
+        }
         $group_view_perm =
                &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.
                ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
@@ -157,23 +162,20 @@ sub handler {
             $group_home_edit || &Apache::longroup::check_group_access($group)) {
             $has_group_access = 1;
             if (($env{'form.ref'} eq 'grouplist') && ($target ne 'tex') &&
-                (!$env{'form.register'})) {
+                (!$registered)) {
                 $brcrum = &grouppage_breadcrumbs($dom,$crs,$group,$group_desc);
             }
         }
     }
 
     if ($target ne 'tex') {
-        my $title = 'Simple Course Page';
-        if ($group ne '') {
-            $title = 'Simple Group Page';
-        }
+        my $title = ($group eq '')? 'Simple Course Page':'Simple Group Page';
         my $start_page =
         &Apache::loncommon::start_page($title,undef,
                        {'domain'         => $dom,
                         'group'          => $group,
                         'bread_crumbs'   => $brcrum,
-                        'force_register' => $env{'form.register'},
+                        'force_register' => $registered,
                        }); 
         $r->print($start_page);
     }
@@ -286,7 +288,7 @@ sub handler {
             if ($env{'form.grade_target'} ne 'tex') {
                 #editbox for title
                 $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');
 				$r->print($titletext);
 				$r->print("<br /><div>");