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

Diff for /loncom/interface/lonaboutme.pm between versions 1.40 and 1.42

version 1.40, 2006/03/21 21:14:43 version 1.42, 2006/04/10 19:59:53
Line 36  use Apache::lontexconvert; Line 36  use Apache::lontexconvert;
 use Apache::lonfeedback;  use Apache::lonfeedback;
 use Apache::lonrss();  use Apache::lonrss();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonmsgdisplay();
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 63  sub handler { Line 64  sub handler {
 # ------------------------------------------------------------ Get Query String  # ------------------------------------------------------------ Get Query String
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
                             ($ENV{'QUERY_STRING'},['forcestudent','register']);                              ($ENV{'QUERY_STRING'},['forcestudent','register']);
 # ----------------------------------------------------- Force menu registration  
     my $addentries='';  
     if ($env{'form.register'}) {  
        $addentries=' onLoad="'.&Apache::lonmenu::loadevents().  
    '" onUnload="'.&Apache::lonmenu::unloadevents().'"';  
        $r->print(&Apache::lonmenu::registerurl(1));  
     }  
 # --------------------------------------------------------------- Force Student  # --------------------------------------------------------------- Force Student
     my $forcestudent='';      my $forcestudent='';
     if ($env{'form.forcestudent'}) { $forcestudent='student'; };      if ($env{'form.forcestudent'}) { $forcestudent='student'; };
Line 80  sub handler { Line 74  sub handler {
  my $start_page =    my $start_page = 
     &Apache::loncommon::start_page("Personal Information",undef,      &Apache::loncommon::start_page("Personal Information",undef,
    {'function'       => $forcestudent,     {'function'       => $forcestudent,
     'add_entries'    => $addentries,  
     'domain'         => $cdom,      'domain'         => $cdom,
     'force_register' =>      'force_register' =>
  $env{'form.register'},});   $env{'form.register'},});
Line 218  sub handler { Line 211  sub handler {
                           &mt('Shared by course faculty and staff').                            &mt('Shared by course faculty and staff').
                           &Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message").                            &Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message").
 '<br />');  '<br />');
                 &Apache::lonmsg::disfacetoface($r,$cnum,$cdom);                  &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
                 $r->print('<hr />');                  $r->print('<hr />');
                 if (&Apache::lonnet::allowed('vsa',                  if (&Apache::lonnet::allowed('vsa',
                                              $env{'request.course.id'}) ||                                               $env{'request.course.id'}) ||
Line 232  sub handler { Line 225  sub handler {
                 $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));                  $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));
     } else {      } else {
  $r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\');   $r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\');
  &Apache::lonmsg::disfacetoface($r,$cnum,$cdom);   &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
     }      }
         }          }
     }      }
Removed from v.1.40  
changed lines
  Added in v.1.42

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