UseMod Wiki: UpdateLinksList

Performs the actions requested on the Edit/Rename Pages form.

Patch

A minor tweak to make life easier for admins. Replace this:

 print "renaming " . $GivenPage . " to " . $GivenNewName  ."<BR>";
 &RenamePage($GivenPage, $GivenNewName, $doRC, $doText);

With this:

 print "renaming " . $GivenPage . " to " . GetPageLink($GivenNewName)  ."<BR>";
 &RenamePage($GivenPage, $GivenNewName, $doRC, $doText);

So you can go direct to the renamed page.

This one passes the name of the page that the "Edit/Rename pages" link was followed from to the resulting form:

In sub GetAdminBar? add an id parameter to the action=editlinks line:

 $result .= " | "  . &ScriptLink("action=editlinks&oid=$id", T("Edit/Rename pages"));  # pass the old name

Retrieve that param in sub DoEditLinks? and put it in the textarea:

 my $oid = &GetParam("oid", ""); # catch the passed name
 print &GetTextArea('commandlist', "$oid", 12, 50); # put it in the textarea

Improved:

This replaces the "Edit/Rename pages" link with "Rename/Links/Delete" where each word is linked to insert the appropriate markup for each function.

In sub GetAdminBar? replace the action=editlinks line with this:

 $result .= " | "  . 
  &ScriptLink("action=editlinks&oid==$id=", T("Rename")) . '/' .
  &ScriptLink("action=editlinks&oid=|$id|", T("Links"))  . '/' .
  &ScriptLink("action=editlinks&oid=!$id",  T("Delete"));