Skip Menu |
 

This queue is for tickets about the DBIx-Class CPAN distribution.

Report information
The Basics
Id: 35976
Status: resolved
Priority: 0/
Queue: DBIx-Class

People
Owner: Nobody in particular
Requestors: mutant.nz [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.08010
Fixed in: (no value)



Subject: Possible bug in updating a foreign key
Download (untitled) / with headers
text/plain 483b
Have tried to create a minimal example of what seems like a bug to me. If I prefetch via a belongs_to relationship, then update the foreign key on the main object, the related object isn't refreshed. That might be ok, but when I call discard_changes, it refreshes using the *old* key. Possibly, I'm doing something I shouldn't be, in which case please let me know :) I hope the script is mostly self explanatory. It obviously works against the attached mysql DB dump. Thanks, Sam.
Subject: dbic_test.pl
Download dbic_test.pl
text/x-perl 1k
use strict; use warnings; package MyApp::Schema::CD; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/ Core/); __PACKAGE__->table('cd'); __PACKAGE__->add_columns(qw/cd_id artist_id/); __PACKAGE__->set_primary_key('cd_id'); __PACKAGE__->belongs_to( 'artist', 'MyApp::Schema::Artist', { 'foreign.artist_id' => 'self.artist_id' } ); package MyApp::Schema::Artist; use base 'DBIx::Class'; __PACKAGE__->load_components(qw/ Core/); __PACKAGE__->table('artist'); __PACKAGE__->add_columns(qw/artist_id/); __PACKAGE__->set_primary_key('artist_id'); package MyApp::Schema; use base qw/DBIx::Class::Schema/; __PACKAGE__->load_classes(qw/CD Artist/); package main; my $schema = MyApp::Schema->connect( "dbi:mysql:test-dbic", "root", "", {AutoCommit => 1}, ); my $cd = $schema->resultset('CD')->find( { cd_id => 1, }, { prefetch => 'artist', }, ); print "before update: " . $cd->artist->id . "\n"; $cd->artist_id(2); $cd->update; $cd->artist->discard_changes; print "after update: " . $cd->artist->id . "\n";
Subject: test.sql
Download test.sql
text/x-sql 2k
-- MySQL dump 10.11 -- -- Host: localhost Database: test-dbic -- ------------------------------------------------------ -- Server version 5.0.45-Debian_1ubuntu3.3-log /*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */; /*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */; /*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */; /*!40101 SET NAMES utf8 */; /*!40103 SET @OLD_TIME_ZONE=@@TIME_ZONE */; /*!40103 SET TIME_ZONE='+00:00' */; /*!40014 SET @OLD_UNIQUE_CHECKS=@@UNIQUE_CHECKS, UNIQUE_CHECKS=0 */; /*!40014 SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0 */; /*!40101 SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE='NO_AUTO_VALUE_ON_ZERO' */; /*!40111 SET @OLD_SQL_NOTES=@@SQL_NOTES, SQL_NOTES=0 */; -- -- Table structure for table `artist` -- DROP TABLE IF EXISTS `artist`; CREATE TABLE `artist` ( `artist_id` int(11) NOT NULL auto_increment, PRIMARY KEY (`artist_id`) ) ENGINE=MyISAM AUTO_INCREMENT=3 DEFAULT CHARSET=latin1; -- -- Dumping data for table `artist` -- LOCK TABLES `artist` WRITE; /*!40000 ALTER TABLE `artist` DISABLE KEYS */; INSERT INTO `artist` VALUES (1),(2); /*!40000 ALTER TABLE `artist` ENABLE KEYS */; UNLOCK TABLES; -- -- Table structure for table `cd` -- DROP TABLE IF EXISTS `cd`; CREATE TABLE `cd` ( `cd_id` int(11) NOT NULL auto_increment, `artist_id` int(11) NOT NULL, PRIMARY KEY (`cd_id`) ) ENGINE=MyISAM AUTO_INCREMENT=2 DEFAULT CHARSET=latin1; -- -- Dumping data for table `cd` -- LOCK TABLES `cd` WRITE; /*!40000 ALTER TABLE `cd` DISABLE KEYS */; INSERT INTO `cd` VALUES (1,1); /*!40000 ALTER TABLE `cd` ENABLE KEYS */; UNLOCK TABLES; /*!40103 SET TIME_ZONE=@OLD_TIME_ZONE */; /*!40101 SET SQL_MODE=@OLD_SQL_MODE */; /*!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS */; /*!40014 SET UNIQUE_CHECKS=@OLD_UNIQUE_CHECKS */; /*!40101 SET CHARACTER_SET_CLIENT=@OLD_CHARACTER_SET_CLIENT */; /*!40101 SET CHARACTER_SET_RESULTS=@OLD_CHARACTER_SET_RESULTS */; /*!40101 SET COLLATION_CONNECTION=@OLD_COLLATION_CONNECTION */; /*!40111 SET SQL_NOTES=@OLD_SQL_NOTES */; -- Dump completed on 2008-05-17 19:29:54
Download (untitled) / with headers
text/plain 456b
On Sat May 17 15:36:05 2008, Mutant wrote: Show quoted text
> Have tried to create a minimal example of what seems like a bug to me. > If I prefetch via a belongs_to relationship, then update the foreign key > on the main object, the related object isn't refreshed.
That's correct, but it's not so much a bug as a missing feature. TODO test and/or test+patch welcome. If you want to discuss this further, please subscribe to dbix-class@lists.scsys.co.uk and so so there.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.