/[webpac2]/trunk/vhost/webpac2.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/vhost/webpac2.cgi

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

revision 1177 by dpavlin, Wed Apr 29 18:06:19 2009 UTC revision 1218 by dpavlin, Tue Jun 9 21:34:21 2009 UTC
# Line 209  if ( my $search = param('search') ) { Line 209  if ( my $search = param('search') ) {
209                                  $attr . '="' . $template . '"';                                  $attr . '="' . $template . '"';
210                                  ;                                  ;
211                  };                  };
212                  $v =~ s{(\s*)(\S+)}{rewrite($1,$2)}ge;                  if ( $op =~ m{\s} ) {
213                            my $template = $op;
214                               $template =~ s{Q}{$v};
215                            $v = $attr . '="' . $template . '"';
216                    } else {
217                            $v =~ s{(\s*)(\S+)}{rewrite($1,$2)}ge;
218                    }
219    
220                  push @search, $v;                  push @search, $v;
221                    
222                  my @only_input = param('only_input');                  my @only_input = param('only_input');
223                  push @search, '(' . join(') OR (', map { "input=$_" } @only_input) . ')' if @only_input;                  push @search, '((' . join(') OR (', map { "input=\"$_\"" } @only_input) . '))' if @only_input;
224          } else {          } else {
225                  push @search, "all=\"$search\"";                  push @search, "all=\"$search\"";
226          }          }
# Line 272  if ( my $search = param('search') ) { Line 278  if ( my $search = param('search') ) {
278                                                  warn "disable html markup for $attr: $@";                                                  warn "disable html markup for $attr: $@";
279                                                  $html_markup_skip->{$attr} = $@;                                                  $html_markup_skip->{$attr} = $@;
280                                          }                                          }
281                                    } else {
282                                            $v =~ s{(http://\S+)}{<a href="$1">$1</a>};
283                                  }                                  }
284                                  my $label = $attr_labels->{'-labels'}->{$attr} || $attr;                                  my $label = $attr_labels->{'-labels'}->{$attr} || $attr;
285                                  print qq|<div><label>$label</label><span class=$attr>$v</span></div>\n|;                                  print qq|<div><label>$label</label><span class=$attr>$v</span></div>\n|;
Legend:
Removed from v.1177  
changed lines
  Added in v.1218
  ViewVC Help
Powered by ViewVC 1.1.26