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

##########################################################
#                                                        #
# dictyBase Extension of ConfigURLdictyBase              #
#                                                        #
##########################################################

use ConfigURLdictyBase_base;
no warnings 'redefine';
BEGIN { %ConfigURLdictyBase:: = %ConfigURLdictyBase_base:: }


our %dblink = ("SDEV"=>"dictyBaseDEV",
	      uc('dictyBase')=>"dictyBase");
####################################################################
sub dictyBaseHtmlRoot{
####################################################################
# This method returns the root for dictyBase html page

    my ($self) = @_;

#    return $self->dictyBaseServerRoot."html/";
    return $self->dictyBaseServerRoot;

}

####################################################################
sub gbrowseDir{
####################################################################
# This method returns the root of the cgi-bin directory

    my ($self) = @_;

    return $self->dictyBaseServerRoot."cgi-bin/gbrowse";

}

####################################################################
sub dictyBaseHelp {
####################################################################
# This method returns the root for dictyBase help page

    my ($self) = @_;

    return $self->dictyBaseHtmlRoot."html/help/";

}

#
#####################################################################
#sub dictyBaseHtmlTmp{
#####################################################################
## This subroutine returns the url to the html tmp directory
#
#    my ($self) = shift;
#
#    return $self->dictyBaseHtmlRoot."tmp/";
#
#}

####################################################################
sub ncbiUrlRoot2 {
####################################################################
#    my ($self) = @_;
    return "http://www.ncbi.nlm.nih.gov/entrez/";
}


####################################################################
1; # to keep perl happy
####################################################################