Changeset 29316 for gs2-extensions

Show
Ignore:
Timestamp:
18.09.2014 16:27:43 (5 years ago)
Author:
jmt12
Message:

Adding in support for databases that merge as a final step

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/tdb-edit/trunk/src/perllib/dbutil.pm

    r28000 r29316  
    211211} 
    212212## supportsDatestamp() ## 
     213 
     214 
     215## @function supportsMerge 
     216# 
     217sub supportsMerge 
     218{ 
     219  my $infodb_type = shift(@_); 
     220  return &dbutil::test_dynamic_driver_function('merge_databases', $infodb_type); 
     221} 
     222## supportsMerge() ## 
    213223 
    214224 
     
    321331 
    322332 
     333## @function 
     334# 
     335sub merge_databases 
     336{ 
     337  my $infodb_type = shift(@_); 
     338  # Make a call to the dynamically loaded driver to open the connection. 
     339  return &dbutil::call_dynamic_driver_function('merge_databases', $infodb_type, @_); 
     340} 
     341## 
     342 
     343 
    323344# ---- GENERAL FUNCTIONS -------- 
    324345