[Rt-commit] r2622 - rt/branches/3.4-RELEASE/lib/RT
tla at bestpractical.com
tla at bestpractical.com
Wed Apr 13 12:27:39 EDT 2005
Author: tla
Date: Wed Apr 13 12:27:38 2005
New Revision: 2622
Modified:
rt/branches/3.4-RELEASE/lib/RT/SavedSearch.pm
rt/branches/3.4-RELEASE/lib/RT/SavedSearches.pm
Log:
Lost a curly brace somewhere. Also noted location of tests for both files.
Modified: rt/branches/3.4-RELEASE/lib/RT/SavedSearch.pm
==============================================================================
--- rt/branches/3.4-RELEASE/lib/RT/SavedSearch.pm (original)
+++ rt/branches/3.4-RELEASE/lib/RT/SavedSearch.pm Wed Apr 13 12:27:38 2005
@@ -61,6 +61,7 @@
=cut
+#### TESTS are in lib/t/20savedsearch.t
package RT::SavedSearch;
@@ -88,11 +89,6 @@
Returns a tuple of status and message, where status is true on
success.
-=begin testing
-
-
-=end testing
-
=cut
sub Load {
@@ -176,18 +172,19 @@
sub Update {
my $self = shift;
my $params = shift;
-
+
return(0, $self->loc("No search loaded")) unless $self->Id;
return(0, $self->loc("Could not load search attribute"))
unless $self->{'Attribute'}->Id;
my ($status, $msg) = $self->{'Attribute'}->SetSubValues(%{$params});
if ($status) {
# Update all the accessor variables.
- return ($status, $self->loc("Search update: [_1]", $msg));
+ return ($status, $self->loc("Search update: [_1]", $msg));
+ }
}
=head2 Delete
-
+
Deletes the existing search. Returns a tuple of status and message,
where status is true upon success.
Modified: rt/branches/3.4-RELEASE/lib/RT/SavedSearches.pm
==============================================================================
--- rt/branches/3.4-RELEASE/lib/RT/SavedSearches.pm (original)
+++ rt/branches/3.4-RELEASE/lib/RT/SavedSearches.pm Wed Apr 13 12:27:38 2005
@@ -61,6 +61,7 @@
=cut
+#### TESTS are in lib/t/20savedsearch.t
package RT::SavedSearches;
@@ -91,12 +92,6 @@
specified. If no type is specified, all the searches belonging to the
user/group will be loaded. Repeated calls to the same object should DTRT.
-=begin testing
-
-use_ok(RT::SavedSearches);
-
-=end testing
-
=cut
sub LimitToPrivacy {
More information about the Rt-commit
mailing list