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

[www]

www		Sat Mar 18 08:22:09 2006 EDT

  Modified files:              
    /loncom/interface	lonhelp.pm 
  Log:
  Keep upper- and lowercase like in the original when quoting
  
  
Index: loncom/interface/lonhelp.pm
diff -u loncom/interface/lonhelp.pm:1.22 loncom/interface/lonhelp.pm:1.23
--- loncom/interface/lonhelp.pm:1.22	Thu Mar 16 12:18:34 2006
+++ loncom/interface/lonhelp.pm	Sat Mar 18 08:22:07 2006
@@ -157,7 +157,7 @@
 		    $line=~s/\{//gs;
 		    $line=~s/\}//gs;
 		    $line=~s/\\/ /gs;
-		    $line=~s/\Q$term\E/\<b\>$term\<\/b\>/gsi;
+		    $line=~s/(\Q$term\E)/\<b\>$1\<\/b\>/gsi;
 		    $quote.='<br />...'.$line.'...';
 		}
 	    }