Open Tickets

##

my @select_fields = qw(
  id
  subject
  requestors
);

my $template = HTML::Template->new( filename => 'ticket-short.tmpl' );

print $q->header();

foreach my $org ( keys %orgs ) {

    my $sql =
        "select "
      . join( ", ", @select_fields )
      . " from tickets where $orgs{$org}";

    my $sth = $dbh->prepare($sql) or die( "Cannot prepare: " . DBI::errstr() );
    $sth->execute() or die( "Cannot execute: " . DBI::errstr() );

    # Prepare a data structure for HTML::Template
    my $rows;
    push @{$rows}, $_ while $_ = $sth->fetchrow_hashref();

    if ( defined @{$rows} ) {
        $template->param( ROWS => $rows );
    }
}

print $template->output();

##

##


   
    
    
    
    
    

    
        Open Tickets
    
    
        Open Tickets
            
        
        
             -  -