summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: b3834be)
raw | patch | inline | side by side (parent: b3834be)
author | janw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Thu, 27 Nov 2008 16:40:33 +0000 (16:40 +0000) | ||
committer | janw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Thu, 27 Nov 2008 16:40:33 +0000 (16:40 +0000) |
references #586
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@13061 594d385d-05f5-0310-b6e9-bd551577e9d8
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@13061 594d385d-05f5-0310-b6e9-bd551577e9d8
gosa-si/modules/DBsqlite.pm | patch | blob | history |
index a571a7bb62dec4fbd8f408e9f40df6f220058399..875080d7c93c9411992a4e5d6b89718cf6a4308d 100644 (file)
sub create_table {
- my $self = shift;
- my $table_name = shift;
- my $col_names_ref = shift;
- my @col_names;
- foreach my $col_name (@$col_names_ref) {
- my @t = split(" ", $col_name);
- $col_name = $t[0];
- push(@col_names, $col_name);
- }
+ my $self = shift;
+ my $table_name = shift;
+ my $col_names_ref = shift;
+ my @col_names;
+ foreach my $col_name (@$col_names_ref) {
+ my @t = split(" ", $col_name);
+ $col_name = $t[0];
+ push(@col_names, $col_name);
+ }
- $col_names->{ $table_name } = $col_names_ref;
- my $col_names_string = join("', '", @col_names);
- my $sql_statement = "CREATE TABLE IF NOT EXISTS $table_name ( '$col_names_string' )";
+ $col_names->{ $table_name } = $col_names_ref;
+ my $col_names_string = join("', '", @col_names);
+ my $sql_statement = "CREATE TABLE IF NOT EXISTS $table_name ( '$col_names_string' )";
eval {
my $res = $self->{dbh}->do($sql_statement);
};
if($@) {
$self->{dbh}->do("ANALYZE");
- }
- eval {
- my $res = $self->{dbh}->do($sql_statement);
- };
- if($@) {
- &main::daemon_log("ERROR: $sql_statement failed with $@", 1);
+ eval {
+ my $res = $self->{dbh}->do($sql_statement);
+ };
+ if($@) {
+ &main::daemon_log("ERROR: $sql_statement failed with $@", 1);
+ }
}
- return 0;
+ return 0;
}