"Fossies" - the Fresh Open Source Software Archive

Member "RT-Extension-Assets-1.05/lib/RT/Catalogs.pm" (15 Oct 2014, 3335 Bytes) of package /linux/misc/RT-Extension-Assets-1.05.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "Catalogs.pm" see the Fossies "Dox" file reference documentation.

    1 # BEGIN BPS TAGGED BLOCK {{{
    2 #
    3 # COPYRIGHT:
    4 #
    5 # This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
    6 #                                          <sales@bestpractical.com>
    7 #
    8 # (Except where explicitly superseded by other copyright notices)
    9 #
   10 #
   11 # LICENSE:
   12 #
   13 # This work is made available to you under the terms of Version 2 of
   14 # the GNU General Public License. A copy of that license should have
   15 # been provided with this software, but in any event can be snarfed
   16 # from www.gnu.org.
   17 #
   18 # This work is distributed in the hope that it will be useful, but
   19 # WITHOUT ANY WARRANTY; without even the implied warranty of
   20 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   21 # General Public License for more details.
   22 #
   23 # You should have received a copy of the GNU General Public License
   24 # along with this program; if not, write to the Free Software
   25 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
   26 # 02110-1301 or visit their web page on the internet at
   27 # http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
   28 #
   29 #
   30 # CONTRIBUTION SUBMISSION POLICY:
   31 #
   32 # (The following paragraph is not intended to limit the rights granted
   33 # to you to modify and distribute this software under the terms of
   34 # the GNU General Public License and is only of importance to you if
   35 # you choose to contribute your changes and enhancements to the
   36 # community by submitting them to Best Practical Solutions, LLC.)
   37 #
   38 # By intentionally submitting any modifications, corrections or
   39 # derivatives to this work, or any other work intended for use with
   40 # Request Tracker, to Best Practical Solutions, LLC, you confirm that
   41 # you are the copyright holder for those contributions and you grant
   42 # Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
   43 # royalty-free, perpetual, license to use, copy, create derivative
   44 # works based on those contributions, and sublicense and distribute
   45 # those contributions and any derivatives thereof.
   46 #
   47 # END BPS TAGGED BLOCK }}}
   48 
   49 use strict;
   50 use warnings;
   51 
   52 package RT::Catalogs;
   53 use base 'RT::SearchBuilder';
   54 
   55 =head1 NAME
   56 
   57 RT::Catalogs - a collection of L<RT::Catalog> objects
   58 
   59 =head1 METHODS
   60 
   61 Only additional methods or overridden behaviour beyond the L<RT::SearchBuilder>
   62 (itself a L<DBIx::SearchBuilder>) class are documented below.
   63 
   64 =head2 Limit
   65 
   66 Defaults CASESENSITIVE to 0
   67 
   68 =cut
   69 
   70 sub Limit {
   71     my $self = shift;
   72     my %args = (
   73         CASESENSITIVE => 0,
   74         @_
   75     );
   76     $self->SUPER::Limit(%args);
   77 }
   78 
   79 =head1 INTERNAL METHODS
   80 
   81 Public methods which encapsulate implementation details.  You shouldn't need to
   82 call these in normal code.
   83 
   84 =head2 AddRecord
   85 
   86 Checks the L<RT::Catalog> is readable before adding it to the results
   87 
   88 =cut
   89 
   90 sub AddRecord {
   91     my $self    = shift;
   92     my $catalog = shift;
   93     return unless $catalog->CurrentUserCanSee;
   94 
   95     $self->SUPER::AddRecord($catalog, @_);
   96 }
   97 
   98 =head2 NewItem
   99 
  100 Returns a new empty RT::Catalog item
  101 
  102 =cut
  103 
  104 sub NewItem {
  105     my $self = shift;
  106     return RT::Catalog->new( $self->CurrentUser );
  107 }
  108 
  109 =head1 PRIVATE METHODS
  110 
  111 =head2 _Init
  112 
  113 Sets default ordering by Name ascending.
  114 
  115 =cut
  116 
  117 sub _Init {
  118     my $self = shift;
  119 
  120     $self->{'with_disabled_column'} = 1;
  121 
  122     $self->OrderBy( FIELD => 'Name', ORDER => 'ASC' );
  123     return $self->SUPER::_Init( @_ );
  124 }
  125 
  126 sub Table { "RTxCatalogs" }
  127 
  128 RT::Base->_ImportOverlays();
  129 
  130 1;