From dfe8773477eefa51adbf343b8e8ceb93ce4efaa0 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 27 Feb 2021 19:42:42 +0000
Subject: [PATCH] contrib/commandref_join.pl: accept id for document tag (Forum
 #119166)

git-svn-id: https://svn.fhem.de/fhem/trunk@23843 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_MQTT2_CLIENT.pm    | 1 -
 fhem/FHEM/00_MQTT2_SERVER.pm    | 1 -
 fhem/FHEM/10_MQTT2_DEVICE.pm    | 1 -
 fhem/contrib/commandref_join.pl | 1 +
 4 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/fhem/FHEM/00_MQTT2_CLIENT.pm b/fhem/FHEM/00_MQTT2_CLIENT.pm
index 8483b8276..c986829b4 100644
--- a/fhem/FHEM/00_MQTT2_CLIENT.pm
+++ b/fhem/FHEM/00_MQTT2_CLIENT.pm
@@ -654,7 +654,6 @@ MQTT2_CLIENT_getStr($$)
 =begin html
 
 <a id="MQTT2_CLIENT"></a>
-<a name="MQTT2_CLIENT"></a>
 <h3>MQTT2_CLIENT</h3>
 <ul>
   MQTT2_CLIENT is a cleanroom implementation of an MQTT client (which connects
diff --git a/fhem/FHEM/00_MQTT2_SERVER.pm b/fhem/FHEM/00_MQTT2_SERVER.pm
index 294e2cfa1..cf5f72eb2 100644
--- a/fhem/FHEM/00_MQTT2_SERVER.pm
+++ b/fhem/FHEM/00_MQTT2_SERVER.pm
@@ -614,7 +614,6 @@ MQTT2_SERVER_ReadDebug($$)
 =begin html
 
 <a id="MQTT2_SERVER"></a>
-<a name="MQTT2_SERVER"></a>
 <h3>MQTT2_SERVER</h3>
 <ul>
   MQTT2_SERVER is a builtin/cleanroom implementation of an MQTT server using no
diff --git a/fhem/FHEM/10_MQTT2_DEVICE.pm b/fhem/FHEM/10_MQTT2_DEVICE.pm
index cfcc75570..0f6ac92a2 100644
--- a/fhem/FHEM/10_MQTT2_DEVICE.pm
+++ b/fhem/FHEM/10_MQTT2_DEVICE.pm
@@ -886,7 +886,6 @@ zigbee2mqtt_devStateIcon255($;$$)
 =begin html
 
 <a id="MQTT2_DEVICE"></a>
-<a name="MQTT2_DEVICE"></a>
 <h3>MQTT2_DEVICE</h3>
 <ul>
   MQTT2_DEVICE is used to represent single devices connected to the
diff --git a/fhem/contrib/commandref_join.pl b/fhem/contrib/commandref_join.pl
index 126084886..6d8d194f6 100755
--- a/fhem/contrib/commandref_join.pl
+++ b/fhem/contrib/commandref_join.pl
@@ -187,6 +187,7 @@ generateModuleCommandref($$;$$)
         $docCount++;
         next if($noWarnings);
         $hasLink = ($l =~ m/<a name="$mod"/) if(!$hasLink);
+        $hasLink = ($l =~ m/<a id="$mod"/) if(!$hasLink);
         foreach $tag (TAGS) {
           if($l =~ m/<$tag ([^>]+)>/i) {
             my $attr = $1;