WikiBugs/TTatDoEditLinkAndTranslation

sub DoEditLinks {
  print &GetHeader('', T('Editing Links'), '');
  if ($AdminDelete) {
    return  if (!&UserIsAdminOrError());
  } else {
    return  if (!&UserIsEditorOrError());
  }
  print &GetFormStart();
  print GetHiddenValue("edit_links", 1), "\n";
  - print "<b>Editing/Deleting page titles:</b><br>\n";
  + print '<b>' . T('Editing/Deleting page titles:') ."</b><br>\n";
  - print "<p>Enter one command on each line.  Commands are:<br>",
  + print T('Enter one command on each line.  Commands are:') . '<br>',
        - "<tt>!PageName</tt> -- deletes the page called PageName<br>\n",
        + "<tt>!PageName</tt>" . T(' -- deletes the page called PageName') . "<br>\n",
        - <tt>=OldPageName=NewPageName</tt> -- Renames OldPageName ",
        + "<tt>=OldPageName=NewPageName</tt>" . T('-- Renames OldPageName '),
        - "to NewPageName and updates links to OldPageName.<br>\n",
        + T('to NewPageName and updates links to OldPageName') ."<br>\n",
        - "<tt>|OldPageName|NewPageName</tt> -- Changes links to OldPageName ",
        + "<tt>|OldPageName|NewPageName</tt>" . T(' -- Changes links to OldPageName '),
        - "to NewPageName.",
        + T('to NewPageName.'),
        - (Used to rename links to non-existing pages.)<br>\n",
        + T('(Used to rename links to non-existing pages.)') . "<br>\n",
        - "<b>Note: page names are case-sensitive!</b>\n";
        + "<b>" . T('Note: page names are case-sensitive!') . "</b>\n";
  print &GetTextArea('commandlist', "", 12, 50);
  print $q->checkbox(-name=>"p_changerc", -override=>1, -checked=>1,
                      - -label=>"Edit $RCName");
                      + -label=> Ts('"Edit %s, $RCName"');
  print "<br>\n";
  print $q->checkbox(-name=>"p_changetext", -override=>1, -checked=>1,
                      - -label=>"Substitute text for rename");
                      + -label=>T('"Substitute text for rename"'));
  print "<br>", $q->submit(-name=>'Edit'), "\n";
  print $q->endform;
  if (!&GetParam('embed', $EmbedWiki)) {
    print '<div class=wikifooter>';
    print "<hr class=wikilinefooter>\n";
    print &GetGotoBar('');
    print '</div>';
  }
  print &GetMinimumFooter();
}