--- quos.cgi 2004/10/25 15:42:43 1.2
+++ quos.cgi 2004/10/26 16:39:04 1.3
@@ -52,7 +52,7 @@
# generate query part
$html .= "<p>";
$html .= "<span class=\"query\">";
-$html .= "<span class=\"title\">Query</span>\n";
+$html .= "<span class=\"title\">Query</span>\n<br>";
$html->fold("query");
$html .= "</span>\n";
$html .= "</span>\n";
@@ -75,7 +75,71 @@
# sample
$html >> "query";
-$html .= "this is the query part";
+$html .= "this is the query part<br>";
+$html .= $cgi->popup_menu(-name=>'opr1c1',
+ -values=>['(',')','!','&','|'],
+ -default=>'&');
+$html .= $cgi->popup_menu(-name=>'opr1c2',
+ -values=>['(',')','!','&','|'],
+ -default=>'&');
+$html .= $cgi->popup_menu(-name=>'opr1c3',
+ -values=>['(',')','!','&','|'],
+ -default=>'&');
+$html .= $cgi->popup_menu(-name=>'fieldr1',
+ -values=>['name','description','foo'],
+ -default=>'name');
+$html .= $cgi->popup_menu(-name=>'opr1c4',
+ -values=>['=','begins with','ends with'],
+ -default=>'=');
+$html .= $cgi->textfield(-name=>'valuer1');
+$html .= '<br>';
+$html .= $cgi->popup_menu(-name=>'opr1c1',
+ -values=>['(',')','!','&','|'],
+ -default=>'&');
+$html .= $cgi->popup_menu(-name=>'opr1c2',
+ -values=>['(',')','!','&','|'],
+ -default=>'&');
+$html .= $cgi->popup_menu(-name=>'opr1c3',
+ -values=>['(',')','!','&','|'],
+ -default=>'&');
+$html .= $cgi->popup_menu(-name=>'fieldr1',
+ -values=>['name','description','foo'],
+ -default=>'name');
+$html .= $cgi->popup_menu(-name=>'opr1c4',
+ -values=>['=','begins with','ends with'],
+ -default=>'=');
+$html .= $cgi->textfield(-name=>'valuer1');
+$html .= '<br>';
+$html .= $cgi->popup_menu(-name=>'opr1c1',
+ -values=>['(',')','!','&','|'],
+ -default=>'&');
+$html .= $cgi->popup_menu(-name=>'opr1c2',
+ -values=>['(',')','!','&','|'],
+ -default=>'&');
+$html .= $cgi->popup_menu(-name=>'opr1c3',
+ -values=>['(',')','!','&','|'],
+ -default=>'&');
+$html .= $cgi->popup_menu(-name=>'fieldr1',
+ -values=>['name','description','foo'],
+ -default=>'name');
+$html .= $cgi->popup_menu(-name=>'opr1c4',
+ -values=>['=','begins with','ends with'],
+ -default=>'=');
+$html .= $cgi->textfield(-name=>'valuer1');
+$html .= '<br>';
+$html .= $cgi->submit('Action','submit');
+
+sub printparams {
+ my($cgi) = @_;
+ my(@values,$key);
+
+ foreach $key ($cgi->param) {
+ print "<strong>$key</strong> -> ";
+ @values = $query->param($key);
+ print join(", ",@values),"<br>\n";
+ }
+}
+
$html << 1;
# read HTML skeleton
|
