Changeset 2079

Timestamp:

2001-02-27T16:22:13+13:00 (23 years ago)

Author:

paynter

Message:

Added a new binary field to the savephrases output that indicates whether
the phrase occured in the thesaurus.

File:

• trunk/gsdl/perllib/classify/phind.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/phind.pm

@@ -1351 +1351 @@
     # 2. 
     # Translate phrases.3 to MGPP input files
-    my ($key, $text, $word);
+    my ($key, $text, $word, $isThesaurus);
     my @fields;
     my $linenumber = 0;
@@ -1393 +1393 @@
     # output the phrases to a text file
     if ($savephrases) {
-        print SAVE $fields[0], "\t", $fields[2], "\t", "$text\n";
+        if ((scalar @fields) == 7) {
+        $isThesaurus = 1;
+        } else {
+        $isThesaurus = 0;
+        }
+        print SAVE $fields[0], "\t", $fields[2], "\t$isThesaurus\t$text\n";
     }
     }