/[suikacvs]/messaging/manakai/lib/Message/Header/Default.pm
Suika

Diff of /messaging/manakai/lib/Message/Header/Default.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by wakaba, Sat Jul 27 04:43:03 2002 UTC revision 1.8 by wakaba, Sun Jul 28 00:31:38 2002 UTC
# Line 109  sub sort_good_practice ($$\@\%) { Line 109  sub sort_good_practice ($$\@\%) {
109          }          }
110        } else {  ## $a->{ns} ne $b->{ns}        } else {  ## $a->{ns} ne $b->{ns}
111          if ($a->{ns} eq $mynsuri) {          if ($a->{ns} eq $mynsuri) {
112            my $bp = ($hdr->{ns}->{uri2phname}->{ $b->{ns} } || $b->{ns}).'-';            my $bp = ($hdr->{ns}->{uri2phname}->{ $b->{ns} } || '~'.$b->{ns}).'-';
113            $bp =~ s/^\Q$mynsprefix\E-//;            $bp =~ s/^\Q$mynsprefix\E-//;
114            $order->{ $a->{name} } ||= 999;            $order->{ $a->{name} } ||= 999;
115            $order->{ $bp } ||= 999;            $order->{ $bp } ||= 999;
# Line 117  sub sort_good_practice ($$\@\%) { Line 117  sub sort_good_practice ($$\@\%) {
117            $order->{ $a->{name} } <=> $order->{ $bp }            $order->{ $a->{name} } <=> $order->{ $bp }
118            || $a->{name} cmp $bp;            || $a->{name} cmp $bp;
119          } elsif ($b->{ns} eq $mynsuri) {          } elsif ($b->{ns} eq $mynsuri) {
120            my $ap = ($hdr->{ns}->{uri2phname}->{ $a->{ns} } || $a->{ns}).'-';            my $ap = ($hdr->{ns}->{uri2phname}->{ $a->{ns} } || '~'.$a->{ns}).'-';
121            $ap =~ s/^\Q$mynsprefix\E-//;            $ap =~ s/^\Q$mynsprefix\E-//;
122            $order->{ $ap } ||= 999;            $order->{ $ap } ||= 999;
123            $order->{ $b->{name} } ||= 999;            $order->{ $b->{name} } ||= 999;
# Line 125  sub sort_good_practice ($$\@\%) { Line 125  sub sort_good_practice ($$\@\%) {
125            $order->{ $ap } <=> $order->{ $b->{name} }            $order->{ $ap } <=> $order->{ $b->{name} }
126            || $ap cmp $b->{name};            || $ap cmp $b->{name};
127          } else {          } else {
128            my $ap = ($hdr->{ns}->{uri2phname}->{ $a->{ns} } || $a->{ns}).'-';            my $ap = ($hdr->{ns}->{uri2phname}->{ $a->{ns} } || '~'.$a->{ns}).'-';
129            my $bp = ($hdr->{ns}->{uri2phname}->{ $b->{ns} } || $b->{ns}).'-';            my $bp = ($hdr->{ns}->{uri2phname}->{ $b->{ns} } || '~'.$b->{ns}).'-';
130            $ap =~ s/^\Q$mynsprefix\E-//;            $ap =~ s/^\Q$mynsprefix\E-//;
131            $bp =~ s/^\Q$mynsprefix\E-//;            $bp =~ s/^\Q$mynsprefix\E-//;
132                        
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24