Changeset 22382 for main/trunk
- Timestamp:
- 2010-07-13T13:18:34+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/Phind.pm
r21876 r22382 190 190 $self->{'total'} = 0; 191 191 192 # we set phind to be rtl if language is arabic 193 if ($self->{'language'} eq "ar") { 194 $self->{'textorientation'} = "rtl"; 195 } 192 196 # Clean out the unused keys 193 197 delete $self->{"text"}; … … 442 446 &execute("mgpp_passes $osextra -f \"$mg_stem\" -T2 \"$mg_input\"", $verbosity, $out); 443 447 448 my $parameters = "phindnumber=$self->{'phindnumber'}"; 449 if (defined ($self->{'textorientation'})) { 450 $parameters .= ";textorientation=$self->{'textorientation'}"; 451 } 444 452 # Return the information about the classifier that we'll later want to 445 453 # use to create macros when the Phind classifier document is displayed. … … 447 455 'childtype'=>'Phind', 448 456 'Title'=>$self->{'buttonname'}, 449 'parameters'=> "phindnumber=$self->{'phindnumber'}",457 'parameters'=>$parameters, 450 458 'contains'=>[]); 451 459
Note:
See TracChangeset
for help on using the changeset viewer.