[ViewVC] Diff of: cvs/deliantra/server/ext/help.ext

Comparing deliantra/server/ext/help.ext (file contents):
Revision 1.20 by root, Tue Nov 20 14:30:22 2012 UTC vs.
Revision 1.21 by root, Tue Nov 20 14:40:01 2012 UTC

 # considerable duplication between load_doclets and load_topics
 sub load_doclets {
    %DOCLET = ();
-   my @command_list;
+   my %command_list;
    for (
-      [0, "command_help"],
+      [standard => "command_help"],
-      [1, "emote_help"],
+      [emote    => "emote_help"],
-      [2, "dmcommand_help"],
+      [dm       => "dmcommand_help"],
    ) {
       my ($type, $path) = @$_;
       my $paragraphs = cf::pod::load_pod "$PODDIR/$path.pod"
          or die "unable to load $path";
                my @variants = map "$cmd$_", sort { (length $a) <=> (length $b) } @args;
                $rpar = \($DOCLET{$cmd} = &cf::pod::as_cfpod ([$par]));
-               push @{ $command_list[$type] }, @variants;
+               push @{ $command_list{$type} }, @variants;
                $level = $par->{level};
             } else {
                cf::error "$par->{markup}: unparsable command heading";
             }
          } elsif ($par->{level} > $level) {
       }
    }
    cf::cede_to_tick;
-   use Data::Dump; ddx \@command_list;#d#
+   while (my ($k, $v) = each %command_list) {
-   cf::client::set_command_faces
+      cf::client::set_command_face $k, $v
-      map {
+   }
-         cf::face::set
-            "command_list/$_" => cf::FT_RSRC,
-            JSON::XS->new->utf8->encode ([ sort @{ $command_list[$_] } ])
-      }
-      0..$#command_list;
 }
 our $DOCLET_HANDLER = ext::doclet::register command => sub {
    my ($pl, $category, $command) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines