Hi

I'm having a problem with CGI::Application, HTML::Template and array references. I've got the following code in a sub:

sub get_newsletters {
# ----------------------------------------------------------------
#
    my $self = shift;
    
    my $dbh = $self->param('dbh'); 
         
    use Net::POP3;

    my $pop = Net::POP3->new('mail.foo.bar', Timeout => 60);

    my $username = "foo";
    my $password = "bar";
    
    my (@messages);
            
    if ($pop->login($username, $password) > 0) {
   
        my $msgnums = $pop->list; # hashref of msgnum => size
        
          foreach my $msgnum (keys %$msgnums) {
          
              my %row;
      
            my $msg = $pop->get($msgnum);
            
              $row{id}        = $msgnum;
              $row{email}     = @$msg;
    
            warn "print $row{id} - @$msg";
            
 #           $pop->delete($msgnum);
            
            push (@messages,\%row);
          }
    }

    $pop->quit;
      
    my $tmpl_path = "view_emails.shtml";
    my $tmpl = $self->load_tmpl($tmpl_path, die_on_bad_params => 0);

    $tmpl->param ( 
        messages       => \@messages,          
    );

    $self->_set_username_in_tmpl(\$tmpl);

    return $tmpl->output;
}
[download]

And the following in a HTML template file:

    <TMPL_LOOP NAME="messages"> 
    <p><TMPL_VAR NAME=id></p>
    <p><TMPL_VAR NAME=email></p>
    </TMPL_LOOP>
[download]

I keep getting the following error message:

[Tue Mar 16 12:11:04 2004] index.pl: Error executing run mode 'get_new
+sletters': HTML::Template->output() : fatal error in loop output : HT
+ML::Template::param() : attempt to set parameter 'email' with an arra
+y ref - parameter is not a TMPL_LOOP! at /usr/local/share/perl/5.8.2/
+HTML/Template.pm line 2905
[download]

I'm consfused by this error. I've tried changing @$msg to $msg and the same error appears. I stuck in that warn in the code, and the warn prints the message to stdout perfectly. But for some reason, HTML::Templates chokes.

Any ideas?

- wil

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.