You may try to write a function, which will recursively check the record and
call "update" on each subclass of DBIx::Class.
On Sat, Oct 18, 2008 at 12:35 AM, Jess Robinson <
[EMAIL PROTECTED]> wrote:
>
>
> On Thu, 16 Oct 2008, Ozum Eldogan wrote:
>
> I'm working on a simple bill recording system. A company may have many
>> bills
>> and I want to update both company and a related bill with a single update
>> method call.
>>
>> Table: companies
>> package Schema::Company;
>> __PACKAGE__->has_many("bills", "Schema::Bill", { "foreign.company_id" =>
>> "self.id" });
>>
>> Table: bills
>> package Schema::Bill;
>> __PACKAGE__->belongs_to("company", "Schema::Company", { id => "company_id"
>> });
>>
>> For testing purposes I have only one company and several bills belongs to
>> that company. In my code I get a company and all bills via
>>
>> my $rs = $app->schema->resultset('Bill')->search(
>> {
>> 'me.id' => {'>', 0}
>> },
>> {
>> join => [qw/company/],
>> prefetch => [qw/company/],
>> }
>> );
>>
>> my $record = $rs->next;
>>
>> print $record->bill_description; # prints 'Bill for development'
>> $record->bill_description('Service Bill');
>>
>> print $record->company->name; # prints 'Speed Inc.'
>> $record->company->name('Slow Inc.');
>>
>> $record->update; # updates only bill
>> $record->company->update; # updates company
>>
>>
>> I want $record->update to update both bill and related company. In future
>> I
>> may have lots of related tables and I don't want to iterate through and
>> hand
>> code check and update all changed records.
>>
>>
> SQL doesnt have a method to update two tables in one call..
>
> You're looking for a transaction, see DBIx::Class::Schema "txn_do".
>
> Jess
>
>
>
> _______________________________________________
> 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/[email protected]
>
_______________________________________________
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/[email protected]
