[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.12

version 1.11, 2003/02/10 16:22:28 version 1.12, 2003/02/10 20:03:13
Line 97  ENDDOCUMENT Line 97  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 172  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=
                    ($filelink=~/^http\:/?&Apache::lonnet::externalssi($filelink):
                                          &Apache::lonnet::ssi($filelink));
                          $output=~s/^.*\<body[^\>]*\>//si;                           $output=~s/^.*\<body[^\>]*\>//si;
                          $output=~s/\<\/body\s*\>.*$//si;                           $output=~s/\<\/body\s*\>.*$//si;
               } elsif ($embstyle eq 'img') {                } elsif ($embstyle eq 'img') {
Removed from v.1.11  
changed lines
  Added in v.1.12

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