--- loncom/interface/lonsearchcat.pm	2002/05/22 16:08:52	1.118
+++ loncom/interface/lonsearchcat.pm	2002/06/10 23:55:47	1.120
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.118 2002/05/22 16:08:52 www Exp $
+# $Id: lonsearchcat.pm,v 1.120 2002/06/10 23:55:47 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -82,7 +82,8 @@ my %hash;
 # XML/SGML ---> sub xml_sgml_view
 my $basicviewselect=<<END;
 <select name='basicviewselect'>
-<option value='Detailed Citation View'>Detailed Citation View</option>
+<option value='Detailed Citation View' selected="true">
+Detailed Citation View</option>
 <option value='Summary View'>Summary View</option>
 <option value='Fielded Format'>Fielded Format</option>
 <option value='XML/SGML'>XML/SGML</option>
@@ -90,7 +91,8 @@ my $basicviewselect=<<END;
 END
 my $advancedviewselect=<<END;
 <select name='advancedviewselect'>
-<option value='Detailed Citation View'>Detailed Citation View</option>
+<option value='Detailed Citation View' selected="true">
+Detailed Citation View</option>
 <option value='Summary View'>Summary View</option>
 <option value='Fielded Format'>Fielded Format</option>
 <option value='XML/SGML'>XML/SGML</option>
@@ -143,6 +145,11 @@ sub handler {
 	}
     }
 
+# --------------------------- Produce some output, so people know it is working
+
+    $r->print("\n");
+    $r->rflush;
+
 # ----------------------------------- configure dynamic components of interface
 
     if ($ENV{'form.catalogmode'} eq 'interactive') {