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

[albertel]

albertel		Fri Apr 13 19:05:43 2007 EDT

  Modified files:              
    /loncom/interface	lonsearchcat.pm 
  Log:
  - allow searching for the character . in fields
  - modify the parser so - has to come after a space for it to mena not
     (can now search for resource by p-a.guy)
  
  
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.283 loncom/interface/lonsearchcat.pm:1.284
--- loncom/interface/lonsearchcat.pm:1.283	Mon Mar 12 18:05:30 2007
+++ loncom/interface/lonsearchcat.pm	Fri Apr 13 19:05:40 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.283 2007/03/12 22:05:30 banghart Exp $
+# $Id: lonsearchcat.pm,v 1.284 2007/04/13 23:05:40 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1395,7 +1395,7 @@
 		   'lastrevisiondatestart_month','lastrevisiondatestart_day',
 		   'lastrevisiondatestart_year','lastrevisiondateend_month',
 		   'lastrevisiondateend_day','lastrevisiondateend_year') {
-	$env{'form.'.$field}=~s/[^\w\/\s\(\)\=\-\"\']//g;
+	$env{'form.'.$field}=~s/[^\w\/\s\(\)\=\-\"\'.]//g;
     }
     foreach ('mode','form','element') {
 	# is this required?  Hmmm.
@@ -1858,7 +1858,7 @@
             $item[1];
         }
     term:
-        /[\w\Q:!@#$%^&*()+_=|{}<>,.;\\\/?\E]+/ {
+        /[\w\Q:!@#$%^&*()+_=|{}<>,.;\\\/?\E\-]+/ {
             $item[1];
         }
 ENDGRAMMAR