Changeset 39

Show
Ignore:
Timestamp:
02/24/07 22:01:26 (2 years ago)
Author:
simon
Message:

Write keywords back to file. Closes #3.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/Memories/Photo.pm

    r38 r39  
    373373    my $photo = $r->objects->[0]; 
    374374    my %params = %{$r->params}; 
     375    my $exifTool = new Image::ExifTool; 
    375376    for (keys %params) {  
    376377        next unless /delete_(\d+)/; 
    377378        my $tagging = Memories::Tagging->retrieve($1) or next; 
    378379        next unless $tagging->photo->id == $photo->id; 
     380        $exifTool->SetNewValue(Keywords => $1, DelValue => 1); 
    379381        $tagging->delete; 
    380382    } 
     383    $exifTool->WriteInfo($photo->path); 
    381384    $photo->add_tags($params{newtags}); 
    382385    $r->template("view"); 
    …… 
    385388sub add_tags { 
    386389    my ($photo, $tagstring) = @_; 
     390    my $exifTool = new Image::ExifTool; 
    387391 
    388392    for my $tag (Tagtools->separate_tags($tagstring)) { 
    389         $photo->add_to_tags({tag => Memories::Tag->find_or_create({name =>$tag}) }) 
    390     } 
     393        $photo->add_to_tags({tag => Memories::Tag->find_or_create({name =>$tag}) }); 
     394        $exifTool->SetNewValue(Keywords => $tag, AddValue => 1); 
     395    } 
     396    $exifTool->WriteInfo($photo->path); 
    391397} 
    392398