On Jul 11, 2006, at 9:50 AM, cfaust-dougot wrote:

> ################################################## ##################pa
> ckage SCRIPTS::ParseNav;
> use strict;
> use vars qw($r);
>
> ###### Set some Constants
> # Template Path
> $ENV{'HTML_TEMPLATE_ROOT'} = xxx";

Perhaps an issue of style, but would that not be better set in
httpd.conf ?
> # Our Content Template
> my $content = "Navigation.tmpl";
>
> ################################################## ####################
> # Main
> # Our Mod_Perl Content Handler
> sub handler {
> $r = shift;
>
> &cgi_nav();

you're not passing $r here into cgi_nav
> # As this is being called from a include, set a header and print
> it out
> $r->send_http_header;
> print $content->output;
>
> # Return our header as we are done!!!
> return Apache::OK;
>
> } # End of Sub


another personal thing... i'd wrap the cgi_nav -> print in an eval
block. you'd probably want to return Apache::OK in any event, but if
you get some crazy error, why die?