my ($node, $user, $group) = @_;
   return '' unless $DB->isApproved($user,$group);

   my ($history,$rebless,$masterlist,$create) = ''x3;
   my $hType = $node->{type};
   my $sType = $hType->{title};
   my $hDocball = htmlcode('get_docball_data',''
      , $group, 'usergroup');

   #generate history links
   $history= linkNode(getId($node), "Node history"
                      , {displaytype => 'edithistory'}
                      );

   #generate reblessing links
   my $aReblessable = $hDocball->{reblessable};
   if (grep { $_ eq $sType } @$aReblessable) {
       my @links;
       foreach my $key (sort @$aReblessable) {
          next if $key eq $hType->{title};
          my $label = $hNodetypes->{$key}[0];
          my $link  = linkNode($node, $label
             { op=>'rebless', rebless_to => $key }); 
          push @links, $link;
       }
       $rebless= join " ","Rebless as ",@links;
    }

    #getnerate master document list link
    $history= linkNode(getId($hDocball->{masterlist})
                       , "Master Lists"
                       , {displaytype => 'display'}
                      );

    #generate create links
    {
       my @links;
       foreach my $key (keys %$hNodetypes) {
          my $aData = $hNodetypes->{$key};
          my $label = $aData->[0];
          my $hLinkParams = { op=>'new', type => $key };
          my $iGroupNode = $aData->[2];
          if ($iGroupNode) {
             $hLinkParams->{addToGroup} = $iGroupNode;
          }
          my $link = linkNode($node, $label, $hLinkParams);
          push @links, $link;
       }
       $create= join " ","Create: ",@links;      
    }

    return join ' | ', grep length($_),
        $history, $rebless, $masterlist, $create);