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

Diff for /loncom/xml/lonxml.pm between versions 1.322 and 1.323

version 1.322, 2004/06/04 22:56:46 version 1.323, 2004/06/05 14:46:12
Line 1129  sub inserteditinfo { Line 1129  sub inserteditinfo {
       $filecontents = &HTML::Entities::encode($filecontents,'<>&"');        $filecontents = &HTML::Entities::encode($filecontents,'<>&"');
 #      my $editheader='<a href="#editsection">Edit below</a><hr />';  #      my $editheader='<a href="#editsection">Edit below</a><hr />';
       my $xml_help = '';        my $xml_help = '';
       my $activate='';  
       my $initialize='';        my $initialize='';
       if ($filetype eq 'html') {        if ($filetype eq 'html') {
     my $addbuttons=&Apache::lonhtmlcommon::htmlareaaddbuttons();
   $initialize=&Apache::lonhtmlcommon::htmlareaheaders().(<<FULLPAGE);    $initialize=&Apache::lonhtmlcommon::htmlareaheaders().(<<FULLPAGE);
 <script type="text/javascript">  <script type="text/javascript">
   $addbuttons
   
     HTMLArea.loadPlugin("FullPage");      HTMLArea.loadPlugin("FullPage");
   
     function initDocument() {      function initDocument() {
  var editor=new HTMLArea("editor");   var editor=new HTMLArea("filecont",config);
  editor.registerPlugin(FullPage);   editor.registerPlugin(FullPage);
  editor.generate();   editor.generate();
     }      }
Line 1145  sub inserteditinfo { Line 1147  sub inserteditinfo {
 FULLPAGE  FULLPAGE
           $result=~s/\<body([^\>]*)\>/\<body onload="initDocument()" $1\>/i;            $result=~s/\<body([^\>]*)\>/\<body onload="initDocument()" $1\>/i;
   $xml_help=&Apache::loncommon::helpLatexCheatsheet();    $xml_help=&Apache::loncommon::helpLatexCheatsheet();
 #FIXME: need to install FullPage plugin during install  
 #  $activate=&Apache::lonhtmlcommon::htmlareaactive();  
       }        }
       my $cleanbut = '';        my $cleanbut = '';
       if ($filetype eq 'html') {        if ($filetype eq 'html') {
Line 1175  $buttons<br /> Line 1175  $buttons<br />
 <br />  <br />
 </form>  </form>
 $titledisplay  $titledisplay
 $activate  
 </body>  </body>
 ENDFOOTER  ENDFOOTER
 #      $result=~s/(\<body[^\>]*\>)/$1$editheader/is;  #      $result=~s/(\<body[^\>]*\>)/$1$editheader/is;
Removed from v.1.322  
changed lines
  Added in v.1.323

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