The warning message is more adjusted too.
sub DoEdit { ... + if ($oldText ne $Text{'text'}) { print "<h2>", T('Preview only, not yet saved'), "</h2>\n"; + } else { + print "<h2>", T('Preview only, already saved'), "</h2>\n"; + } print '</div>'; ... }--JuanmaMP