/[suikacvs]/markup/html/html5/spec-ja/find.cgi
Suika

Diff of /markup/html/html5/spec-ja/find.cgi

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

revision 1.1 by wakaba, Sun Jul 20 07:45:21 2008 UTC revision 1.2 by wakaba, Sun Jul 20 09:15:55 2008 UTC
# Line 69  mark { Line 69  mark {
69  <body>  <body>
70  <h1>Search result for "$eword"</h1>];  <h1>Search result for "$eword"</h1>];
71    
72    print_input_form ();
73    
74    print q[<article>];
75  my $has_match;  my $has_match;
76  for_each_data_file (sub ($) {  for_each_data_file (sub ($) {
77    my $data_file_name = shift;    my $data_file_name = shift;
# Line 78  for_each_data_file (sub ($) { Line 81  for_each_data_file (sub ($) {
81  });  });
82    
83  unless ($has_match) {  unless ($has_match) {
84    print q[<p>No match found.];    print q[<p>No match found.</article>];
85    } else {
86      print q[</article>];
87      print_input_form ();
88  }  }
89    
90  sub unescape_patterns ($) {  sub unescape_patterns ($) {
# Line 154  sub get_match_text ($$) { Line 160  sub get_match_text ($$) {
160    
161    return $r;    return $r;
162  } # get_match_text  } # get_match_text
163    
164    sub print_input_form () {
165      print qq[<section><form action=find accept-charset=utf-8 method=get>];
166      print qq[<p><input type=text name=word value="@{[htescape $param->{word}]}">];
167      print qq[<p><label><input type=checkbox name=cs @{[$param->{cs} ? 'checked' : '']}> Case-sensitive</label>
168          <label><input type=checkbox name=aw @{[$param->{aw} ? 'checked' : '']}> As word(s)</label>];
169      print qq[</form></section>];
170    } # print_input_form
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24