/[suikacvs]/test/cvs
Suika

Diff of /test/cvs

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

revision 1.35 by wakaba, Mon Jul 8 12:39:39 2002 UTC revision 1.36 by wakaba, Sat Jul 13 09:34:50 2002 UTC
# Line 134  sub _init ($;%) { Line 134  sub _init ($;%) {
134  sub _init_by_format ($$\%) {  sub _init_by_format ($$\%) {
135    my $self = shift;    my $self = shift;
136    my ($format, $option) = @_;    my ($format, $option) = @_;
   return if $format eq $option->{format};  
137    if ($format =~ /http/) {    if ($format =~ /http/) {
138      $option->{ns_default_phuri} = $self->{ns}->{phname2uri}->{'x-http'};      $option->{ns_default_phuri} = $self->{ns}->{phname2uri}->{'x-http'};
139      if ($format =~ /cgi/) {      if ($format =~ /cgi/) {
# Line 672  sub stringify ($;%) { Line 671  sub stringify ($;%) {
671    my %params = @_;    my %params = @_;
672    my %option = %{$self->{option}};    my %option = %{$self->{option}};
673    $option{format} = $params{-format} if $params{-format};    $option{format} = $params{-format} if $params{-format};
674    $self->_init_by_format ($option{format}, \%option);    $self->_init_by_format ($option{format}, \%option)
675        if $self->{option}->{format} ne $option{format};
676    for (grep {/^-/} keys %params) {$option{substr ($_, 1)} = $params{$_}}    for (grep {/^-/} keys %params) {$option{substr ($_, 1)} = $params{$_}}
677    ## Fill required fields    ## Fill required fields
678      my %exist;      my %exist;
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24