980 sub output_print_h {
981 my $fh = shift ;
982 my $level = shift ;
983 my $text = shift ;
984 my $name = shift || undef ;
985 local (%opts );
986 my $output = $opts {'output'};
987
988 if($output eq 'html') {
989 print $fh "<a name=\"$name \">" if defined ($name );
990 print $fh "<h$level >$text </h$level >";
991 print $fh "</a>" if defined ($name );
992 print $fh "\n";
993 }
994 }
995
996 ##--------------------------------------------------------------------------##
997
998 sub output_print_footer {
999 my $fh = shift ;
1000 local (%opts );
1001 my $output = $opts {'output'};
1002
1003 if($output eq 'xml') {
1004 }
1005 else {
1006 print $fh "</body>\n</html>\n";
1007 }
1008 }
1009
1010 ##--------------------------------------------------------------------------##
1011
1012 sub output_print_header {
1013 my $fh = shift ;
1014 my $title1 = shift ;
1015 my $title2 = shift ;
1016 my $ens = shift ;
1017 my $ena = shift ;
1018 my $end = shift ;
1019 my $els = shift ;
1020 my $ela = shift ;
1021 my $eld = shift ;
1022 local (%opts );
1023 my $output = $opts {'output'};
1024
1025 if($output eq 'xml') {