+ my $call = $parent->call;
+ my $version = $ent[4] // 0;
+ my $build = $ent[5] // 0;
+ $build =~ s/^0\.//;
+ my $oldbuild = $parent->build // 0;
+ $oldbuild =~ s/^0\.//;
+ my $oldversion = $parent->version // 0;
+ my $user = check_add_user($parent->call, 'S');
+ my $oldsort = $user->sort;
+ if ($oldsort ne 'S' || $oldversion != $version || $build != $oldbuild) {
+ dbg("PCProt PC92 K node $call updated version: $version (was $oldversion) build: $build (was $oldbuild) sort: 'S' (was $oldsort)");
+ $user->sort('S');
+ $user->version($parent->version($version));
+ $user->build($parent->build($build));
+ $user->put;