/[webpac]/branches/tehnika/WebPac.pm
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 /branches/tehnika/WebPac.pm

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

revision 320 by dpavlin, Sat Apr 17 20:50:56 2004 UTC revision 321 by dpavlin, Sun Apr 18 01:03:27 2004 UTC
# Line 28  my $MAX_HITS = $cfg_global->val('webpac' Line 28  my $MAX_HITS = $cfg_global->val('webpac'
28  my $ON_PAGE =$cfg_global->val('webpac', 'on_page') || 10;  my $ON_PAGE =$cfg_global->val('webpac', 'on_page') || 10;
29  my $MIN_WILDCARD =$cfg_global->val('webpac', 'min_wildcard') || 1;  my $MIN_WILDCARD =$cfg_global->val('webpac', 'min_wildcard') || 1;
30  my $TEMPLATE =$cfg_global->val('webpac', 'template');  my $TEMPLATE =$cfg_global->val('webpac', 'template');
31  my $UNAC_FILTER =$cfg_global->val('global', 'unac_filter');  my $UNAC_FILTER =$cfg_global->val('global', 'my_unac_filter');
32  my $BASE_PATH =$cfg_global->val('webpac', 'base_path');  my $BASE_PATH =$cfg_global->val('webpac', 'base_path');
33  # for pager  # for pager
34  my $pages_per_set = $cfg_global->val('webpac', 'pages_per_set') || 10;  my $pages_per_set = $cfg_global->val('webpac', 'pages_per_set') || 10;
35    
36    Text::Iconv->raise_error(0);     # Conversion errors raise exceptions
37    
38    my $from_utf8 = Text::Iconv->new('UTF8', $CHARSET);
39    
40  if ($UNAC_FILTER) {  if ($UNAC_FILTER) {
41          require $UNAC_FILTER;          require $UNAC_FILTER;
42    } else {
43            sub WebPac::my_unac_string {
44                    my ($charset, $string) = (@_);
45                    return $string;
46            }
47  }  }
48    
 Text::Iconv->raise_error(0);     # Conversion errors raise exceptions  
   
 my $from_utf8 = Text::Iconv->new('UTF8', $CHARSET);  
   
49  # use path from cgi script to support templates in subdirs  # use path from cgi script to support templates in subdirs
50  sub url_ex {  sub url_ex {
51          my $q = shift || die "suff2file needs CGI object!";          my $q = shift || die "suff2file needs CGI object!";
# Line 255  sub show_results_list { Line 259  sub show_results_list {
259                  while (my $search = shift @param_vals) {                  while (my $search = shift @param_vals) {
260                          my $s;                          my $s;
261                          # remove accents                          # remove accents
262                          $search = unac_string($CHARSET,$search);                          $search = my_unac_string($CHARSET,$search);
263                          while ($search =~ s/\s*("[^"]+")\s*/ /) {                          while ($search =~ s/\s*("[^"]+")\s*/ /) {
264                                  $s .= "$1 ";                                  $s .= "$1 ";
265                          }                          }

Legend:
Removed from v.320  
changed lines
  Added in v.321

  ViewVC Help
Powered by ViewVC 1.1.26