[Bast-commits] r7635 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Manual

[brunov at dev.catalyst.perl.org]

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',[