[-
#
# view roadmap
#
# pass $fdat{s} = section to view
#


BEGIN {
  unshift(@INC, $ENV{SW_PERLDIR});
}

use HTML::Table;
use SW::Site::rcm;
use SW::DB::rcm;

use Data::Dumper;



#
# create site object and connect to db
#
my $site = SW::Site::rcm->new( $ENV{SW_CONFIG} );

my $db = SW::DB::rcm->new( $ENV{SW_CONFIG} );
if ( $db->connect() ) {
} else {
	print OUT $site->showContent( "sorry can't connect to db" );
	exit;
}
$site->{db} = $db;






print OUT $site->showRoadmap($fdat{s});


-]