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 |
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 |
148 |
|
|
149 |
return unless (@tags); |
return unless (@tags); |
150 |
|
|
151 |
my $xml = qq{<xml>}; |
my $xml = qq{<all>}; |
152 |
|
|
153 |
|
$xml .= "<$_>" . $self->$_ . "</$_>" foreach ( 'database', 'input' ); |
154 |
|
|
155 |
my $data; |
my $data; |
156 |
|
|
176 |
$data = to_json($data); |
$data = to_json($data); |
177 |
$xml .= qq{<data><![CDATA[$data]]></data>}; |
$xml .= qq{<data><![CDATA[$data]]></data>}; |
178 |
|
|
179 |
$xml .= qq{</xml>\n}; |
$xml .= qq{</all>\n}; |
180 |
|
|
181 |
my $len = length($xml); |
my $len = length($xml); |
182 |
|
|