Header according to parameter:
sub DoEditLock { my ($fname); - print &GetHeader('', T('Set or Remove global edit lock'), ''); + if (!&GetParam("set", 1)) { + print &GetHeader('', Ts('Removing global edit lock'), ''); + } else { + print &GetHeader('', Ts('Setting global edit lock'), ''); + }--JuanmaMP