| 
      
            Lines 21-26
          use Modern::Perl;
      
      
        Link Here
      
     | 
  
        
          | 21 | 
           | 
          21 | 
           | 
        
        
          | 22 | 
          use Carp;  | 
          22 | 
          use Carp;  | 
        
        
          | 23 | 
           | 
          23 | 
           | 
        
            
               | 
               | 
              24 | 
              use C4::Context;  | 
            
            
              | 25 | 
               | 
            
        
          | 24 | 
          use Koha::Database;  | 
          26 | 
          use Koha::Database;  | 
        
        
          | 25 | 
          use Koha::DateUtils;  | 
          27 | 
          use Koha::DateUtils;  | 
        
        
          | 26 | 
          use Koha::Exceptions;  | 
          28 | 
          use Koha::Exceptions;  | 
        
  
    | 
      
            Lines 40-45
          Koha::RotatingCollection - Koha Rotating collection Object class
      
      
        Link Here
      
     | 
  
        
          | 40 | 
           | 
          42 | 
           | 
        
        
          | 41 | 
          =cut  | 
          43 | 
          =cut  | 
        
        
          | 42 | 
           | 
          44 | 
           | 
        
            
               | 
               | 
              45 | 
              =head3 new  | 
            
            
              | 46 | 
               | 
            
            
              | 47 | 
                  $collection = Koha::RotatingCollection->new();  | 
            
            
              | 48 | 
               | 
            
            
              | 49 | 
                  This sub automatically adds date of creation and librarian who created collection if it is not present in params.  | 
            
            
              | 50 | 
               | 
            
            
              | 51 | 
              =cut  | 
            
            
              | 52 | 
               | 
            
            
              | 53 | 
              sub new { | 
            
            
              | 54 | 
                  my ($class, $params) = @_;  | 
            
            
              | 55 | 
                  $params->{createdOn} //= output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); | 
            
            
              | 56 | 
                  $params->{createdBy} = undef; | 
            
            
              | 57 | 
                  $params->{createdBy} = C4::Context->userenv->{number} if defined C4::Context->userenv; | 
            
            
              | 58 | 
               | 
            
            
              | 59 | 
                  return $class->SUPER::new($params);  | 
            
            
              | 60 | 
              }  | 
            
            
              | 61 | 
               | 
            
        
          | 43 | 
          =head3 items  | 
          62 | 
          =head3 items  | 
        
        
          | 44 | 
           | 
          63 | 
           | 
        
        
          | 45 | 
          =cut  | 
          64 | 
          =cut  | 
        
  
    | 
      
            Lines 58-63
          sub items {
      
      
        Link Here
      
     | 
  
        
          | 58 | 
              return $items;  | 
          77 | 
              return $items;  | 
        
        
          | 59 | 
          }  | 
          78 | 
          }  | 
        
        
          | 60 | 
           | 
          79 | 
           | 
        
            
               | 
               | 
              80 | 
              =head3 untransferred_items  | 
            
            
              | 81 | 
               | 
            
            
              | 82 | 
              my $untransferred_items = $collection->untransferred_items;  | 
            
            
              | 83 | 
               | 
            
            
              | 84 | 
              Return all items which are not transferred yet  | 
            
            
              | 85 | 
               | 
            
            
              | 86 | 
              =cut  | 
            
            
              | 87 | 
               | 
            
            
              | 88 | 
              sub untransferred_items { | 
            
            
              | 89 | 
                  my ( $self ) = @_;  | 
            
            
              | 90 | 
               | 
            
            
              | 91 | 
                  my $items = Koha::Items->search(  | 
            
            
              | 92 | 
                      { | 
            
            
              | 93 | 
                          'collections_trackings.colId' => $self->colId,  | 
            
            
              | 94 | 
                          'branchtransfers.branchtransfer_id' => undef,  | 
            
            
              | 95 | 
                      },  | 
            
            
              | 96 | 
                      { | 
            
            
              | 97 | 
                          join => [ 'collections_trackings', 'branchtransfers' ]  | 
            
            
              | 98 | 
                      }  | 
            
            
              | 99 | 
                  );  | 
            
            
              | 100 | 
               | 
            
            
              | 101 | 
                  return $items;  | 
            
            
              | 102 | 
              }  | 
            
            
              | 103 | 
               | 
            
        
          | 61 | 
          =head3 add_item  | 
          104 | 
          =head3 add_item  | 
        
        
          | 62 | 
           | 
          105 | 
           | 
        
        
          | 63 | 
          $collection->add_item( $item_object );  | 
          106 | 
          $collection->add_item( $item_object );  | 
        
  
    | 
      
            Lines 134-140
          sub transfer {
      
      
        Link Here
      
     | 
  
        
          | 134 | 
           | 
          177 | 
           | 
        
        
          | 135 | 
              Koha::Exceptions::ObjectNotFound->throw if ref($library) ne 'Koha::Library';  | 
          178 | 
              Koha::Exceptions::ObjectNotFound->throw if ref($library) ne 'Koha::Library';  | 
        
        
          | 136 | 
           | 
          179 | 
           | 
        
          
            
              | 137 | 
                  $self->colBranchcode( $library->branchcode )->store;  | 
              180 | 
                  $self->colBranchcode( $library->branchcode );  | 
            
            
               | 
               | 
              181 | 
                  $self->lastTransferredOn( output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }) ); | 
            
            
              | 182 | 
                  $self->store;  | 
            
        
          | 138 | 
           | 
          183 | 
           | 
        
        
          | 139 | 
              my $from;  | 
          184 | 
              my $from;  | 
        
        
          | 140 | 
              $from = C4::Context->userenv->{'branch'} if C4::Context->userenv; | 
          185 | 
              $from = C4::Context->userenv->{'branch'} if C4::Context->userenv; | 
        
  
    | 
      
            Lines 162-167
          sub transfer {
      
      
        Link Here
      
     | 
  
        
          | 162 | 
              }  | 
          207 | 
              }  | 
        
        
          | 163 | 
          }  | 
          208 | 
          }  | 
        
        
          | 164 | 
           | 
          209 | 
           | 
        
            
               | 
               | 
              210 | 
              =head3 creator  | 
            
            
              | 211 | 
               | 
            
            
              | 212 | 
                  $creator = $collection->creator  | 
            
            
              | 213 | 
               | 
            
            
              | 214 | 
                  return creator (Koha::Patron object) of this collection  | 
            
            
              | 215 | 
               | 
            
            
              | 216 | 
              =cut  | 
            
            
              | 217 | 
               | 
            
            
              | 218 | 
              sub creator { | 
            
            
              | 219 | 
                  my ( $self ) = @_;  | 
            
            
              | 220 | 
               | 
            
            
              | 221 | 
                  return unless $self->createdBy;  | 
            
            
              | 222 | 
               | 
            
            
              | 223 | 
                  my $patron = Koha::Patrons->find( $self->createdBy );  | 
            
            
              | 224 | 
               | 
            
            
              | 225 | 
                  return $patron;  | 
            
            
              | 226 | 
              }  | 
            
            
              | 227 | 
               | 
            
        
          | 165 | 
          =head3 type  | 
          228 | 
          =head3 type  | 
        
        
          | 166 | 
           | 
          229 | 
           | 
        
        
          | 167 | 
          =cut  | 
          230 | 
          =cut  |