AcePerl

 view release on metacpan or  search on metacpan

acebrowser/cgi-bin/searches/basic  view on Meta::CPAN

use strict 'vars';
use vars qw/$DB $URL %EQUIV/;

use Ace 1.51;
use CGI 2.42 qw/:standard :html3 escape/;
use CGI::Carp qw/fatalsToBrowser/;
use Ace::Browser::AceSubs qw(:DEFAULT DoRedirect);
use Ace::Browser::SearchSubs;

my $classlist = Configuration()->Basic_objects;
my @classlist = @{$classlist}[map {2*$_} (0..@$classlist/2-1)];  # keep keys, preserving the order

my $JSCRIPT=<<END;
function focussearch()  {
         document.SimpleForm.query.focus();
         document.SimpleForm.query.select();
         return (false);

} 
END

acebrowser/cgi-bin/searches/basic  view on Meta::CPAN

PrintBottom();


sub display_search_form {
  CGI::autoEscape(0);
    print start_form(-name=>'SimpleForm'),
      table(
          TR({-valign=>TOP},
             td(radio_group(-name=>'class',
			    -Values=>\@classlist,
			    -Labels=>{@$classlist},
			    -default=>'Any',
			    -rows=>3)),
             td({-align=>LEFT,-class=>'large'},
                b('Name:'),textfield(-name=>'query'),br,
		submit(-name=>'Search')
		)
	     ),
	    );
  CGI::autoEscape(1);
    print  end_form();

acebrowser/cgi-bin/searches/browser  view on Meta::CPAN

($objs,$count) = do_search($search_class,$search_pattern || '*',$offset) if $search_class;
DoRedirect(@$objs) if $count==1;

PrintTop(undef,undef,'Acedb Class Search');

display_search($objs,$count,$offset,$search_class,$search_pattern) if defined $search_class;
display_search_form();  
PrintBottom;

sub display_search_form {
  my @classlist = $DB->classes;
  my $name = Configuration()->Name;
  AceSearchTable("$name Class Browser",
		 table({-align=>'CENTER'},
		       TR({-valign=>'MIDDLE'},
			  td(td({-class=>'large',-rowspan=>2},scrolling_list(-name=>'class',
									     -Values=>\@classlist,-size=>10,
									    ))),
			  td({-align=>'LEFT',-valign=>'TOP'},
			     table({-border=>0},
				   TR(td('Search pattern (optional):',textfield(-name=>'query'))),
				   TR(td({-align=>'RIGHT'},submit(-label=>'Search ACE')))))
			 )
		      )
		);
}

docs/GFF_Spec.html  view on Meta::CPAN

<dt> <pre> ##sequence-region {seqname} {start} {end} </pre>
<dd> To indicate that this file only contains entries for the
specified subregion of a sequence.

</dl>

Please feel free to propose new ## lines.

The ## line proposal came out of some discussions including Anders
Krogh, David Haussler, people at the Newton Institute on 1997-10-29
and some email from Suzanna Lewis.  Of course, naive programs can
ignore all of these...

<A NAME="file_names"><h3> File Naming </h3>

We propose that the format is called "GFF", with conventional file
name ending ".gff".
<P>
Back to <A HREF="#TOC">Table of Contents</A>
<P>

docs/GFF_Spec.html  view on Meta::CPAN

</UL>       
<P>
<P>
Back to <A HREF="#TOC">Table of Contents</A>
<P>
<HR>
<A NAME="authors"><h2>Authors</h2></A>
<P>
GFF Protocol Specification initially proposed by: 
<A HREF="mailto:rd@sanger.ac.uk">Richard Durbin</a> and 
<A HREF="mailto:haussler@cse.ucsc.edu">David Haussler</a>
<P>with amendments proposed by: 
<A HREF="mailto:lstein@cshl.org">Lincoln Stein</a>, Anders Krogh and others.
<P>The GFF specification now maintained at the Sanger Centre by 
<A HREF="mailto:rbsk@sanger.ac.uk">Richard Bruskiewich</a>
<P>
Back to <A HREF="#TOC">Table of Contents</A>
<P>

<!-- page content ends here -->