Hi all, I've been working on converting much of my DBI code to DBIx::Class, and am a tad bit stuck.
This particular issue is one that I've worked on for quite a few hours, while testing out different combinations I've found in the great number of docs. I'm at the point now where I could use an experienced set of eyes. My original code: my $insert_sth = $dbh->prepare(" INSERT INTO aggregate_daily ( UserName, AcctDate, ConnNum, ConnTotDuration, ConnMaxDuration, ConnMinDuration, InputOctets, OutputOctets, NASIPAddress ) SELECT UserName, '$day', COUNT(*), SUM(AcctSessionTime), MAX(AcctSessionTime), MIN(AcctSessionTime), SUM(AcctInputOctets), SUM(AcctOutputOctets), NASIPAddress FROM radacct WHERE AcctStopTime like '$day%' GROUP BY UserName,NASIPAddress ") or die $DBI::errstr; ...and the new code (albeit unfinished, as I am just trying to get the basics of a select down first). Although it runs without error, I have no indication that I'm doing things properly. When I dump the $rs with Data::Dumper, I do not see the expected data. Can someone let me know if I'm on the right track? my $rs = $schema->resultset( 'Radacct' )->search( undef, { select => [ 'username', { count => 'radacctid' }, { sum => 'acctsessiontime' }, { max => 'acctsessiontime' }, { min => 'acctsessiontime' }, { sum => 'acctinputoctets' }, { { sum => 'acctoutputoctets' }, 'nasipaddress', ], group_by => [ qw/ username nasipaddress / ], as => [ 'daily' ], }); Steve _______________________________________________ List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class IRC: irc.perl.org#dbix-class SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/ Searchable Archive: http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk