version 1.3, 2007/02/08 20:04:03 |
version 1.4, 2007/02/08 23:03:15 |
|
|
#!/usr/bin/perl -w |
#!/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. |
# Search.pl *** Searches the full list of songs and finds matches. |
# |
# |
|
|
print $Query->hidden($key, $Query->param($key)); |
print $Query->hidden($key, $Query->param($key)); |
} |
} |
|
|
print $Query->submit(-name=>'Submit', |
print $Query->submit(-name=>'Submit', -value=>'Play All'); |
-value=>'Play All'), |
|
$Query->end_form, "\n";; |
print $Query->submit(-name=>'Submit', -value=>'Approve All') if $prefix; |
|
|
|
print $Query->end_form, "\n";; |
|
|
#List_Recipes(%recipes); |
#List_Recipes(%recipes); |
|
|