/[webpac2]/trunk/lib/WebPAC/Normalize/Set.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 /trunk/lib/WebPAC/Normalize/Set.pm

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

revision 467 by dpavlin, Sat May 13 09:48:06 2006 UTC revision 472 by dpavlin, Sat May 13 12:07:46 2006 UTC
# Line 69  my $out; Line 69  my $out;
69    
70  sub tag {  sub tag {
71          my $name = shift or die "tag needs name as first argument";          my $name = shift or die "tag needs name as first argument";
72          return unless (@_);          my @o = grep { defined($_) && $_ ne '' } @_;
73            return unless (@o);
74          $out->{$name}->{tag} = $name;          $out->{$name}->{tag} = $name;
75          $out->{$name}->{search} = \@_;          $out->{$name}->{search} = \@o;
76          $out->{$name}->{display} = \@_;          $out->{$name}->{display} = \@o;
77  }  }
78    
79  =head2 display  =head2 display
# Line 85  Define tag just for I<display> Line 86  Define tag just for I<display>
86    
87  sub display {  sub display {
88          my $name = shift or die "display needs name as first argument";          my $name = shift or die "display needs name as first argument";
89          return unless (@_);          my @o = grep { defined($_) && $_ ne '' } @_;
90            return unless (@o);
91          $out->{$name}->{tag} = $name;          $out->{$name}->{tag} = $name;
92          $out->{$name}->{display} = \@_;          $out->{$name}->{display} = \@o;
93  }  }
94    
95  =head2 search  =head2 search
# Line 100  Prepare values just for I<search> Line 102  Prepare values just for I<search>
102    
103  sub search {  sub search {
104          my $name = shift or die "search needs name as first argument";          my $name = shift or die "search needs name as first argument";
105          return unless (@_);          my @o = grep { defined($_) && $_ ne '' } @_;
106            return unless (@o);
107          $out->{$name}->{tag} = $name;          $out->{$name}->{tag} = $name;
108          $out->{$name}->{search} = \@_;          $out->{$name}->{search} = \@o;
109  }  }
110    
111  =head2 get_ds  =head2 get_ds
Legend:
Removed from v.467  
changed lines
  Added in v.472
  ViewVC Help
Powered by ViewVC 1.1.26