#!/jic-atidb/perl/bin/perl
package TOPO;
use warnings;
use Carp;
use base 'Apache::MVC';
use Class::DBI::Loader::Relationship;
use Data::Dumper;
use Maypole::Constants;
my $title = "TOPO database. Very rudimentary interface as a starting point for development.";

TOPO->setup("dbi:mysql:topo_interpro2","nobody","",{AutoCommit => 1, PrintError => 1});
TOPO->config->{uri_base} = "http://atidb.org/topo/";
TOPO->config->{rows_per_page} = 20;
TOPO->config->{template_root} = "/jic-atidb/w3/topo/";
TOPO->config->{application_name} = $title;
TOPO->config->{display_tables} =[qw[ENTRY ABSTRACT]];
TOPO->config->{loader}->relationship($_)  for
("entries has abstracts");
1;

sub debug { 
    return 2;
}
1;