- my ($self, $myconfig, $form) = @_;
-
- my $dbh = $form->get_standard_dbh($myconfig);
-
- my ($currency, $businessnumber) = selectrow_query($form, $dbh, qq|SELECT curr, businessnumber FROM defaults|);
-
- # update name
- my $query = qq|UPDATE employee SET name = ? WHERE login = ?|;
- do_query($form, $dbh, $query, $form->{name}, $form->{login});
-
- my $rc = $dbh->commit();
-
- # save first currency in myconfig
- $currency =~ s/:.*//;
- $form->{currency} = $currency;
-
- $form->{businessnumber} = $businessnumber;