Subversion Repositories cms

Rev

Rev 13 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 18
Line 1... Line 1...
1 
<%perl>
 1 
<%perl>
2 
    my $dbh_cms = DBI->connect([[DB_StrConnect]]) or die "Cant connect dbh_cms;" . $DBI::strerr;
 2 
    my $dbh_cms = DBI->connect([[DB_StrConnect]]) or die "Cant connect dbh_cms;" . $DBI::strerr;
3 
#    DBI->trace(2, '[[log_trace_dbconnect]]');
 3 
    DBI->trace(1, '[[log_trace_dbconnect]]');
4 
    DBI->trace(1);
 4 
#    DBI->trace(1);
5 
    $dbh_cms->{RaiseError} = $raiseError;
 5 
    $dbh_cms->{RaiseError} = $raiseError;
6 
    $dbh_cms->{AutoCommit} = $autoCommit;
 6 
    $dbh_cms->{AutoCommit} = $autoCommit;
7 
    $dbh_cms->do('set DateStyle to SQL, EUROPEAN');
 7 
    $dbh_cms->do('set DateStyle to SQL, EUROPEAN');
8 
    return($dbh_cms);
 8 
    return($dbh_cms);
9 
</%perl>
 9 
</%perl>