&General::log ("WARNING: cannot build cachelang file for [$missed].") if ($error);
return $error;
}
+
+sub RightToLeft() {
+ if ($language eq "fa") {
+ return 1;
+ }
+
+ return 0;
+}
+
1;
print <<END
<?xml version='1.0' encoding='UTF-8'?>
<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>
-<html xmlns='http://www.w3.org/1999/xhtml'>
+END
+;
+
+my $rtl = &Lang::RightToLeft();
+if ($rtl > 0) {
+ print "<html xmlns='http://www.w3.org/1999/xhtml' dir='rtl'>";
+} else {
+ print "<html xmlns='http://www.w3.org/1999/xhtml'>";
+}
+
+print <<END
<head>
<title>$title</title>
$extrahead
print <<END
<?xml version='1.0' encoding='UTF-8'?>
<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>
-<html xmlns='http://www.w3.org/1999/xhtml'>
+END
+;
+
+my $rtl = &Lang::RightToLeft();
+if ($rtl > 0) {
+ print "<html xmlns='http://www.w3.org/1999/xhtml' dir='rtl'>";
+} else {
+ print "<html xmlns='http://www.w3.org/1999/xhtml'>";
+}
+
+print <<END
<head>
<title>$title</title>
$extrahead