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

Diff for /loncom/interface/lonaboutme.pm between versions 1.12 and 1.13

version 1.12, 2003/02/10 20:03:13 version 1.13, 2003/02/28 16:16:59
Line 46  sub handler { Line 46  sub handler {
 <html>  <html>
 <head>  <head>
 <title>The LearningOnline Network with CAPA</title>  <title>The LearningOnline Network with CAPA</title>
 </head>  
 ENDDOCUMENT  ENDDOCUMENT
     my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);      my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);
 # Is this even a user?  # Is this even a user?
Line 60  ENDDOCUMENT Line 59  ENDDOCUMENT
        'bbb_aboutme'       => 'About Me',         'bbb_aboutme'       => 'About Me',
        'ccc_webreferences' => 'Web References');         'ccc_webreferences' => 'Web References');
   
 # --------------------------------------------------------------- Force Student  # ------------------------------------------------------------ Get Query String
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
                                        ($ENV{'QUERY_STRING'},['forcestudent']);                              ($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
     my $forcestudent='';      my $forcestudent='';
     if ($ENV{'form.forcestudent'}) { $forcestudent='student'; };      if ($ENV{'form.forcestudent'}) { $forcestudent='student'; };
                 
 # --------------------------------------- There is such a user, get environment  # --------------------------------------- There is such a user, get environment
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);      my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
     $r->print(&Apache::loncommon::bodytag      $r->print('</head>'.&Apache::loncommon::bodytag
                            ("Personal Information",$forcestudent,'','',$cdom));                    ("Personal Information",$forcestudent,$addentries,'',$cdom));
     $r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');      $r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');
     if ($courseenv{'nickname'}) {      if ($courseenv{'nickname'}) {
        $r->print(         $r->print(
Removed from v.1.12  
changed lines
  Added in v.1.13

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