Subversion Repositories cms

Rev

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

<%perl>
    my $dbh_cms = DBI->connect([[DB_StrConnect]]) or die "Cant connect dbh_cms;" . $DBI::strerr;
    DBI->trace(1, '[[log_trace_dbconnect]]');
#    DBI->trace(1);
    $dbh_cms->{RaiseError} = $raiseError;
    $dbh_cms->{AutoCommit} = $autoCommit;
    $dbh_cms->do('set DateStyle to SQL, EUROPEAN');
    return($dbh_cms);
</%perl>
<%args>
  $autoCommit => '1'
  $raiseError => '1'
</%args>