Speichern des Session-Inhaltes in eigene Funktion ausgelagert

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 9b465ce65ed1639a1cf4ce267ea023caf7b8c403..7c979046217e4bb9ea9869095855fd5ca2ae912b 100644 (file)
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -604,17 +604,27 @@ sub create_or_refresh_session {
 
   }
 
 
   }
 

-  $query = qq|INSERT INTO auth.session_content (session_id, sess_key, sess_value) VALUES (?, ?, ?)|;
-  $sth   = prepare_query($form, $dbh, $query);
+  $self->save_session($dbh);
+
+  $dbh->commit();
+
+  $main::lxdebug->leave_sub();
+}
+
+sub save_session {
+  my $self         = shift;
+  my $provided_dbh = shift;
+
+  my $dbh          = $provided_dbh || $self->dbconnect();
+
+  my $query        = qq|INSERT INTO auth.session_content (session_id, sess_key, sess_value) VALUES (?, ?, ?)|;
+  my $sth          = prepare_query($::form, $dbh, $query);

 
   foreach my $key (sort keys %{ $self->{SESSION} }) {
 
   foreach my $key (sort keys %{ $self->{SESSION} }) {

-    do_statement($form, $sth, $query, $session_id, $key, $self->{SESSION}->{$key});
+    do_statement($::form, $sth, $query, $session_id, $key, $self->{SESSION}->{$key});

   }
 
   $sth->finish();
   }
 
   $sth->finish();

-  $dbh->commit();
-
-  $main::lxdebug->leave_sub();

 }
 
 sub set_session_value {
 }
 
 sub set_session_value {