Changeset 22382 for main/trunk/greenstone2/perllib/classify/Phind.pm

Timestamp:

2010-07-13T13:18:34+12:00 (14 years ago)

Author:

kjdon

Message:

if language is ar for phind, then we set textorientation parameter to rtl.

File:

• main/trunk/greenstone2/perllib/classify/Phind.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/classify/Phind.pm

@@ -190 +190 @@
     $self->{'total'} = 0;
     
+    # we set phind to be rtl if language is arabic
+    if ($self->{'language'} eq "ar") {
+    $self->{'textorientation'} = "rtl";
+    }
     # Clean out the unused keys
     delete $self->{"text"};
@@ -442 +446 @@
     &execute("mgpp_passes $osextra -f \"$mg_stem\" -T2 \"$mg_input\"", $verbosity, $out);
 
+    my $parameters = "phindnumber=$self->{'phindnumber'}";
+    if (defined ($self->{'textorientation'})) {
+    $parameters .= ";textorientation=$self->{'textorientation'}";
+    }
     # Return the information about the classifier that we'll later want to
     # use to create macros when the Phind classifier document is displayed.
@@ -447 +455 @@
                         'childtype'=>'Phind', 
                         'Title'=>$self->{'buttonname'},
-                        'parameters'=>"phindnumber=$self->{'phindnumber'}",
+                        'parameters'=>$parameters,
             'contains'=>[]);