--- loncom/interface/loncommon.pm	2006/11/29 07:46:39	1.474
+++ loncom/interface/loncommon.pm	2006/11/29 15:38:22	1.475
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.474 2006/11/29 07:46:39 raeburn Exp $
+# $Id: loncommon.pm,v 1.475 2006/11/29 15:38:22 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1377,6 +1377,23 @@ sub select_form {
     return $selectform;
 }
 
+# For display filters
+
+sub display_filter {
+    if (!$env{'form.show'}) { $env{'form.show'}=10; }
+    return '<nobr><label>'.&mt('Records [_1]',
+			       &Apache::lonmeta::selectbox('show',$env{'form.show'},undef,
+							   (&mt('all'),10,20,50,100,1000,10000))).
+	   '</label></nobr> <nobr><label>'.
+           &mt('Filter [_1]',
+	   &select_form(($env{'form.displayfilter'}?$env{'form.displayfilter'}:'currentfolder'),
+					'displayfilter',
+					('currentfolder' => 'Current folder',
+					 'containing' => 'Containing phrase',
+					 'none' => 'None'))).
+	   '<input type="text" name="containingphrase" size="30" /></label></nobr>';
+}
+
 sub gradeleveldescription {
     my $gradelevel=shift;
     my %gradelevels=(0 => 'Not specified',