Index: ossp-pkg/quos/quos.cgi
RCS File: /v/ossp/cvs/ossp-pkg/quos/quos.cgi,v
rcsdiff -q -kk '-r1.2' '-r1.3' -u '/v/ossp/cvs/ossp-pkg/quos/quos.cgi,v' 2>/dev/null
--- 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