Diff for /loncom/lond between versions 1.106 and 1.107

version 1.106, 2003/01/15 04:43:14 version 1.107, 2003/01/15 19:34:02
Line 1222  sub make_new_child { Line 1222  sub make_new_child {
                            print $client "error:$!\n";                             print $client "error:$!\n";
                        }                         }
 # ----------------------------------------------------------------- dumpcurrent  # ----------------------------------------------------------------- dumpcurrent
                    } elsif ($userinput =~ /^dumpcurrent/) {                     } elsif ($userinput =~ /^currentdump/) {
                        my ($cmd,$udom,$uname,$namespace)                         my ($cmd,$udom,$uname,$namespace)
                           =split(/:/,$userinput);                            =split(/:/,$userinput);
                        $namespace=~s/\//\_/g;                         $namespace=~s/\//\_/g;
Line 1244  sub make_new_child { Line 1244  sub make_new_child {
                               next if (exists($data{$symb}) &&                                 next if (exists($data{$symb}) && 
                                        exists($data{$symb}->{$param}) &&                                         exists($data{$symb}->{$param}) &&
                                        $data{$symb}->{'v.'.$param} > $v);                                         $data{$symb}->{'v.'.$param} > $v);
                               #&logthis("v = ".$v." p = ".$param." s = ".$symb);  
                               $data{$symb}->{$param}=$value;                                $data{$symb}->{$param}=$value;
                               $data{$symb}->{'v.'.$param}=$value;                                $data{$symb}->{'v.'.$param}=$v;
                            }                             }
                            if (untie(%hash)) {                             if (untie(%hash)) {
                              while (my ($symb,$param_hash) = each(%data)) {                               while (my ($symb,$param_hash) = each(%data)) {

Removed from v.1.106  
changed lines
  Added in v.1.107


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>