Clear out debugging info

git-svn-id: http://svn.simon-cozens.org/memories/trunk@49 041978f6-d955-411f-a9d7-1d8545c9c3c7

diff --git a/Memories/Photo.pm b/Memories/Photo.pm
index 6e09ae9cf6034a978899960fa2a638c8a24f272d..4945dd8fc719510f045da426022b9692882dc649 100644 (file)
--- a/Memories/Photo.pm
+++ b/Memories/Photo.pm
@@ -94,7 +94,6 @@ sub upload_file {
     my ($self, $r, $filename, $offered_name) = @_;
     my $mm = File::MMagic->new;
     my $res = $mm->checktype_filename($filename);
-    warn "$filename is a $res\n";
     if ($res =~ m{/x-zip} or $offered_name =~ /t(ar\.)?gz$/i) {
         return $self->upload_archive($r, $filename);
     } elsif ($offered_name =~ /\.(raw|nef|dng|cr2)/i) {
@@ -161,11 +160,8 @@ sub upload_jpeg {
     $photo->make_thumb;
     my $tags = $r->{params}{tags}.join " ", map { qq{"$_"} } $photo->tags_exif;
     $photo->add_tags($tags);
-warn "D";
     $photo->add_to_imageseek_library;
     Memories->zap_cache();
-warn "E";
-
     # Add system tags here
     my $tag = "date:".$photo->shot->ymd;
     $photo->add_to_system_tags({tag => Memories::SystemTag->find_or_create({name =>$tag}) });
@@ -337,7 +333,6 @@ sub sized_url { # Use this rather than ->path from TT
     my $resized = Memories->config->{sizes}->[$size];
     if (!$resized) { cluck "Asked for crazy size $size"; return; }
     if ($resized eq "full") { return $self->path("url") }
-    warn "Looking for path ".$self->path(file => $resized);
     $self->scale($resized) 
         unless -e $self->path( file => $resized );
     return $self->path(url => $resized);