[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