DRY

[mfinanz.git] / SL / DBUpgrade2.pm

diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm
index 7725bd6bc36e8074a98bf206b979b1f929af2749..d52468eeedec8c936b2af7e2f242146bb9ba741d 100644 (file)
--- a/SL/DBUpgrade2.pm
+++ b/SL/DBUpgrade2.pm
@@ -276,6 +276,16 @@ sub process_perl_script {
   $main::lxdebug->leave_sub();
 }
 
+sub process_file {
+  my ($self, $dbh, $filename, $version_or_control, $db_charset) = @_;
+
+  if ($filename =~ m/sql$/) {
+    $self->process_query($dbh, $filename, $version_or_control, $db_charset);
+  } else {
+    $self->process_perl_script($dbh, $filename, $version_or_control, $db_charset);
+  }
+}
+
 sub _check_for_loops {
   my ($form, $file_name, $controls, $tag, @path) = @_;