Index: extensions/pLoader/trunk/src/Uploader/GUI/wxApp.pm
===================================================================
--- extensions/pLoader/trunk/src/Uploader/GUI/wxApp.pm	(revision 4973)
+++ extensions/pLoader/trunk/src/Uploader/GUI/wxApp.pm	(revision 5041)
@@ -214,5 +214,5 @@
     $self->_init_userdir;
 
-    my $conf = retrieve $self->conf_file if -e $self->conf_file;	
+    my $conf = retrieve $self->conf_file if -e $self->conf_file;
 
     if(defined $conf ){
@@ -407,12 +407,12 @@
     while(++$i<$n){    
         push @$list, join(
-		    ', ', 
-			map{ gettext($_) }
-			@$pl[$i..$n] 
-		);
+            ', ', 
+            map{ gettext($_) }
+            @$pl[$i..$n] 
+        );
     }
     push @$list, gettext($pl->[$n]);
-	
-	$list;
+    
+    $list;
 }
 
@@ -425,12 +425,12 @@
             grep {$_} 
             map{
-			    #  a locale may be unavailable due to system limitations ( ex: chinese, japanese when language pack are not installed )
-			    if(Wx::Locale::IsAvailable($_->[1])){
-		            my $locale = Wx::Locale->new($_->[1]);
-		            $locale->AddCatalogLookupPathPrefix(
+                #  a locale may be unavailable due to system limitations ( ex: chinese, japanese when language pack are not installed )
+                if(Wx::Locale::IsAvailable($_->[1])){
+                    my $locale = Wx::Locale->new($_->[1]);
+                    $locale->AddCatalogLookupPathPrefix(
                         File::Spec->catfile($self->root_dir, $self->locale_dir)
                     );
-		            $_ if $locale->AddCatalog('pLoader');
-				}
+                    $_ if $locale->AddCatalog('pLoader');
+                }
             }
             @{$self->languages}
@@ -483,5 +483,5 @@
         Wx::LogMessage gettext("Cannot find translation catalog files for %s. Use default language"), $locale->GetCanonicalName();
     }
-    $self->locale($locale);	
+    $self->locale($locale);    
 }
 
@@ -531,5 +531,5 @@
 
 sub _init_imagelist {
-    my ( $self ) = @_;	
+    my ( $self ) = @_;    
 
     my $stored_imagelist;
@@ -643,5 +643,5 @@
 
 sub Login {
-    my ( $self ) = @_;	
+    my ( $self ) = @_;    
 
     $self->login_dlg( 
@@ -650,7 +650,7 @@
                 title         => gettext("Piwigo login"),
                 site_url      => sub { $self->site_url(@_) },
-                site_username => sub { $self->site_username(@_) },	
+                site_username => sub { $self->site_username(@_) },    
                 site_password => sub { $self->site_password(@_) },
-                use_offline   => sub { $self->use_offline(@_) },	
+                use_offline   => sub { $self->use_offline(@_) },    
             }
         )
@@ -677,5 +677,5 @@
                 $self->site_url
             )
-        );	
+        );    
     }
 
@@ -729,5 +729,5 @@
             );
             mkdir $userdatadir;
-        }	
+        }    
     }
 
@@ -791,5 +791,5 @@
 
     map {
-    	my $image = $self->imagelist->image_sums->{$_};
+        my $image = $self->imagelist->image_sums->{$_};
 
         $wximagelist->Add(
@@ -864,8 +864,8 @@
         $self->GetWxBitmapType($type),
     )){
-    	Wx::LogMessage(
-    	    gettext("An error has occured. Can not save file %s"),
-    	    $image_file_out,
-    	)
+        Wx::LogMessage(
+            gettext("An error has occured. Can not save file %s"),
+            $image_file_out,
+        )
     };
 }
@@ -882,5 +882,5 @@
                 categories => gettext("albums"),
                 Categories => gettext("Albums"),
-                'Add new category' => gettext("Add new album"),	
+                'Add new category' => gettext("Add new album"),
                 'Category name' => gettext("Album name :"),
                 'New category' => gettext("New album"),
@@ -943,36 +943,36 @@
 
 
-	my $expr_params ;
-	eval { $expr_params = read_file( $file ); } ;
-	
-	my $paramValues = [] ;
-	if($expr_params){
-		my $expr = '$paramValues = ' ;
-		$expr .=  "$expr_params ; " ;
-		eval $expr ;
-	}
-	
-	return unless 'ARRAY' eq ref $paramValues ;
-	
-	if(scalar(@$paramValues )){
-	    my $params = $paramValues->[0] ;
-	    $self->SetKeyValues($params);
-	}
+    my $expr_params ;
+    eval { $expr_params = read_file( $file ); } ;
+    
+    my $paramValues = [] ;
+    if($expr_params){
+        my $expr = '$paramValues = ' ;
+        $expr .=  "$expr_params ; " ;
+        eval $expr ;
+    }
+    
+    return unless 'ARRAY' eq ref $paramValues ;
+    
+    if(scalar(@$paramValues )){
+        my $params = $paramValues->[0] ;
+        $self->SetKeyValues($params);
+    }
 }
 
 sub _read_default_user_properties {
-	my( $self, $file ) = @_ ;
-
-
-	my $expr_params ;
-	eval { $expr_params = read_file( $file ); } ;
-	my $properties;
-	if($expr_params){
-		my $expr = '$properties = ' ;
-		$expr .=  " { $expr_params }; " ;
-		eval $expr ;
-	}
-	$properties = {} unless 'HASH' eq ref $properties;
-	$self->user_defined_properties($properties);
+    my( $self, $file ) = @_ ;
+
+
+    my $expr_params ;
+    eval { $expr_params = read_file( $file ); } ;
+    my $properties;
+    if($expr_params){
+        my $expr = '$properties = ' ;
+        $expr .=  " { $expr_params }; " ;
+        eval $expr ;
+    }
+    $properties = {} unless 'HASH' eq ref $properties;
+    $self->user_defined_properties($properties);
 
 }
@@ -981,5 +981,5 @@
 
 sub SetKeyValues {
-    my ( $self, $params )= @_;	
+    my ( $self, $params )= @_;    
 
     foreach( keys %$params ) {