my $class = shift;
my $p = shift;
my $self = bless {}, $class;
- $self->{debug} = 1;
+ $self->{debug} = 0;
$self->{dbh} = DBI->connect($p->{dsn},$p->{dbuser},$p->{dbpassword},{PrintError=>1,RaiseError=>1,AutoCommit=>1}) or return "query Connection Error!".$!;
return $self;
}
"totalpause" => "Total Pause",\r
"cancel" => "Abbrechen",\r
"save" => "Speichern",\r
- "changetemplate" => "changer modèle",\r
- "selecttemplate" => "Selection du modèle",\r
+ "changetemplate" => "Vorlage wechseln",\r
+ "selecttemplate" => "Auswahl der Vorlage",\r
"commit" => "Validieren und Abschließen",\r
"pottemplate" => "POT (Vorlage)",\r
"name" => "Name",\r