[Openinteract-commits] CVS: OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Action DeliciousTags.pm,1.3,1.4

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11435/OpenInteract2/Action

Modified Files:
	DeliciousTags.pm 
Log Message:
add 'all_tags' task; use message keys for error strings



Index: DeliciousTags.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Action/DeliciousTags.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DeliciousTags.pm	25 Nov 2004 13:50:32 -0000	1.3
--- DeliciousTags.pm	27 Nov 2004 17:13:07 -0000	1.4
***************
*** 12,15 ****
--- 12,24 ----
  $OpenInteract2::Action::DeliciousTags::VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
  
+ sub all_tags {
+     my ( $self ) = @_;
+     my $tag_class = CTX->lookup_object( 'delicious_tag' );
+     my $tags = $tag_class->fetch_all_tags_with_count();
+     return $self->generate_content(
+                     { tag_and_count => $tags },
+                     { name => 'delicious_tags::tag_listing' });
+ }
+ 
  sub related_tags {
      my ( $self ) = @_;
***************
*** 56,60 ****
      else {
          $self->param_add(
!             error_msg => "Must specify 'tag' to find related objects" );
      }
      return \%params;
--- 65,69 ----
      else {
          $self->param_add(
!             error_msg => $self->_msg( 'tags.error.related_objects_no_tag' ) );
      }
      return \%params;