Changeset 7e2443a99f50bbbead6e6e0b9608d89a62f504c5 in xas-model


Ignore:
Timestamp:
03/25/19 15:13:13 (4 months ago)
Author:
Kevin L. Esteb <kevin@…>
Branches:
master
Children:
c478ee18569a7e74552fde4e97804604670b88ee
Parents:
113b9590afb8ea410808e70d4589715631b3e20a
git-author:
Kevin L. Esteb <kevin@…> (03/25/19 15:13:13)
git-committer:
Kevin L. Esteb <kevin@…> (03/25/19 15:13:13)
Message:

bug fixes

Location:
trunk/lib/XAS
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/XAS/Model.pm

    r9ab6dcca06ea9b5190ab8257040a2a5b2cc001f6 r7e2443a99f50bbbead6e6e0b9608d89a62f504c5  
    11package XAS::Model; 
    22 
    3 our $VERSION = '0.02'; 
     3our $VERSION = '0.03'; 
    44 
    551; 
     
    116116=head1 COPYRIGHT AND LICENSE 
    117117 
    118 Copyright (c) 2012-2015 Kevin L. Esteb 
     118Copyright (c) 2012-2019 Kevin L. Esteb 
    119119 
    120120This is free software; you can redistribute it and/or modify it under 
  • trunk/lib/XAS/Model/DBM.pm

    r632bca7e13318d039e389ab17a8895c28e057a0e r7e2443a99f50bbbead6e6e0b9608d89a62f504c5  
    226226        # create the record 
    227227 
    228         $class->create($schema, $data); 
     228        my $result = $class->create($schema, $data); 
    229229 
    230230        while (my ($key, $value) = each(%$record)) { 
     
    233233 
    234234        } 
     235         
     236        $rec->{'id'} = $result->id; 
    235237 
    236238    }); 
     
    247249    my $data = undef; 
    248250    my $criteria = { 
    249         id => $record->{id} 
     251        id => $record->{'id'} 
    250252    }; 
    251253 
     
    278280    my @columns = $class->columns; 
    279281    my $criteria = { 
    280         id => $record->{id} 
     282        id => $record->{'id'} 
    281283    }; 
    282284 
     
    315317 
    316318        } 
    317  
     319         
    318320    }); 
    319321 
Note: See TracChangeset for help on using the changeset viewer.