/[suikacvs]/test/html-webhacc/WebHACC/Result.pm
Suika

Diff of /test/html-webhacc/WebHACC/Result.pm

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

revision 1.11 by wakaba, Fri Aug 15 08:36:41 2008 UTC revision 1.14 by wakaba, Sat Aug 16 07:42:20 2008 UTC
# Line 185  sub add_error ($%) { Line 185  sub add_error ($%) {
185        } elsif (defined $opt{input}->{request_uri}) {        } elsif (defined $opt{input}->{request_uri}) {
186          $out->url ($opt{input}->{request_uri});          $out->url ($opt{input}->{request_uri});
187          $has_location = 1;          $has_location = 1;
188        } elsif (defined $opt{input}->{uri}) {        } elsif (defined $opt{input}->url) {
189          $out->url ($opt{input}->{uri});          $out->url ($opt{input}->url);
190          $has_location = 1;          $has_location = 1;
191        }        }
192      }      }
# Line 204  sub add_error ($%) { Line 204  sub add_error ($%) {
204        
205    ## Error message    ## Error message
206    my $error_type_text = $opt{type};    my $error_type_text = $opt{type};
207    $out->nl_text ($error_type_text, node => $opt{node}, text => $opt{text});    $out->nl_text ($error_type_text, node => $opt{node}, text => $opt{text},
208                     value => $opt{value});
   ## Additional error description  
   if (defined $opt{text}) {  
     $out->html (' (<q>');  
     $out->text ($opt{text});  
     $out->html ('</q>)');  
   }  
209        
210    ## Link to a long description    ## Link to a long description
211    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.14
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24