/[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 1173 by dpavlin, Sat Apr 25 22:26:29 2009 UTC revision 1174 by dpavlin, Sun Apr 26 00:07:58 2009 UTC
# Line 106  my $stats; Line 106  my $stats;
106    
107  my $db = $config->{databases}->{$database};  my $db = $config->{databases}->{$database};
108    
109  my @attr = keys %{ $stats->{attr} }; # FIXME replace with real gnerated lookup  sub read_config_txt {
110            my ( $file ) = @_;
111  # XXX pipe delimit list!          my $input;
112  my $select_attr_operators = << '__ATTR_OPERATORS__';          foreach ( split(/[\n\r]+/, read_file( "$dir/$path/$path-$file.txt" ) ) ) {
113  Q*                      |       Bilo koja riječ                  my ( $val,$label ) = split(/\s*\t\s*/,$_,2);
114  BW Q            |       Početak                  push @{ $input->{ '-values' } }, $val;
115  BW Q EW         |       Točan oblik                                  $input->{ '-labels' }->{$val} = $label;
116  __ATTR_OPERATORS__          }
117            return $input;
 my $attr_operator;  
   
 foreach ( split(/[\n\r]+/, $select_attr_operators ) ) {  
         my ( $operator,$label ) = split(/\s+\|\s+/,$_,2);  
         push @{ $attr_operator->{ '-values' } }, $operator;  
                 $attr_operator->{ '-labels' }->{$operator} = $label;  
118  }  }
119    
120  warn "## attr_operator = ", dump( $attr_operator );  my $attr_labels    = read_config_txt 'labels';
121    my $attr_operators = read_config_txt 'operators';
122    
123    my @attr = @{ $attr_labels->{'-values'} };
124    @attr = keys %{ $stats->{attr} } unless @attr;
125    
126    
127    warn dump( $attr_labels, $attr_operators );
128    
129  my $only_input;  my $only_input;
130    
# Line 151  print Line 152  print
152          start_form( -action => self_url( query => 0 ) ),          start_form( -action => self_url( query => 0 ) ),
153                  radio_group(                  radio_group(
154                          -name => 'attr',                          -name => 'attr',
155                          -values => [ @attr ],                          %$attr_labels,
156  #                       -linebreak => 0,  #                       -linebreak => 0,
157                  ),                  ),
158                  textfield( -name => 'search' ),                  textfield( -name => 'search' ),
159                  popup_menu( -name => 'attr_operator', %$attr_operator ),                  popup_menu( -name => 'attr_operator', %$attr_operators ),
160                  submit,                  submit,
161                  hidden( -name => 'entries_per_page', -default => $entries_per_page ),                  hidden( -name => 'entries_per_page', -default => $entries_per_page ),
162                  # we need current_page fixed at 1 so that every submit through form will reset it                  # we need current_page fixed at 1 so that every submit through form will reset it
# Line 263  if ( my $search = param('search') ) { Line 264  if ( my $search = param('search') ) {
264                                                  $html_markup_skip->{$attr} = $@;                                                  $html_markup_skip->{$attr} = $@;
265                                          }                                          }
266                                  }                                  }
267                                  print qq|<div><label>$attr</label><span class=$attr>$v</span></div>\n|;                                  my $label = $attr_labels->{'-labels'}->{$attr} || $attr;
268                                    print qq|<div><label>$label</label><span class=$attr>$v</span></div>\n|;
269                          }                          }
270                          print qq|</li>\n|;                          print qq|</li>\n|;
271                  }                  }
Legend:
Removed from v.1173  
changed lines
  Added in v.1174
  ViewVC Help
Powered by ViewVC 1.1.26