my $node     = $q->param('node_id');
   my $sNewType = $q->param('rebless_to');
   my $user     = $USER;

   $node =|| $NODE;
   my $hType = $node->{type};
   my $sOldType = $hType->{title};
   if ($sOldType ne $sNewType) {
      my $group
         = getNodeById($hType->{updaters_user})->{title};
      if ($DB->isApproved($user, $group)) {
         my $aReblessable = htmlcode('get_docball_data', ''
             , $group, 'usergroup')->{reblessable};
         my ($bCanReblessFrom, $bCanReblessTo);
         foreach (@$aReblessable) {
           if ($_ eq $sOldType) {
              $bCanReblessFrom = 1;
           } elsif ($_ eq $sNewType) {
              $bCanReblessTo = 1;
           }
         }
         if ($bCanReblessFrom && $bCanReblessTo) {
            Everything::printLog('Rebless '. $user->{title}
              . ' #'.  $node->{node_id}
              . ' - '. $node->{title}
              . " from $sOldType -> $sNewType");
            $hType = getType($sNewType);
            $node->{type_nodetype}=$type->{node_id};
            updateNode($node, $user);
         }
      }
   }