| Line 2... |
Line 2... |
| 2 |
# ---------------------------------------------------------------------- #
|
2 |
# ---------------------------------------------------------------------- #
|
| 3 |
# Copyright: (C) 2002 Leader.IT S.r.l. <http://leader.it>
|
3 |
# Copyright: (C) 2002 Leader.IT S.r.l. <http://leader.it>
|
| 4 |
# Authors: Guido Brugnara <gdo@leader.it>
|
4 |
# Authors: Guido Brugnara <gdo@leader.it>
|
| 5 |
# Mario Claudio Pisoni <pisoni@leader.it>
|
5 |
# Mario Claudio Pisoni <pisoni@leader.it>
|
| 6 |
#
|
6 |
#
|
| 7 |
# $Revision: 13 $
|
7 |
# $Revision: 18 $
|
| 8 |
# ---------------------------------------------------------------------- #
|
8 |
# ---------------------------------------------------------------------- #
|
| 9 |
</%doc>
|
9 |
</%doc>
|
| 10 |
<%perl>
|
10 |
<%perl>
|
| 11 |
# ==================================== Share functions =====================================================
|
11 |
# ==================================== Share functions =====================================================
|
| 12 |
# ============================================================================== Uses
|
12 |
# ============================================================================== Uses
|
| Line 349... |
Line 349... |
| 349 |
}
|
349 |
}
|
| 350 |
if(!$raiseError){
|
350 |
if(!$raiseError){
|
| 351 |
$raiseError = 1;
|
351 |
$raiseError = 1;
|
| 352 |
}
|
352 |
}
|
| 353 |
my $dbh_cms = DBI->connect([[DB_StrConnect]]) or die "Cant connect dbh_cms;" . $DBI::strerr;
|
353 |
my $dbh_cms = DBI->connect([[DB_StrConnect]]) or die "Cant connect dbh_cms;" . $DBI::strerr;
|
| 354 |
# DBI->trace(2, '[[log_trace_dbconnect]]');
|
354 |
DBI->trace(1, '[[log_trace_dbconnect]]');
|
| 355 |
DBI->trace(1);
|
355 |
# DBI->trace(1);
|
| 356 |
$dbh_cms->{RaiseError} = $raiseError;
|
356 |
$dbh_cms->{RaiseError} = $raiseError;
|
| 357 |
$dbh_cms->{AutoCommit} = $autoCommit;
|
357 |
$dbh_cms->{AutoCommit} = $autoCommit;
|
| 358 |
$dbh_cms->do('set DateStyle to SQL, EUROPEAN');
|
358 |
$dbh_cms->do('set DateStyle to SQL, EUROPEAN');
|
| 359 |
return($dbh_cms);
|
359 |
return($dbh_cms);
|
| 360 |
}
|
360 |
}
|