X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=zebra%2Fezeerex2pqfproperties.pl;h=1155b4cbd284578006f17b09121d48530d7844da;hp=a10c3f90839e5e72b5085b7215ec06b6e5c61f30;hb=0c7f526350e81439f54e5c2164855bde68a1013a;hpb=57d6dfb5d94a56ee3e0df12580acacc550f84041

diff --git a/zebra/ezeerex2pqfproperties.pl b/zebra/ezeerex2pqfproperties.pl
index a10c3f9..1155b4c 100755
--- a/zebra/ezeerex2pqfproperties.pl
+++ b/zebra/ezeerex2pqfproperties.pl
@@ -1,6 +1,6 @@
 #! /usr/bin/perl -w
 
-# $Id: ezeerex2pqfproperties.pl,v 1.4 2006-06-19 16:41:03 mike Exp $
+# $Id: ezeerex2pqfproperties.pl,v 1.5 2006-06-19 16:45:18 mike Exp $
 #
 # Run like this:
 #	./ezeerex2pqfproperties.pl zeerex.xml
@@ -69,6 +69,9 @@ sub print_indexes {
 	foreach my $map ($xc->findnodes("z:map", $node)) {
 	    my $setname = $xc->findvalue('z:name/@set', $map);
 	    my $indexname = $xc->findvalue('z:name', $map);
+	    ### We need a way for the ZeeRex record to specify other
+	    #   attributes to be specified along with the access-point,
+	    #   e.g. @attr 4=3 for whole-field indexes.
 	    print "index.$setname.$indexname = $ptype=$pval\n"
 		if $indexname ne "";
 	}