loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.251, 2003/05/03 21:09:03
+version 1.252, 2003/05/16 18:34:56
  Line 1252  ENDNOTFOUND
    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);
    return OK;