+ my $EVL;
+ if (open($EVL,$inc.'header.pl')) {
+ my $prm;
+ while (<$EVL>) {
+ $prm .= $_;
+ }
+ close($EVL);
+ %_ = (
+ -version => $version,
+ -depth => $self->{-depth},
+ -title => $title,
+ -breadcrumbs => "breadcrumbs unimplemented",
+ );
+ print $IND eval $prm,"\n";
+ } else {
+ print $IND a({-href=>"../index.html"},"UP"),"\n",
+ h1({-class=>'title'},$title),"\n",
+ }