[open-ils-commits] r9925 - in
trunk/Open-ILS/src/perlmods/OpenILS/WWW: . SuperCat
svn at svn.open-ils.org
svn at svn.open-ils.org
Wed Jun 25 12:33:44 EDT 2008
Author: miker
Date: 2008-06-25 12:33:42 -0400 (Wed, 25 Jun 2008)
New Revision: 9925
Modified:
trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
Log:
add item and feed ids where appropriate
Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm 2008-06-25 16:31:07 UTC (rev 9924)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm 2008-06-25 16:33:42 UTC (rev 9925)
@@ -281,7 +281,7 @@
my $self = shift;
my $id = shift;
- $self->_create_node( '/atom:feed', 'http://www.w3.org/2005/Atom', 'id', $id );
+ $self->_create_node( $self->{item_xpath}, 'http://www.w3.org/2005/Atom', 'id', $id );
}
package OpenILS::WWW::SuperCat::Feed::atom::item;
@@ -350,6 +350,13 @@
);
}
+sub id {
+ my $self = shift;
+ my $id = shift;
+
+ $self->_create_node($self->{item_xpath}, undef,'guid', $id);
+}
+
package OpenILS::WWW::SuperCat::Feed::rss2::item;
use base 'OpenILS::WWW::SuperCat::Feed::rss2';
Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm 2008-06-25 16:31:07 UTC (rev 9924)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm 2008-06-25 16:33:42 UTC (rev 9925)
@@ -741,6 +741,7 @@
$flesh_feed
);
$feed->root($root);
+ $feed->id($bucket_tag);
$feed->title("Items in Book Bag [".$bucket->name."]");
$feed->creator($host);
@@ -1209,7 +1210,7 @@
$node->add_holdings($xml);
}
- $node->id($item_tag) if ($flesh);
+ $node->id($item_tag);
#$node->update_ts(clense_ISO8601($record->edit_date));
$node->link(alternate => $feed->unapi . "?id=$item_tag&format=htmlholdings-full" => 'text/html') if ($flesh);
$node->link(opac => $feed->unapi . "?id=$item_tag&format=opac") if ($flesh);
More information about the open-ils-commits
mailing list