===================================================================
RCS file: /cvs/mp3/bin/search.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- mp3/bin/search.pl	2007/02/08 20:04:03	1.3
+++ mp3/bin/search.pl	2007/02/08 23:03:15	1.4
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $RedRiver: search.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $
+# $RedRiver: search.pl,v 1.3 2007/02/08 20:04:03 andrew Exp $
 ########################################################################
 # Search.pl *** Searches the full list of songs and finds matches.
 #
@@ -86,9 +86,11 @@
 		print $Query->hidden($key, $Query->param($key));
 	}
 
-	print   $Query->submit(-name=>'Submit',
-		                    -value=>'Play All'),
-	        $Query->end_form, "\n";;
+	print $Query->submit(-name=>'Submit', -value=>'Play All');
+	
+	print $Query->submit(-name=>'Submit', -value=>'Approve All') if $prefix;
+
+        print $Query->end_form, "\n";;
 	
 	#List_Recipes(%recipes);