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

Diff for /loncom/interface/lonaboutme.pm between versions 1.5 and 1.14

version 1.5, 2002/09/13 19:40:48 version 1.14, 2003/03/03 13:03:58
Line 33  use Apache::Constants qw(:common); Line 33  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lontexconvert;  use Apache::lontexconvert;
   use Apache::lonfeedback;
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 45  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?
     if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {      if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
  $r->print('<body>No user information available</body>');   $r->print('</head><body>No user information available</body></html>');
         return OK;          return OK;
     }      }
 # --------------------------------------------------------- The syllabus fields  # --------------------------------------------------------- The syllabus fields
Line 59  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><h3>'.                     $ENV{'form.register'}));
               $Apache::lonnet::domaindescription{$cdom}.'</h3>'.      $r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');
       if ($courseenv{'nickname'}) {
          $r->print(
            '<h2>&quot;'.$courseenv{'nickname'}.
            '&quot;</h2>');
       }
       $r->print('<h3>'.$Apache::lonnet::domaindescription{$cdom}.'</h3>'.
     '<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).      '<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).
     '</p>');      '</p>');
     my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);      my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);
Line 84  ENDDOCUMENT Line 98  ENDDOCUMENT
     
        if ($allowed) {         if ($allowed) {
           $r->print('<p><b>Privacy Note:</b> The information you submit can be viewed by anybody who is logged into LON-CAPA. Do not provide information that you are not ready to share publically.</p>'.            $r->print('<p><b>Privacy Note:</b> The information you submit can be viewed by anybody who is logged into LON-CAPA. Do not provide information that you are not ready to share publically.</p>'.
   '<p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a></p>');  &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'</p><p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a>'.
    &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
       }        }
       if (($ENV{'form.uploaddoc.filename'}) &&        if (($ENV{'form.uploaddoc.filename'}) &&
           ($ENV{'form.storeupl'}) && ($allowed)) {            ($ENV{'form.storeupl'}) && ($allowed)) {
Line 99  ENDDOCUMENT Line 114  ENDDOCUMENT
    foreach (keys %syllabusfields) {     foreach (keys %syllabusfields) {
                my $field=$ENV{'form.'.$_};                 my $field=$ENV{'form.'.$_};
                $field=~s/\s+$//s;                 $field=~s/\s+$//s;
                $field=~s/\</\&lt\;/g;                 $field=&Apache::lonfeedback::clear_out_html($field,
                $field=~s/\>/\&gt\;/g;                                                             $ENV{'user.adv'});
        $syllabus{$_}=$field;         $syllabus{$_}=$field;
            }             }
            $syllabus{'uploaded.lastmodified'}=time;             $syllabus{'uploaded.lastmodified'}=time;
Line 148  ENDDOCUMENT Line 163  ENDDOCUMENT
     } else {      } else {
        $r->print('<p>No personal information provided.</p>');         $r->print('<p>No personal information provided.</p>');
     }      }
       if ($ENV{'request.course.id'}) {
    if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
               $r->print('<hr /><h3>User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course</h3>Shared by course faculty and staff<br />');
       &Apache::lonmsg::disfacetoface($r,$cnum,$cdom);
               $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));
           }
       }
     $r->print('</body></html>');      $r->print('</body></html>');
     return OK;      return OK;
 }   } 
Removed from v.1.5  
changed lines
  Added in v.1.14

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