[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[albertel]

albertel		Wed May 17 16:47:08 2006 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - </ not allowed inside <script>
  - title table off by a pixel
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.371 loncom/interface/loncommon.pm:1.372
--- loncom/interface/loncommon.pm:1.371	Fri May 12 11:53:10 2006
+++ loncom/interface/loncommon.pm	Wed May 17 16:47:06 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.371 2006/05/12 15:53:10 www Exp $
+# $Id: loncommon.pm,v 1.372 2006/05/17 20:47:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3128,7 +3128,7 @@
   padding: 0px 2px 0px 2px;
   background: $pgbg;
   font-family: $sans;
-  border-collapse: collapse;
+  border-collapse: separate;
 }
 table#LC_title_bar.LC_with_remote {
   width: 100%;
@@ -3165,7 +3165,7 @@
   background: $pgbg;
   border: 0px;
   border-spacing: 1px;
-  padding: 0px;
+  padding: 0px 1px;
   margin: 0px;
   border-collapse: separate;
 }
@@ -3554,7 +3554,6 @@
 
 sub end_page {
     my ($args) = @_;
-    #&Apache::lonnet::logthis("end_page ".join(':',caller(0)));
     $env{'internal.end_page'}++;
     my $result;
     if ($args->{'discussion'}) {
@@ -3597,7 +3596,7 @@
     $result =~ s/[\n\r]/ /xmsg;
     $result =~ s/\\/\\\\/xmsg;
     $result =~ s/'/\\'/xmsg;
-    $result =~ s{</script>}{</scrip'+'t>}xmsg;
+    $result =~ s{</}{<\\/}xmsg;
     
     return $result;
 }