Changeset 1825
- Timestamp:
- 04/09/08 10:24:42 (8 months ago)
- Files:
-
- branches/release-34/lib/MT/AtomServer.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/release-34/lib/MT/AtomServer.pm
r1823 r1825 88 88 return unless ref($app); 89 89 if ($code && $msg) { 90 chomp($msg = encode_xml($msg)); 90 91 $app->response_code($code); 91 92 $app->response_message($msg); 93 $app->response_content_type('text/xml'); 94 $app->response_content("<error>$msg</error>"); 92 95 } 93 96 elsif ($code) { … … 467 470 468 471 my $cats = XML::XPath::Node::Element->new('categories'); 469 $cats->appendAttribute(XML::XPath::Node::Attribute->new('href', $uri . ' ?svc=categories'));472 $cats->appendAttribute(XML::XPath::Node::Attribute->new('href', $uri . '/svc=categories')); 470 473 $entries->appendChild($cats); 471 474 }
