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

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

version 1.9, 2003/02/10 14:44:36 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::lonnet::hostname{$homeserver}.$r->uri.'</tt></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://'.
   '<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a></p>');      $Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'.
                  &Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.
     '<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a>'.
             &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
             '</p>');
       }        }
        if (($allowed) && ($ENV{'form.storesyl'})) {         if (($allowed) && ($ENV{'form.storesyl'})) {
    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 168  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') {
Line 181  ENDDOCUMENT Line 187  ENDDOCUMENT
                   }                    }
                   if ($allowed) {                    if ($allowed) {
                      $r->print('<h3>'.$syllabusfields{$_}.                       $r->print('<h3>'.$syllabusfields{$_}.
                    '</h3>URLs provided will be included into the page output.'.            &Apache::loncommon::help_open_topic('Syllabus_URLs').'</h3>'.
                    '<br />Format:<br /><pre>'.    '<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a>'.
      "http://www.foo.org/foo.html\n/res/foo/author/foo.html\n</pre>".   &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
   '<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a></p>');  
  } else {   } else {
                   $r->print($message);                    $r->print($message);
                  }                    } 
Removed from v.1.9  
changed lines
  Added in v.1.12

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