| 
      
            Lines 17-30
          package Koha::Acquisition::Bookseller::Issue;
      
      
        Link Here
      
     | 
  
        
          | 17 | 
           | 
          17 | 
           | 
        
        
          | 18 | 
          use Modern::Perl;  | 
          18 | 
          use Modern::Perl;  | 
        
        
          | 19 | 
           | 
          19 | 
           | 
        
            
              | 20 | 
               | 
               | 
               | 
            
        
          | 21 | 
          use Koha::Database;  | 
          20 | 
          use Koha::Database;  | 
        
        
          | 22 | 
           | 
          21 | 
           | 
        
        
          | 23 | 
          use base qw(Koha::Object);  | 
          22 | 
          use base qw(Koha::Object);  | 
        
        
          | 24 | 
           | 
          23 | 
           | 
        
            
               | 
               | 
              24 | 
              use constant ISSUE_TYPE_CATEGORY => 'VENDOR_ISSUE_TYPE';  | 
            
            
              | 25 | 
               | 
            
        
          | 25 | 
          =head1 NAME  | 
          26 | 
          =head1 NAME  | 
        
        
          | 26 | 
           | 
          27 | 
           | 
        
          
            
              | 27 | 
              Koha::Acquisition::Bookseller::Issue - Koha Issue Object class  | 
              28 | 
              Koha::Acquisition::Bookseller::Issue - Koha vendor issue object class  | 
            
        
          | 28 | 
           | 
          29 | 
           | 
        
        
          | 29 | 
          =head1 API  | 
          30 | 
          =head1 API  | 
        
        
          | 30 | 
           | 
          31 | 
           | 
        
  
    | 
      
            Lines 40-49
          sub strings_map {
      
      
        Link Here
      
     | 
  
        
          | 40 | 
              my $strings = {}; | 
          41 | 
              my $strings = {}; | 
        
        
          | 41 | 
           | 
          42 | 
           | 
        
        
          | 42 | 
              if ( defined $self->type ) { | 
          43 | 
              if ( defined $self->type ) { | 
        
            
              | 43 | 
                      my $type_av_category = 'VENDOR_ISSUE_TYPE';  | 
               | 
               | 
            
        
          | 44 | 
                  my $av = Koha::AuthorisedValues->search(  | 
          44 | 
                  my $av = Koha::AuthorisedValues->search(  | 
        
        
          | 45 | 
                      { | 
          45 | 
                      { | 
        
          
            
              | 46 | 
                              category => $type_av_category,  | 
              46 | 
                              category => ISSUE_TYPE_CATEGORY,  | 
            
        
          | 47 | 
                          authorised_value => $self->type,  | 
          47 | 
                          authorised_value => $self->type,  | 
        
        
          | 48 | 
                      }  | 
          48 | 
                      }  | 
        
        
          | 49 | 
                  );  | 
          49 | 
                  );  | 
        
  
    | 
      
            Lines 55-61
          sub strings_map {
      
      
        Link Here
      
     | 
  
        
          | 55 | 
                    : $self->type;  | 
          55 | 
                    : $self->type;  | 
        
        
          | 56 | 
           | 
          56 | 
           | 
        
        
          | 57 | 
                  $strings->{type} = { | 
          57 | 
                  $strings->{type} = { | 
        
          
            
              | 58 | 
                          category => 'VENDOR_ISSUE_TYPE',  | 
              58 | 
                          category => ISSUE_TYPE_CATEGORY,  | 
            
        
          | 59 | 
                      str      => $type_str,  | 
          59 | 
                      str      => $type_str,  | 
        
        
          | 60 | 
                      type     => 'av',  | 
          60 | 
                      type     => 'av',  | 
        
        
          | 61 | 
                  };  | 
          61 | 
                  };  |