# -*- tcl -*-
# $Id: number_heads,v 1.4 2003/08/22 08:25:00 tobotras Exp $

rename openHead old_Open_Head

proc openHead {} {
    set type ""
    withNode parent {
	set type [attVal TYPE]
    }
    if { "$type" == "stub" } {
	return "[old_Open_Head]"
    } else {
	return "[old_Open_Head][currentDivNo]. "
    }
}
