[- $r = shift ; $sub = $r -> {curritem}{sub} ; $lang = $r -> param -> language ; $app = $r -> app ; -]