view release on metacpan or  search on metacpan

lib/FSpot/DbTool.pm  view on Meta::CPAN

Update a photo in the database

Usage:
  $details = { 'filename' => $newname,
               'base_uri' => $new_base_uri };
  $fs->update_photo_version( photo_id   => $id,
                             details    => $details );

=cut
sub update_photo{
    my ( $self, %params ) = validated_hash(
                                           \@_,
                                           photo_id    => { isa   => 'Int' },
                                           details     => { isa   => 'NonEmptyHashRef' },
                                          );
    my( @cols, @vals );
    foreach my $column( keys( %{ $params{details} } ) ){
        $self->column_must_exist( table  => 'photos',
                                  column => $column );
        push( @cols, "$column=?" );

lib/FSpot/DbTool.pm  view on Meta::CPAN

Update a version of a photo in the database

Usage:
  $details = { 'filename' => $newname,
               'base_uri' => $new_base_uri };
  $fs->update_photo_version( photo_id   => $id,
                             version_id => $version_id,
                             details    => $details );

=cut
sub update_photo_version{
    my ( $self, %params ) = validated_hash(
                                           \@_,
                                           photo_id    => { isa   => 'Int' },
                                           version_id  => { isa   => 'Int' },
                                           details     => { isa   => 'NonEmptyHashRef' },
                                          );

    my( @cols, @vals );
    foreach my $column( keys( %{ $params{details} } ) ){
        $self->column_must_exist( table  => 'photo_versions',