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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.11 and 1.15

version 1.11, 2003/02/10 16:22:28 version 1.15, 2003/03/03 13:03:58
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 course?  # Is this even a course?
     my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom);       my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom); 
     if ($homeserver eq 'no_host') {      if ($homeserver eq 'no_host') {
  $r->print('<body>No syllabus available</body>');   $r->print('</head><body>No syllabus available</body></html>');
         return OK;          return OK;
     }      }
 # --------------------------------------------------------- The syllabus fields  # --------------------------------------------------------- The syllabus fields
Line 73  ENDDOCUMENT Line 72  ENDDOCUMENT
        'kkk_textbook'       => 'Textbook',         'kkk_textbook'       => 'Textbook',
        'lll_includeurl'     => 'URLs To Include in Syllabus');         'lll_includeurl'     => 'URLs To Include in Syllabus');
   
 # --------------------------------------------------------------- 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 course, get environment  # ------------------------------------- There is such a course, 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
                                        ("Syllabus",$forcestudent,'','',$cdom));         ("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'}));
     $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.      $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
               $Apache::lonnet::domaindescription{$cdom}.'</h3>');                $Apache::lonnet::domaindescription{$cdom}.'</h3>');
     my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);      my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
Line 97  ENDDOCUMENT Line 104  ENDDOCUMENT
           if ($forcestudent) { $allowed=0; }            if ($forcestudent) { $allowed=0; }
        }         }
        if ($allowed) {         if ($allowed) {
           $r->print('<p>This syllabus can be publically viewed at <tt>http://'.            $r->print('<p>'.
   &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'</p><p>This syllabus can be publically viewed at <tt>http://'.
     $Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'.      $Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'.
                &Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.                 &Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.
   '<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a>'.    '<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a>'.
Line 171  ENDDOCUMENT Line 179  ENDDOCUMENT
 # embed style?  # embed style?
       my ($curfext)=($filelink=~/\.([^\.]+)$/);        my ($curfext)=($filelink=~/\.([^\.]+)$/);
                       my $embstyle=&Apache::loncommon::fileembstyle($curfext);                        my $embstyle=&Apache::loncommon::fileembstyle($curfext);
               if ($embstyle eq 'ssi') {                if (($embstyle eq 'ssi') || ($curfext=~/\/$/)) {
 # make ssi call and remove everything but the body contents  # make ssi call and remove everything but the body contents
                  $output=&Apache::lonnet::ssi($filelink);    $output=&Apache::lonnet::ssi_body($filelink);
                          $output=~s/^.*\<body[^\>]*\>//si;  
                          $output=~s/\<\/body\s*\>.*$//si;  
               } elsif ($embstyle eq 'img') {                } elsif ($embstyle eq 'img') {
 # embed as an image  # embed as an image
                          $output='<img src="'.$filelink.'" />';                           $output='<img src="'.$filelink.'" />';
Removed from v.1.11  
changed lines
  Added in v.1.15

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