#!@@_perl_root_@@/bin/perl.exe 
package ConfigURL;

##########################################################
#                                                        #
# dictyBase Extension of ConfigURL                       #
#                                                        #
##########################################################

use ConfigURL_base;
no warnings 'redefine';
BEGIN { %ConfigURL:: = %ConfigURL_base:: }


####################################################################
sub _init{
####################################################################
# This simple initialization function simply sets up some paths

    my $self = shift;



    $self->{'_wine'}          = "http://dictybase.org/db/";
    $self->{'_Dictyostelium'} = "http://dictybase.org/db/";
    $self->{'_bread'}         = "http://dictybase.org/db/";

}


####################################################################
sub reference_popup{
####################################################################
# This simple initialization function simply sets up some paths

    my ($self,$url) = @_;


    return "javascript:NewWindow('$url', 'Reference', '850', '650', 'center','front');";

}


####################################################################
sub pubmed_url{
####################################################################
# This simple initialization function simply sets up some paths

    my ($self,$pubmed_id) = @_;


    return "http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?cmd=Retrieve&db=PubMed&dopt=Abstract&list_uids=${pubmed_id}";

}





1; # to keep stupid perl happy :-)