[jan] Add Horde_Pear_Package_Xml#setNotes().

lib/Horde/Pear/Package/Xml.php

@@ -441,8 +441,6 @@ public function syncCurrentVersion()
      * Add a new note to the package.xml
      *
      * @param string $note The note text.
-     *
-     * @return NULL
      */
     public function addNote($note)
     {
@@ -462,6 +460,28 @@ public function addNote($note)
         }
     }
 
+    /**
+     * Sets notes in the package.xml
+     *
+     * @param array[] $note  Lists of note texts with versions as keys.
+     */
+    public function setNotes(array $notes)
+    {
+        foreach ($notes as $version => $info) {
+            $new_notes = "\n* "
+                . implode("\n* ", explode("\n", trim($info['notes'])))
+                . "\n ";
+            if ($version == $this->getVersion()) {
+                $this->replaceTextNode('/p:package/p:notes', $new_notes);
+            }
+            if ($node = $this->_fetchRelease($version)) {
+                $this->replaceTextNodeRelativeTo(
+                    './p:notes', $node, $new_notes . '  '
+                );
+            }
+        }
+    }
+
     /**
      * Set the version in the package.xml
      *
@@ -668,9 +688,21 @@ private function _requireCurrentRelease()
      *
      * @return DOMElement|NULL The release node or empty if no such node was found.
      */
-    private function _fetchCurrentRelease()
+    protected function _fetchCurrentRelease()
     {
         $version = $this->getNodeText('/p:package/p:version/p:release');
+        return $this->_fetchRelease($version);
+    }
+
+    /**
+     * Fetch the node holding release information in the changelog.
+     *
+     * @param string $version  Version to fetch the release information from.
+     *
+     * @return DOMElement|NULL The release node or empty if no such node was found.
+     */
+    protected function _fetchRelease($version)
+    {
         foreach ($this->findNodes('/p:package/p:changelog/p:release') as $release) {
             if ($this->getNodeTextRelativeTo('./p:version/p:release', $release) == $version) {
                 return $release;

package.xml

@@ -21,6 +21,7 @@
  </stability>
  <license uri="http://www.horde.org/licenses/lgpl21">LGPL-2.1</license>
  <notes>
+* [jan] Add Horde_Pear_Package_Xml#setNotes().
 * [jan] Set replacement tasks for binaries and translation handlers.
  </notes>
  <contents>
@@ -665,6 +666,7 @@
    <date>2017-10-20</date>
    <license uri="http://www.horde.org/licenses/lgpl21">LGPL-2.1</license>
    <notes>
+* [jan] Add Horde_Pear_Package_Xml#setNotes().
 * [jan] Set replacement tasks for binaries and translation handlers.
    </notes>
   </release>