Help for this page

Select Code to Download

Select or download this

# define a hash of sub refs, keyed by sub name

...
    $LHC_OPTIONS .= ( exists( $dbsub{$db[2]} )) ?
        $dbsub{$db[2]}->() : join(':', @db[0,1]).'<BR>';
}

Select or download this

while ( my @db = $result->fetchrow ) {
    if ( exists( $dbsub{$db[2]} )) {
...
        $LHC_OPTIONS .= join(':', @db[0,1]).'<BR>';
    }
}