Agnarr port up not working

[sorvani]

Ok, straight out of the quest SVN the port up to the Agnarr event does not work.

The player.pl does successfully build the array of players to port, but the port does not work.
I added some client messages to see what went wrong.

Originally Posted by Result on Koro's screen:

Adding: Varalla <- raid group 1
Adding: Koro <- raid group 1 and toon that clicked door
Adding: Crathe <- raid group 2
Adding: Symaray <- raid group 2
Porting: Varalla <- was not ported
This is locked...
You got it open!

Koro was ported up but Varalla wasn't even though it never said anything about Koro.

So I removed the player.pl entirely and it still ported Koro up so I looked int he code and the door click code is handling his port up. So I added an IF statement to exclude the clicker from the array incase that was causing some type of conflict and tried again.

Originally Posted by Result on Koro's screen:

Adding: Varalla <- raid group 1
Adding: Crathe <- raid group 2
Adding: Symaray <- raid group 2
Porting: Varalla <- was not ported
This is locked...
You got it open!

sub EVENT_CLICKDOOR {
  if($doorid == 51) { # agnarr entrance
    if($client->KeyRingCheck(9433) || ($status > 79)) {
      quest::setglobal("agnarrkey",1,3,"M5"); # old method in case new method doesn't work
      $raid = $entity_list->GetRaidByClient($client);
      if ($raid) {
        for ($count = 0; $count < $raid->RaidCount(); $count++) {
		  # added if to keep the clicker's name out of the array as the door code handles the clicker's port up.
		  if ($client->GetName() ne $raid->GetMember($count)->GetName()) {
            push (@player_list, $raid->GetMember($count)->GetName());
		    $client->Message(1,"Adding: ".$raid->GetMember($count)->GetName());
		  }
        }
        foreach $player (@player_list) {
          my $pc = $entity_list->GetClientByName($player);
		  $client->Message(1,"Porting: ".$player);
          $pc->MovePC(209,-765,-1735,1270);
        }
      }
    } else {
      my $gargoyle_check = $entity_list->GetMobByNpcTypeID(209024);
      if ($gargoyle_check) {
        my $gargoyle = $gargoyle_check->CastToNPC();
        $gargoyle->AddToHateList($client, 1);
      }
    }
  }
  #tower door code removed as not relevant to testing
}