Select Code to Download

   # !!!HARDCODED DATA!!! - common data with [rebless]
   # Note: for ease of use hash key names are the same as
...
   }
   return $hBogus; #not a docball

   # replace lines 3-8
   my $sType = $NODE->{type}{title};
...
      ? "Normal View"
      : htmlcode('get_docball_data','',$sType)->{altview});

   #lines 131-139
   # these hardcode the string 'sitedoc' but for now
...
       push @out, htmlcode('get_sitedoclet','',$NODE);
   }

   # replace lines 15-20
   my $hDocball = htmlcode('get_docball_data',''
...
   htmlcode('groupeditor', 'string'
      , $hDocball->{stringtype});

   [%
      # make very sure we pass a hash to avoid
...
      htmlcode('get_sitedoclet', $NODE);
   %]

   [%
      # derive updaters group from node
...
      htmlcode('handle_node_edits', '', $updaters_group);
   %]

   # !!!HARDCODED DATA!!!
   # !!!must be synchronized with group-based rules stored
...
   my $sType = $node->{type}{title};
   return grep {$sType eq $_} @aNodetypes;

   # insert into hash @ lines 16-39:
   pmdev => {
...
   # replace line 143 with:
   } elsif ( $NODE->{type}{title} =~ /^(?:sitedoclet|pmdvdoclet)$/ ) {

   # replace lines 5-13 (inside for loop)
   # not quite sure why this is inside a for loop since
...
      last;
   }

   #replace line 5
   #remove hardcoded value for author_user
   $$N{author_user} = getNodeById($node_id->{type}{writers_user})->{ti
+tle};

   my $node     = $q->param('node_id');
   my $sNewType = $q->param('rebless_to');
...
      }
   }

   # replace lines 19-21
   my $hAllDocballs
...
   }
   if ($bFiltered) {

    #replace line 73: ); with
    htmlcode('genDocballEditorLinks,'', $NODE, $USER,
      'pmdev'));

   my ($node, $user, $group) = @_;
   return '' unless $DB->isApproved($user,$group);
...
    return join ' | ', grep length($_),
        $history, $rebless, $masterlist, $create);