[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[albertel]

albertel		Thu Jan 30 17:19:09 2003 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - xhtml ifying, some day the remote will work in XML mode, not today though
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.225 loncom/xml/lonxml.pm:1.226
--- loncom/xml/lonxml.pm:1.225	Wed Jan 15 18:59:27 2003
+++ loncom/xml/lonxml.pm	Thu Jan 30 17:19:09 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.225 2003/01/15 23:59:27 www Exp $
+# $Id: lonxml.pm,v 1.226 2003/01/30 22:19:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -271,7 +271,7 @@
     my $defhost=$Apache::lonnet::perlvar{'lonHostID'};
     $defhost=~tr/a-z/A-Z/;
     return (<<ENDINPUTFIELD)
-<script>
+<script type="text/javascript">
     function updatetoken() {
 	var comp=new Array;
         var barcode=unescape(document.tokeninput.barcode.value);
@@ -395,7 +395,7 @@
     my $result = '';
     
     if ($target eq 'edit') {
-        $result .="<script>\n".
+        $result .="<script type=\"text/javascrtipt\">\n".
             "if (typeof menu != 'undefined') {menu.currentURL=null;}\n".
             &Apache::loncommon::browser_and_searcher_javascript().
                 "\n</script>\n";
@@ -404,7 +404,7 @@
          (!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&
         (!$forcereg)) {
 	return $result.
-         '<script>function LONCAPAreg(){} function LONCAPAstale(){}</script>';
+         '<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>';
     }
     if ($Apache::lonxml::registered && !$forcereg) { return ''; }
     $Apache::lonxml::registered=1;
@@ -1265,7 +1265,7 @@
         $matchthis=~s/\_+/\\s\+/g;
         $result=~s/($matchthis)/\<a name=\"$anchorname\"\>$1\<\/a\>/s;
         $result.=(<<"ENDSCRIPT");
-<script>
+<script type="text/javascript">
     document.location.hash='$anchorname';
 </script>
 ENDSCRIPT