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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.10 and 1.12

version 1.10, 2003/02/10 15:19:43 version 1.12, 2003/02/10 20:03:13
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 96  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 107  ENDDOCUMENT Line 109  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,1);
                $field=~s/\>/\&gt\;/g;  
        $syllabus{$_}=$field;         $syllabus{$_}=$field;
                if ($_ eq 'lll_includeurl') { # clean up included URLs                 if ($_ eq 'lll_includeurl') { # clean up included URLs
                   my $field='';                    my $field='';
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.10  
changed lines
  Added in v.1.12

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