1442 |
EOT |
EOT |
1443 |
} |
} |
1444 |
|
|
1445 |
sub T2H_DEFAULT_node_file_name($) |
sub T2H_DEFAULT_node_file_name($$) |
1446 |
{ |
{ |
1447 |
my $node = shift; |
my $node = shift; |
1448 |
|
my $type = shift; |
1449 |
return (undef, undef) if ($node->{'external_node'} or $node->{'index_page'}); |
return (undef, undef) if ($node->{'external_node'} or $node->{'index_page'}); |
1450 |
my $file; |
my $file; |
1451 |
my $node_file; |
my $node_file; |
1452 |
|
if ($type eq 'top') |
1453 |
|
{ |
1454 |
|
my $default_top_file; |
1455 |
|
if ($NEW_CROSSREF_STYLE) |
1456 |
|
{ |
1457 |
|
$default_top_file = "$TOP_NODE_FILE.$NODE_FILE_EXTENSION"; |
1458 |
|
} |
1459 |
|
else |
1460 |
|
{ |
1461 |
|
$default_top_file = undef; |
1462 |
|
} |
1463 |
|
$top_file = $default_top_file; |
1464 |
|
if ($SPLIT eq 'node') |
1465 |
|
{ |
1466 |
|
if (defined($TOP_FILE) and ($TOP_FILE ne '')) |
1467 |
|
{ |
1468 |
|
$top_file = $TOP_FILE; |
1469 |
|
} |
1470 |
|
$file = $top_file; |
1471 |
|
} |
1472 |
|
$node_file = $default_top_file; |
1473 |
|
return ($file, $node_file); |
1474 |
|
} |
1475 |
|
|
1476 |
if ($NEW_CROSSREF_STYLE) |
if ($NEW_CROSSREF_STYLE) |
1477 |
{ |
{ |
3470 |
{ |
{ |
3471 |
if (!$SPLIT) |
if (!$SPLIT) |
3472 |
{ |
{ |
3473 |
$file = $TOP_FILE; |
# $file = $TOP_FILE; |
3474 |
|
# point to the file document itself |
3475 |
|
$file = ''; |
3476 |
} |
} |
3477 |
} |
} |
3478 |
} |
} |