--- mknmz.in.~1.92.~	Sun Sep 16 21:29:14 2001
+++ mknmz.in	Thu Oct  4 21:26:42 2001
@@ -178,6 +178,7 @@
 
     my $processed_num = 0;
     my $file_size = util::filesize($cfile);
+    my $mother_cfile = $cfile;
 
     if ($var::Opt{'htmlsplit'} && $cfile =~ $conf::HTML_SUFFIX) {
 	my @parts = htmlsplit::split($cfile, "NMZ.partial");
@@ -192,7 +193,7 @@
 					 $docid_base, $file_count, 
 					 $field_indices, $fh_errorsfile, 
 					 $total_files_num, 
-					 $uri, $id, $#parts);
+					 $uri, $id, $#parts,$mother_cfile,$fragment);
 		if ($result > 0) {
 		    $processed_num++;
 		    my $rname = defined $part ? "$cfile\t$part" : "$cfile";
@@ -207,7 +208,7 @@
     my $result = namazu_core($cfile, $docid_count, $docid_base, 
 			     $file_count, $field_indices, 
 			     $fh_errorsfile, $total_files_num,
-			     undef, undef, undef);
+			     undef, undef, undef,undef);
     if ($result > 0) {
 	$processed_num++;
 	put_registry($cfile);
@@ -447,10 +448,10 @@
 #
 # FIXME: Too many parameters. They must be cleared.
 #
-sub namazu_core ($$$$$$$$$$) {
+sub namazu_core ($$$$$$$$$$$$) {
     my ($cfile, $docid_count, $docid_base, 
 	$file_count, $field_indices, $fh_errorsfile, $total_files_num,
-	$uri, $part_id, $part_num) = @_;
+	$uri, $part_id, $part_num,$mother_cfile,$fragment) = @_;
 
     my $headings = "";
     my $content = "";
@@ -469,7 +470,7 @@
     }
     my ($cfile_size, $text_size, $kanji, $mtype) = 
 	load_document(\$cfile, \$content, \$weighted_str,
-		      \$headings, \%fields);
+		      \$headings, \%fields, $mother_cfile,$fragment);
 
     util::dprint(_("after load_document: ")."$uri: $cfile_size, $text_size, $kanji, $mtype\n");
 
@@ -729,8 +730,8 @@
 
 
 # load a document file
-sub load_document ($$$$\%) {
-    my ($orig_cfile, $contref, $weighted_str, $headings, $fields)
+sub load_document ($$$$\%$$) {
+    my ($orig_cfile, $contref, $weighted_str, $headings, $fields, $mother_cfile,$fragment)
       = @_;
     my $cfile = $$orig_cfile;
 
@@ -808,7 +809,7 @@
 		    "\"$var::REQUIRE_ACTIONS{$mtype}.pl\"\n";
 	    my $err = undef;
 	    eval '$err = ' . $var::REQUIRE_ACTIONS{$mtype} .
-	      '::filter($orig_cfile, $contref, $weighted_str, $headings, $fields);';
+	      '::filter($orig_cfile, $contref, $weighted_str, $headings, $fields,$mother_cfile,$fragment);';
 	    if ($err) {
 		return ($file_size, $file_size, 0, "$mtype; x-error=$err");
 	    }