<perl>
#out"Test: 1. $cmd 2. $uid<br>";###Ausgabe, ob da überhaupt was passiert
if(%_put) {
 if(!$_put{BurgID}) {
 out "Burglink eingeben";
 $cmd="do_add";
 }
 if ($cmd eq "add") {
 $_put{UID}=$uid; #Hier klappt es!!!
 get ["BurgID", "==", "$_put{BurgID}"], "main";
  if ($_amount_query > 0) {
  $cmd="do_add";
  out "Burg bereits reserviert";
  }
 }
 if ($cmd eq "mod") {
 $_mod{CID}=$uid;  #
# $_put{CID}=$uid; #Beides keine Auswirkung
 }
 if(!$_put{PLAYER}) {
 $_put{PLAYER}=$uid;
 }
}
</perl>