[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/Protocol.pm

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.13 by root, Wed May 31 07:40:33 2006 UTC vs.
Revision 1.15 by root, Thu Jun 1 18:56:05 2006 UTC

    unless ($id) {
       # create new id for face
       # I love transactions
       for (1..100) {
          my $txn = $CFClient::DB_ENV->txn_begin;
-         my $status = $self->{facemap}->db_get (id => $id, BerkeleyDB::DB_RMW);
+         my $status = $self->{facemap}->db_get (id => $id);
          if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND) {
             $id = ($id || 16) + 1;
             if ($self->{facemap}->put (id => $id) == 0
                 && $self->{facemap}->put ($hash => $id) == 0) {
                $txn->txn_commit;
                goto gotid;
             }
          }
-         $txn->abort;
+         $txn->txn_abort;
       }
       CFClient::fatal "maximum number of transaction retries reached - database problems?";
    }
 sub spell_add {
    my ($self, $spell) = @_;
    # TODO
    # create a widget dynamically, using spell face (CF::Protocol downloads them)
+   $::SPELL_LIST->add_spell ($spell);
    $self->{map_widget}->add_command ("invoke $spell->{name}", CFClient::UI::Label::escape $spell->{message});
    $self->{map_widget}->add_command ("cast $spell->{name}", CFClient::UI::Label::escape $spell->{message});
 }
 sub spell_delete {
    my ($self, $spell) = @_;
+   $::SPELL_LIST->remove_spell ($spell);
 }
 sub addme_success {
    my ($self) = @_;

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