[Krang-CVS] [4237] replace_dupes() - made submission of last query more robust by grabbing actual method name rather than assuming it matches runmode name

[<no...@kr...>]

Revision: 4237
Author:   noam
Date:     2007-10-31 14:06:40 -0400 (Wed, 31 Oct 2007)

Log Message:
-----------
replace_dupes() - made submission of last query more robust by grabbing actual method name rather than assuming it matches runmode name

Modified Paths:
--------------
    trunk/krang/lib/Krang/CGI/Story.pm
    trunk/krang/t/story.t

Modified: trunk/krang/lib/Krang/CGI/Story.pm
===================================================================
--- trunk/krang/lib/Krang/CGI/Story.pm	2007-10-31 14:55:26 UTC (rev 4236)
+++ trunk/krang/lib/Krang/CGI/Story.pm	2007-10-31 18:06:40 UTC (rev 4237)
@@ -787,8 +787,9 @@
   my $last_query = $session{KRANG_PERSIST}{DUPE_STORIES}->{QUERY};
   foreach (keys %$last_query) { $self->query->param($_ => $last_query->{$_}) }
   delete $session{KRANG_PERSIST}{DUPE_STORIES};
-  my $rm = $self->query->param('rm');
-  $self->$rm;
+  my %run_modes = $self->run_modes;                      # get full hash of runmodes => method_names
+  my $rm_method = $run_modes{$self->query->param('rm')}; # get method name for runmode of last query
+  $self->$rm_method;
 }
 
 =item db_save

Modified: trunk/krang/t/story.t
===================================================================
--- trunk/krang/t/story.t	2007-10-31 14:55:26 UTC (rev 4236)
+++ trunk/krang/t/story.t	2007-10-31 18:06:40 UTC (rev 4237)
@@ -298,7 +298,6 @@
 
 # make another copy, this should result in a slug ending in _copy2
 my $copy2;
-	
 eval { $copy2 = $story->clone() };
 ok(not $copy2->story_id);
 ok($copy2->story_uuid ne $story->story_uuid);