Funktion "swap_buchungsgruppen" in "swap_sortkeys" umbenannt.

diff --git a/SL/AM.pm b/SL/AM.pm
index b3874bdf5eb56b73ae60248921af9e6ece1f87ce..dd59725da895f683ca73c66e2ae75d185b922623 100644 (file)
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -1190,22 +1190,22 @@ sub delete_buchungsgruppe {
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }
 

-sub swap_buchungsgruppen {
+sub swap_sortkeys {

   $main::lxdebug->enter_sub();
 
   $main::lxdebug->enter_sub();
 

-  my ($self, $myconfig, $form) = @_;
+  my ($self, $myconfig, $form, $table) = @_;

 
   # connect to database
   my $dbh = $form->dbconnect_noauto($myconfig);
 
   my $query =
     qq|SELECT
 
   # connect to database
   my $dbh = $form->dbconnect_noauto($myconfig);
 
   my $query =
     qq|SELECT

-       (SELECT sortkey FROM buchungsgruppen WHERE id = ?) AS sortkey1,
-       (SELECT sortkey FROM buchungsgruppen WHERE id = ?) AS sortkey2|;
+       (SELECT sortkey FROM $table WHERE id = ?) AS sortkey1,
+       (SELECT sortkey FROM $table WHERE id = ?) AS sortkey2|;

   my @values = ($form->{"id1"}, $form->{"id2"});
   my @sortkeys = selectrow_query($form, $dbh, $query, @values);
 
   my @values = ($form->{"id1"}, $form->{"id2"});
   my @sortkeys = selectrow_query($form, $dbh, $query, @values);
 

-  $query = qq|UPDATE buchungsgruppen SET sortkey = ? WHERE id = ?|;
+  $query = qq|UPDATE $table SET sortkey = ? WHERE id = ?|;

   my $sth = $dbh->prepare($query);
   $sth->execute($sortkeys[1], $form->{"id1"}) ||
     $form->dberror($query . " ($sortkeys[1], $form->{id1})");
   my $sth = $dbh->prepare($query);
   $sth->execute($sortkeys[1], $form->{"id1"}) ||
     $form->dberror($query . " ($sortkeys[1], $form->{id1})");

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index ddfa954b0017d62d9f9bc882b9bdeae8158c3cfa..c336f3a70b10a95c01ad1f48fa75802e9fa3972c 100644 (file)
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -2114,7 +2114,7 @@ sub delete_buchungsgruppe {
 sub swap_buchungsgruppen {
   $lxdebug->enter_sub();
 
 sub swap_buchungsgruppen {
   $lxdebug->enter_sub();
 

-  AM->swap_buchungsgruppen(\%myconfig, $form);
+  AM->swap_sortkeys(\%myconfig, $form, "buchungsgruppen");

   list_buchungsgruppe();
 
   $lxdebug->leave_sub();
   list_buchungsgruppe();
 
   $lxdebug->leave_sub();