[Rt-commit] [svn] r1618 - in rt/branches/3.2-SYBASE-TESTING: . lib/RT

jesse at pallas.eruditorum.org jesse at pallas.eruditorum.org
Mon Oct 4 16:01:13 EDT 2004


Author: jesse
Date: Mon Oct  4 16:01:13 2004
New Revision: 1618

Modified:
   rt/branches/3.2-SYBASE-TESTING/   (props changed)
   rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay.pm
   rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay_SQL.pm
Log:
 r10342 at tinbook:  jesse | 2004-09-23T07:47:26.144253Z
  r8472 at Jesse-Vincents-Computer:  jesse | 2004-08-31T04:21:47.346418Z
  Added "DependedOnBy" to TicketSQL  to mean what it means elsewhere.
  
  Made TicketSQL let you search by ticket type
  
 


Modified: rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay.pm
==============================================================================
--- rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay.pm	(original)
+++ rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay.pm	Mon Oct  4 16:01:13 2004
@@ -108,6 +108,7 @@
     RefersTo        => ['LINK' => To => 'RefersTo',],
     HasMember	    => ['LINK' => From => 'MemberOf',],
     DependentOn     => ['LINK' => From => 'DependsOn',],
+    DependedOnBy     => ['LINK' => From => 'DependsOn',],
     ReferredToBy    => ['LINK' => From => 'RefersTo',],
 #   HasDepender	    => ['LINK',],
 #   RelatedTo	    => ['LINK',],
@@ -119,7 +120,6 @@
     LastUpdated	    => ['DATE' => 'LastUpdated',],
     Created	    => ['DATE' => 'Created',],
     Subject	    => ['STRING',],
-    Type	    => ['STRING',],
     Content	    => ['TRANSFIELD',],
     ContentType	    => ['TRANSFIELD',],
     Filename        => ['TRANSFIELD',],
@@ -865,6 +865,7 @@
     }
 
     if ($args{'FIELD'} eq 'Type') {
+    warn "We're loooking at the type";
         $self->{'looking_at_type'} = 1;
     }
 

Modified: rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay_SQL.pm
==============================================================================
--- rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay_SQL.pm	(original)
+++ rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay_SQL.pm	Mon Oct  4 16:01:13 2004
@@ -84,11 +84,19 @@
 }
 
 sub _SQLLimit {
+  my $self = shift;
+    my %args = (@_);
+    if ($args{'FIELD'} eq 'EffectiveId') {
+        $self->{'looking_at_effective_id'} = 1;
+    }      
+    
+    if ($args{'FIELD'} eq 'Type') {
+        $self->{'looking_at_type'} = 1;
+    }
+
   # All SQL stuff goes into one SB subclause so we can deal with all
   # the aggregation
-  my $this = shift;
-
-  $this->SUPER::Limit(@_,
+  $self->SUPER::Limit(%args,
                       SUBCLAUSE => 'ticketsql');
 }
 


More information about the Rt-commit mailing list