tag_dates

   1 use Memories;
   2 my $it = Memories::Photo->retrieve_all;
   3
   4 my $thing = $it->first;
   5 do {
   6     print $thing->title, "   $tag\n";
   7     my $tag = "date:".$thing->shot->ymd;
   8     $thing->add_to_system_tags({tag => Memories::SystemTag->find_or_create({name
   9     =>$tag}) });
  10 } while $thing = $it->next;