/[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 1154 by dpavlin, Sat Apr 25 10:59:43 2009 UTC revision 1156 by dpavlin, Sat Apr 25 11:43:46 2009 UTC
# Line 8  use lib 'lib'; Line 8  use lib 'lib';
8  use base qw/WebPAC::Common Class::Accessor/;  use base qw/WebPAC::Common Class::Accessor/;
9  __PACKAGE__->mk_accessors(qw(  __PACKAGE__->mk_accessors(qw(
10          database          database
11            input
12          type          type
13    
14          index_path          index_path
# Line 134  sub add { Line 135  sub add {
135    
136          my $database = $self->database || $log->logconfess('no database in $self');          my $database = $self->database || $log->logconfess('no database in $self');
137    
138          my $uri = $self->database . "/$id";          my $uri = $self->database . '/' . $self->input . "/$id";
139          $log->debug("creating $uri");          $log->debug("creating $uri");
140    
141          # filter all tags which have type defined          # filter all tags which have type defined
# Line 149  sub add { Line 150  sub add {
150    
151          my $xml = qq{<xml>};          my $xml = qq{<xml>};
152    
153            $xml .= "<$_>" . $self->$_ . "</$_>" foreach ( 'database', 'input' );
154    
155          my $data;          my $data;
156    
157          foreach my $tag (@tags) {          foreach my $tag (@tags) {
Legend:
Removed from v.1154  
changed lines
  Added in v.1156
  ViewVC Help
Powered by ViewVC 1.1.26