Listing class spells with NPC and plugin

[N0ctrnl]

I'm working on a plugin to read spells from a table (by class) and report data in a table. Basically I've taken Akkadius' Leaderboards plugin and hacked it up to accomplish this.

sub ShowSpellList {
  my $class = $_[0];
  $connect = plugin::LoadMysql();

  $query = "SELECT
    `Name`,
    `class`,
    `level`,
    `expansion`,
    `spell_id`
      FROM
    `va_spells`
      WHERE class = ? ORDER BY level";
  $query_handle = $connect->prepare($query);

  $query_handle->execute($class);
  quest::debug("$DBI::errstr") if $DBI::errstr;
  my $Result = "";
  while (@row = $query_handle->fetchrow_array()){
    my ($spell_name, $spell_class, $spell_level, $spell_expansion, $spell_id) = $query_handle->fetchrow();
    $count++;
    quest::debug("Name: $spell_name");
    quest::debug("Class $spell_class");
    quest::debug("Level $spell_level");
    quest::debug("Expansion $spell_expansion");
    quest::debug("ID $spell_id");

  $Result .= "
    <tr>
      <td><c \"#FFFF66\">$count~</td>
      <td><c \"#FFFF66\">" . $spell_name . "~</td>
      <td><c \"#DF7401\">" . $spell_class . "~ </td>
      <td><c \"#00FF00\">" . $spell_level . "~ </td>
      <td><c \"#FF0000\">" . $spell_expansion . "~ </td>
      <td><c \"#3366FF\">" . $spell_id . "~ </td>
    </tr>";
  }

  $count = 0;
  plugin::DiaWind(
    "{linebreak}
    <br>
    Spells ~
    <br>
    {linebreak}
    <br>
    <table>
      <tr>
        <th></th>
        <th>Name</th>
        <th>Class</th>
        <th>Level</th>
        <th>Expansion</th>
        <th>Spell ID</th>
      </tr>
      " . $Result . "
    </table>
    noquotes
  ");
}

The query works, and the debug messages report things correctly. Just doesn't pop up a window with a table in it.



I don't see anything obvious, but it probably is