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

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

revision 1166 by dpavlin, Sat Apr 25 17:11:33 2009 UTC revision 1167 by dpavlin, Sat Apr 25 17:12:44 2009 UTC
# Line 151  sub add { Line 151  sub add {
151          return unless (@tags);          return unless (@tags);
152    
153          my $xml = qq{<all>};          my $xml = qq{<all>};
   
         $xml .= "<$_>" . $self->$_ . "</$_>" foreach ( 'database', 'input' );  
   
154          my $data;          my $data;
155    
156            foreach ( 'database', 'input' ) {
157                    $xml .= "<$_>" . $self->$_ . "</$_>";
158                    $data->{$_} = $self->$_;
159            }
160    
161          foreach my $tag (@tags) {          foreach my $tag (@tags) {
162    
163                  my $r = ref $ds->{$tag}->{$type};                  my $r = ref $ds->{$tag}->{$type};
Legend:
Removed from v.1166  
changed lines
  Added in v.1167
  ViewVC Help
Powered by ViewVC 1.1.26