[Bio] / FigKernelPackages / FIGGenDB.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIGGenDB.pm

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

revision 1.1, Fri Oct 22 17:05:18 2004 UTC revision 1.2, Thu Oct 28 16:33:48 2004 UTC
# Line 1  Line 1 
1  package FIGGenDB;  package FIGGenDB;
2    
3    use FIG;
4  use strict;  use strict;
5    
6  use Fcntl qw/:flock/;  # import LOCK_* constants  use Fcntl qw/:flock/;  # import LOCK_* constants
# Line 10  Line 11 
11  use DBrtns;  use DBrtns;
12  use FIG_Config;  use FIG_Config;
13    
14  use constant GENDB_CGI=>"http://localhost/GENDB2.2/gendb-cgi/";  use constant GENDB_CGI => "http://localhost/GENDB/cgi-bin/";
15  use constant SEED_USER=>"seed";  use constant SEED_USER=>"seed";
16  use constant SEED_PASS=>'seed';  use constant SEED_PASS=>'seed';
17  use constant GENDB_PROJECT=>"GenDB_SEED";  use constant GENDB_PROJECT=>"GenDB_SEED";
# Line 20  Line 21 
21      my ($peg) = @_;      my ($peg) = @_;
22      $peg =~ /fig\|(.+)\.peg/;      $peg =~ /fig\|(.+)\.peg/;
23      my $taxon = $1;      my $taxon = $1;
24      return "<a target=\"_blank\" href=\"".GENDB_CGI."seed_interface.cgi?action=view&login=".SEED_USER."&pass=".SEED_PASS."&project=".GENDB_PROJECT."&region=$peg&taxon_id=$taxon\">To View in GenDB</a>\n";  
25        my $cgi = &FIG::plug_url(GENDB_CGI);
26    
27        return q(<a target="_blank" href=") . $cgi .
28            "seed_interface.cgi?action=view&login=" . SEED_USER .
29            "&pass=" . SEED_PASS . "&project=" . GENDB_PROJECT .
30            "&region=$peg&taxon_id=$taxon\">To View in GenDB</a>\n";
31  }  }
32    
33  sub linkClusterGenDB {  sub linkClusterGenDB {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3