2016-04-25 13:34:00

1 files changed, 21 insertions, 4 deletions

diff --git a/tex/context/base/mkiv/strc-pag.lua b/tex/context/base/mkiv/strc-pag.lua
index 96d26e6f6..dcd35fc20 100644
--- a/tex/context/base/mkiv/strc-pag.lua
+++ b/tex/context/base/mkiv/strc-pag.lua
@@ -263,12 +263,23 @@ function helpers.prefix(data,prefixspec)
     end
 end
 
+function helpers.pageofinternal(n,prefixspec,pagespec)
+    local data = structures.references.internals[n]
+    if not data then
+        -- error
+    elseif prefixspec then
+        helpers.prefixpage(data,prefixspec,pagespec)
+    else
+        helpers.prefix(data,pagespec)
+    end
+end
+
 function pages.is_odd(n)
     n = n or texgetcount("realpageno")
     if texgetcount("pagenoshift") % 2 == 0 then
-        return n % 2 == 0
-    else
         return n % 2 ~= 0
+    else
+        return n % 2 == 0
     end
 end
 
@@ -277,9 +288,9 @@ function pages.on_right(n)
     if pagemode == 2 or pagemode == 1 then
         n = n or texgetcount("realpageno")
         if texgetcount("pagenoshift") % 2 == 0 then
-            return n % 2 == 0
-        else
             return n % 2 ~= 0
+        else
+            return n % 2 == 0
         end
     else
         return true
@@ -399,3 +410,9 @@ implement { -- weird place
         }
     }
 }
+
+interfaces.implement {
+    name      = "pageofinternal",
+    arguments = { "integer" },
+    actions   = helpers.pageofinternal,
+}