Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 99ae8507

Von Sven Schöling vor etwa 8 Jahren hinzugefügt

  • ID 99ae850764606d3b4e30519b8131b5e074a8fc29
  • Vorgänger 98202944
  • Nachfolger 02d27081

CA: single-dbh disconnects

Unterschiede anzeigen:

SL/CA.pm
40 40
package CA;
41 41
use Data::Dumper;
42 42
use SL::DBUtils;
43
use SL::DB;
43 44

  
44 45
sub all_accounts {
45 46
  $main::lxdebug->enter_sub();
......
49 50
  my (%amount, $acc_cash_where);
50 51

  
51 52
  # connect to database
52
  my $dbh = $form->dbconnect($myconfig);
53
  my $dbh = SL::DB->client->dbh;
53 54

  
54 55
  # bug 1071 Warum sollte bei Erreichen eines neuen Jahres die Kontenübersicht nur noch die
55 56
  # bereits bebuchten Konten anzeigen?
......
134 135
  }
135 136

  
136 137
  $sth->finish;
137
  $dbh->disconnect;
138 138

  
139 139
  $main::lxdebug->leave_sub();
140 140
}
......
144 144

  
145 145
  my ($self, $myconfig, $form) = @_;
146 146

  
147
  # connect to database
148
  my $dbh = $form->dbconnect($myconfig);
147
  my $dbh = SL::DB->client->dbh;
149 148

  
150 149
  # get chart_id
151 150
  my $query = qq|SELECT id FROM chart WHERE accno = ?|;
......
424 423
  }
425 424

  
426 425
  $sth->finish;
427
  $dbh->disconnect;
428 426

  
429 427
  $main::lxdebug->leave_sub();
430 428
}

Auch abrufbar als: Unified diff