sub on_chapter
 {
 my ($t,$e)= @_;
 my $name= $e->att ('name');
 if ( i don't like the name ) {
    my $errorpoint= what do I call here?
    print "Warning: crummy chapter name in file $myfile line $errorpoint\n";
    }