X-Git-Url: https://git.decadent.org.uk/gitweb/?p=memories.git;a=blobdiff_plain;f=tag_dates;fp=tag_dates;h=0000000000000000000000000000000000000000;hp=e44af81acc1e506a64ea7bca52e427db5e390d97;hb=5acf53e85633363aa8a207e9e08448f27a4544f9;hpb=293d891079d7545676d0a880b3b8c4f0ebacfd2c

diff --git a/tag_dates b/tag_dates
deleted file mode 100644
index e44af81..0000000
--- a/tag_dates
+++ /dev/null
@@ -1,10 +0,0 @@
-use Memories;
-my $it = Memories::Photo->retrieve_all;
-
-my $thing = $it->first;
-do {
-    print $thing->title, "   $tag\n";
-    my $tag = "date:".$thing->shot->ymd;
-    $thing->add_to_system_tags({tag => Memories::SystemTag->find_or_create({name
-    =>$tag}) });
-} while $thing = $it->next;