misc_file_collision.init 441 B

123456789101112131415161718192021222324
  1. use strict;
  2. $element_file_name = \&test_misc_file_name;
  3. sub test_misc_file_name($$$)
  4. {
  5. my $element = shift;
  6. my $type = shift;
  7. my $docu_name = shift;
  8. if ($type eq 'top' or (defined($element->{'doc_nr'}) and $element->{'doc_nr'} == 2))
  9. {
  10. my $extension = get_conf('EXTENSION');
  11. return "${docu_name}_abt"
  12. . ((defined($extension)) ? ".$extension" : '');
  13. }
  14. return undef;
  15. }
  16. set_from_init_file('DO_ABOUT', 1);
  17. 1;