# -*- tcl -*-

rename doDivRef {}

proc doDivRef {} {
    rtf:insertField "{REF [uniqueID] \\n}" "[currentDivNo]"
    global rtfSpecial
    rtf:write " [localize onPage]$rtfSpecial(EnSpace)"
    rtf:insertField "{PAGEREF [uniqueID] \\n}" "?????"
}

