Remove dots from config files in exportBinaryExtensions.

This commit is contained in:
Colin Kuskie 2009-02-03 17:43:59 +00:00
parent 621a0cf71b
commit cdf2638243

View file

@ -32,6 +32,7 @@ my $quiet; # this line required
my $session = start(); # this line required
hideGalleryAlbums($session);
removeBrokenWorkflowInstances($session);
undotBinaryExtensions($session);
# upgrade functions go here
@ -59,6 +60,17 @@ sub hideGalleryAlbums {
print "DONE!\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub undotBinaryExtensions {
my $session = shift;
print "\tRemoving dots from list of exportBinaryExtensions... " unless $quiet;
# and here's our code
my $extensions = $session->config->get('exportBinaryExtensions');
my @newExtensions = map { s/\.//; $_ } @{ $extensions };
$session->config->set('exportBinaryExtensions', \@newExtensions);
print "DONE!\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub removeBrokenWorkflowInstances {
my $session = shift;