sub DoEditLinks { print &GetHeader('', T('Editing Links'), ''); if ($AdminDelete) { return if (!&UserIsAdminOrError()); } else { return if (!&UserIsEditorOrError()); } print &GetFormStart(); print GetHiddenValue("edit_links", 1), "\n"; ... sub DoUpdateLinks { my ($commandList, $doRC, $doText); print &GetHeader('', T('Updating Links'), ''); - if ($AdminDelete) { - return if (!&UserIsAdminOrError()); - } else { - return if (!&UserIsEditorOrError()); } $commandList = &GetParam("commandlist", ""); $doRC = &GetParam("p_changerc", "0"); ...If not $AdminDelete?, then DoEditLinks? doesn't arrive to DoUpdateLinks?.
--JuanmaMP