merge settings (imported from BSTA)

diff --git a/botm_common.pm b/botm_common.pm
index cf9cf9e8eabfd0adf39e41bcb4067b2e993dad0a..5105ed652b33a3e32cafde8eaa668e978818230b 100644 (file)
--- a/botm_common.pm
+++ b/botm_common.pm
@@ -27,7 +27,7 @@ use File::Copy;
 
 use Exporter;
 
 
 use Exporter;
 

-our $VERSION     = '1.1.6';
+our $VERSION     = '1.1.7';

 our @ISA         = qw(Exporter);
 our @EXPORT      = ();
 our @EXPORT_OK   = (
 our @ISA         = qw(Exporter);
 our @EXPORT      = ();
 our @EXPORT_OK   = (


@@ -48,7 +48,8 @@ our @EXPORT_OK   = (
        'open_encoded',
        'failpage',
        'fail_method', 'fail_content_type', 'fail_open_file', 'fail_attachment', 'fail_500',
        'open_encoded',
        'failpage',
        'fail_method', 'fail_content_type', 'fail_open_file', 'fail_attachment', 'fail_500',

-       'redirect'
+       'redirect',
+       'merge_settings'

 );
 
 
 );
 
 


@@ -1308,6 +1309,21 @@ sub redirect
 }
 
 
 }
 
 

+####################
+##  support tool  ##
+####################
+
+sub merge_settings {
+       my %final_settings;
+       
+       foreach my $settings (@_) {
+               foreach my $ind (keys %$settings) {
+                       $final_settings{$ind} = $settings->{$ind};
+               }
+       }
+       return %final_settings;
+}
+

 ###########
 ##  URL  ##
 ###########
 ###########
 ##  URL  ##
 ###########