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

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 10 Feb 2003 21:25:44 -0000


albertel		Mon Feb 10 16:25:44 2003 EDT

  Modified files:              
    /loncom/interface	lonsearchcat.pm 
  Log:
  - Perl doesn't like the {} seems ambigious to it
  
  
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.165 loncom/interface/lonsearchcat.pm:1.166
--- loncom/interface/lonsearchcat.pm:1.165	Mon Feb 10 16:22:59 2003
+++ loncom/interface/lonsearchcat.pm	Mon Feb 10 16:25:43 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.165 2003/02/10 21:22:59 albertel Exp $
+# $Id: lonsearchcat.pm,v 1.166 2003/02/10 21:25:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -585,7 +585,7 @@
     #----------------------------------------------------------------
     $scrout.=&selectbox('Limit by language','language',
 			$ENV{'form.language'},'any','Any Language',
-			\&{Apache::loncommon::languagedescription},
+			\&Apache::loncommon::languagedescription,
 			(&Apache::loncommon::languageids),
 			);
 # ------------------------------------------------ Compute date selection boxes
@@ -632,7 +632,7 @@
     $scrout.=&selectbox('Limit by copyright/distribution','copyright',
 			 $ENV{'form.copyright'},
 			 'any','Any copyright/distribution',
-			 \&{Apache::loncommon::copyrightdescription},
+			 \&Apache::loncommon::copyrightdescription,
 			 (&Apache::loncommon::copyrightids),
 			 );
 # ------------------------------------------- Compute customized metadata field