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

Diff for /loncom/xml/lonxml.pm between versions 1.252 and 1.254

version 1.252, 2003/05/16 18:34:56 version 1.254, 2003/05/16 20:51:25
Line 1129  sub inserteditinfo { Line 1129  sub inserteditinfo {
           &Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols',            &Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols',
       undef,undef,600)        undef,undef,600)
       .'</td></tr></table>';        .'</td></tr></table>';
         my $titledisplay=&display_title();
       my $buttons=(<<BUTTONS);        my $buttons=(<<BUTTONS);
 <input type="submit" name="attemptclean"   <input type="submit" name="attemptclean" 
        value="Save and then attempt to clean HTML" />         value="Save and then attempt to clean HTML" />
Line 1146  $buttons<br /> Line 1147  $buttons<br />
 <br />$buttons  <br />$buttons
 <br />  <br />
 </form>  </form>
   $titledisplay
 ENDFOOTER  ENDFOOTER
 #      $result=~s/(\<body[^\>]*\>)/$1$editheader/is;  #      $result=~s/(\<body[^\>]*\>)/$1$editheader/is;
       $result=~s/(\<\/body\>)/$editfooter/is;        $result=~s/(\<\/body\>)/$editfooter/is;
Line 1252  ENDNOTFOUND Line 1254  ENDNOTFOUND
   
   writeallows($request->uri);    writeallows($request->uri);
   
   # If we're editing, show the filename of the resource in the frame's main  
   # title  
   if ($ENV{'form.editmode'}) {  
       my $filename = $request->uri;  
       # Everything after the last /  
       $filename = substr($filename, rindex($filename, '/') + 1);  
       $result = substr($result, 0, rindex($result, '</html>'));  
       $result .= "<script>top.document.title = '$filename - LON-CAPA Construction Space';</script>";  
       $result .= "\n</html>\n";  
   }  
   
   
   $request->print($result);    $request->print($result);
   
   return OK;    return OK;
 }  }
   
   sub display_title {
       my $result;
       if ($ENV{'request.state'} eq 'construct') {
    my $title=&Apache::lonnet::gettitle();
    if (!defined($title) || $title eq '') {
       $title = $ENV{'request.filename'};
       $title = substr($title, rindex($title, '/') + 1);
    }
    $result = "<script type='text/javascript'>top.document.title = '$title - LON-CAPA Construction Space';</script>";
       }
       return $result;
   }
   
 sub debug {  sub debug {
   if ($Apache::lonxml::debug eq 1) {    if ($Apache::lonxml::debug eq 1) {
     $|=1;      $|=1;
Removed from v.1.252  
changed lines
  Added in v.1.254

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