Changeset 49

Timestamp:

03/24/07 15:28:57 (1 year ago)

Author:

simon

Message:

Clear out debugging info

Files:

• trunk/Memories/Photo.pm (modified) (3 diffs)

trunk/Memories/Photo.pm

@@ -95 +95 @@
-    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);
@@ -162 +161 @@
-    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;
@@ -338 +334 @@
-    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 );