[Bio] / FigWebServices / bbhs.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/bbhs.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Thu Aug 31 19:20:28 2006 UTC revision 1.2, Thu Aug 31 19:48:30 2006 UTC
# Line 1  Line 1 
1  use strict;  use strict;
2  use DBI qw(:sql_types);  use DBI qw(:sql_types);
3  use CGI;  use CGI;
4    my $cgi = new CGI;
5    
6  #  #
7  # BBH server code.  # BBH server code.
# Line 43  Line 44 
44    
45  $dbh or die "Could not open database: " . DBI->errstr;  $dbh or die "Could not open database: " . DBI->errstr;
46    
 my $cgi = new CGI;  
 print $cgi->header('text/plain');  
47    
48  my $id = $cgi->param('id');  my $id = $cgi->param('id');
49  $id or myerror($cgi, "500 missing id", "bbhs missing id argument");  $id or myerror($cgi, "500 missing id", "bbhs missing id argument");
# Line 68  Line 67 
67  $sth->bind_param(2, $cutoff,  SQL_REAL);  $sth->bind_param(2, $cutoff,  SQL_REAL);
68  $sth->execute;  $sth->execute;
69    
70    print $cgi->header('text/plain');
71    
72  while (my $row = $sth->fetchrow_arrayref())  while (my $row = $sth->fetchrow_arrayref())
73  {  {

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3