From b6877a9a245963cef3632ca4f6737da04dbc6d5c Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Fri, 14 Sep 2012 15:14:06 +0000
Subject: [PATCH] 2012-09-14 17:13 UTC+0200 Viktor Szakats (harbour syenar.net)
   * extras/hbvpdf/hbvpdft.prg     ! missing #define LEFTEQUAL()

---
 harbour/ChangeLog                 | 4 ++++
 harbour/extras/hbvpdf/hbvpdft.prg | 7 ++++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 27b5395b7b..10b498a11e 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-09-14 17:13 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * extras/hbvpdf/hbvpdft.prg
+    ! missing #define LEFTEQUAL()
+
 2012-09-14 16:32 UTC+0200 Viktor Szakats (harbour syenar.net)
   * utils/hbmk2/hbmk2.prg
     ! keep -trace mode turned off in --hbinfo mode, otherwise
diff --git a/harbour/extras/hbvpdf/hbvpdft.prg b/harbour/extras/hbvpdf/hbvpdft.prg
index 6ecb92f8ac..5624aae6cd 100644
--- a/harbour/extras/hbvpdf/hbvpdft.prg
+++ b/harbour/extras/hbvpdf/hbvpdft.prg
@@ -18,7 +18,6 @@
    #endif
 #endif
 
-
 #ifdef __HARBOUR__
    #include      "hbclass.ch"
 #endif
@@ -33,6 +32,8 @@
    #include     "class(y).ch"
 #endif
 
+#define LEFTEQUAL( l, r )  ( Left( l, Len( r ) ) == r )
+
 //-------------------------\\
 
 #include             "hbvpdf.ch"
@@ -822,7 +823,7 @@ local nSize, aSize := { { "LETTER",    8.50, 11.00 }, ;
                         { "DL",        4.33,  8.66 }, ;
                         { "B5",        6.93,  9.84 } }
 
-DEFAULT _cPageSize TO "LETTER"
+   DEFAULT _cPageSize TO "LETTER"
 
    nSize := ascan( aSize, { |arr| LEFTEQUAL( arr[ 1 ], _cPageSize ) } )
 
@@ -850,7 +851,7 @@ METHOD tPdf:PageOrient( _cPageOrient )
 METHOD PageOrient( _cPageOrient )
 #endif
 
-DEFAULT _cPageOrient TO "P"
+   DEFAULT _cPageOrient TO "P"
 
    ::aReport[ PAGEORIENT ] := _cPageOrient
    ::PageSize( ::aReport[ PAGESIZE ] )