- print <<"EOF";
- <form name="f3_pop" onSubmit="javascript:report()">
- <input type="submit" value="END">
- </form>
- <script>
- function report() {
- alert("REPORT");
- opener.document.f.subject.value= document.f_pop.subject.value;
- self.close();
- return false;
- }
- </script>
- </body>
- </html>
-EOF
+ $select_list= CGI::scrolling_list( -name=>'id',
+ -values=> \@freelib,
+ -default=> "",
+ -size=>1,
+ -multiple=>0,
+ -labels=> \%stdlib
+ );
+}
+my @x = SearchDeeper('',$category,$search_string);
+#my @son;
+#foreach (my $value @$x) {
+# warn \@$x[$value]->{'stdlib'};
+#}
+my $dig_list= CGI::scrolling_list( -name=>'search_string',
+ -values=> \@x,
+ -default=> "",
+ -size=>1,
+ -multiple=>0,
+ );
+
+$template->param(select_list => $select_list,
+ search_string => $search_string,
+ dig_list => $dig_list,
+ result => $result,
+ category => $category,
+ index => $index,
+ nohierarchy => $nohierarchy,
+ );
+output_html_with_http_headers $input, $cookie, $template->output;
+
+