[Bast-commits] r7635 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Manual
brunov at dev.catalyst.perl.org
brunov at dev.catalyst.perl.org
Fri Sep 11 23:25:12 GMT 2009
Author: brunov
Date: 2009-09-11 23:25:12 +0000 (Fri, 11 Sep 2009)
New Revision: 7635
Modified:
DBIx-Class/0.08/trunk/lib/DBIx/Class/Manual/Example.pod
Log:
Update DBIx::Class::Manual::Example.pod to reflect previous changes in examples/Schema/insertdb.pl
Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Manual/Example.pod
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Manual/Example.pod 2009-09-11 22:58:58 UTC (rev 7634)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Manual/Example.pod 2009-09-11 23:25:12 UTC (rev 7635)
@@ -155,10 +155,10 @@
my @cds;
foreach my $lp (keys %albums) {
- my $artist = $schema->resultset('Artist')->search({
+ my $artist = $schema->resultset('Artist')->find({
name => $albums{$lp}
});
- push @cds, [$lp, $artist->first];
+ push @cds, [$lp, $artist->id];
}
$schema->populate('Cd', [
@@ -179,10 +179,10 @@
my @tracks;
foreach my $track (keys %tracks) {
- my $cdname = $schema->resultset('Cd')->search({
+ my $cdname = $schema->resultset('Cd')->find({
title => $tracks{$track},
});
- push @tracks, [$cdname->first, $track];
+ push @tracks, [$cdname->id, $track];
}
$schema->populate('Track',[
More information about the Bast-commits
mailing list