UUID corrections 3.27.4
authorKilian Saffran <ksaffran@dks.lu>
Thu, 18 Oct 2018 06:32:28 +0000 (08:32 +0200)
committerKilian Saffran <ksaffran@dks.lu>
Thu, 18 Oct 2018 06:32:28 +0000 (08:32 +0200)
Tools/creorgadb.pl

index dcecf3d..2c99ac8 100644 (file)
@@ -120,7 +120,7 @@ foreach my $pd (sort {$a <=> $b} keys(%{$defdbschemacfg})){
         my @ndata = ();
         foreach my $x (@copycols){
          if ($x eq "uuid"){
-           push(@ndata,create_uuid());
+           push(@ndata,create_uuid_as_string());
          } else {
            push(@ndata,$data->{$da}->{$x});
          }