Subversion Repositories cms

Rev

Rev 13 | Details | Compare with Previous | Last modification | View Log | RSS feed

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