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

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

revision 45 by dpavlin, Mon Nov 14 16:12:43 2005 UTC revision 62 by dpavlin, Tue Nov 15 14:31:12 2005 UTC
# Line 110  filter to return values of specified fro Line 110  filter to return values of specified fro
110                          my ($name,$join) = @_;                          my ($name,$join) = @_;
111    
112                          die "no data array" unless ($data->{'data'} && ref($data->{'data'}) eq 'ARRAY');                          die "no data array" unless ($data->{'data'} && ref($data->{'data'}) eq 'ARRAY');
113                            # Hm? Should we die here?
114                            return unless ($name);
115    
116                          my $item = first { $_->{'name'} eq $name } @{ $data->{'data'} };                          my $item = first { $_->{'name'} eq $name } @{ $data->{'data'} };
117    
Legend:
Removed from v.45  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.26