Gallery2: Missing bits

[gallery.git] / gal2 / gal-scan

diff --git a/gal2/gal-scan b/gal2/gal-scan
index 39dd6b0b831f9f6b22e02e0e19919ac3267a9985..aa286aff234d6b5a5729213014e5f92f3a441708 100755 (executable)
--- a/gal2/gal-scan
+++ b/gal2/gal-scan
@@ -6,7 +6,7 @@ use strict;
 use warnings;
 
 use lib '/home/mj/web/gal2';
-use UCW::Gallery;
+use UCW::Gallery qw(%CF);
 
 use File::Spec;
 use Image::EXIF;
@@ -47,7 +47,7 @@ if (@ARGV) {
 }
 
 UCW::Gallery::LoadConfig;
-my $orig_prefix = $UCW::Gallery::CF{'OrigDir'};
+my $orig_prefix = $CF{'OrigDir'};
 $orig_prefix =~ m{/$} or $orig_prefix .= '/';
 
 print "Scanning photos\n";
@@ -82,7 +82,7 @@ foreach my $f (@files) {
                        file => $rel_name,
                        id => $id,
                        orientation => $o,
-                       xfrm => $UCW::Gallery::CF{'ScanDefaultTransform'},
+                       xfrm => $CF{'ScanDefaultTransform'},
                        title => '',
                };
                print "ori=$o\n";