Gallery2: Missing bits

[gallery.git] / gal2 / gal-gen

diff --git a/gal2/gal-gen b/gal2/gal-gen
index 7d244fe65edad26a85e6d9d86c8c87092f1bd067..3c1a6e98a81752dde349b14ae5816964b4d52310 100755 (executable)
--- a/gal2/gal-gen
+++ b/gal2/gal-gen
@@ -41,7 +41,6 @@ for my $f (@$orig_list) {
        my $id = $f->{id};
        my $rotate = $f->{orientation};
        my $xfrm = $f->{xfrm};
-       push @{$meta->{sequence}}, $id;
        print "$id: ";
 
        my $p = new Image::Magick;
@@ -69,7 +68,10 @@ for my $f (@$orig_list) {
                'xf' => $xfrm,
                'w' => $w,
                'h' => $h,
+               'title' => $f->{title},
        };
+       $meta->{photo}->{$id} = $m;
+       push @{$meta->{sequence}}, $id;
 
        my $om = $old_meta->{photo}->{$id};
        if ($om &&
@@ -79,7 +81,6 @@ for my $f (@$orig_list) {
            $om->{h} eq $m->{h}) {
                # FIXME: Remove old images?
                print "... uptodate\n";
-               $meta->{photo}->{$id} = $om;
                next;
        }
 
@@ -121,7 +122,6 @@ for my $f (@$orig_list) {
        rename $tmp, $photo or die "Cannot rename $tmp to $photo: $!\n";
 
        print "... OK\n";
-       $meta->{photo}->{$id} = $m;
 }
 
 print "Writing meta-data\n";