X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=Memories%2FPhoto.pm;h=bcfb59c39c8f7db2b3811c6e53fa1eff38f23b1f;hb=f2b33d6a43cde2f4e9c1170f3ae15a5cfb62d09e;hp=ce0cd2003a777277b06e5e535389e14c1be033ba;hpb=0462f25b10e5adb4eacc0e11f4ced5165784f38f;p=memories.git

diff --git a/Memories/Photo.pm b/Memories/Photo.pm
index ce0cd20..bcfb59c 100644
--- a/Memories/Photo.pm
+++ b/Memories/Photo.pm
@@ -303,7 +303,6 @@ sub scale {
     }
 }
 
-use Text::Balanced qw(extract_multiple extract_quotelike);
 sub edit_tags :Exported {
     my ($self, $r) = @_;
     my $photo = $r->objects->[0];
@@ -321,7 +320,7 @@ sub edit_tags :Exported {
 sub add_tags {
     my ($photo, $tagstring) = @_;
 
-    for my $tag (map { s/^"|"$//g; $_} extract_multiple(lc $tagstring, [ \&extract_quotelike, qr/([^\s]+)/ ], undef,1)) {
+    for my $tag (Tagtools->separate_tags($tagstring)) {
         $photo->add_to_tags({tag => Memories::Tag->find_or_create({name =>$tag}) })
     }
 }