| Lines 25-31
          This script displays items in the tmp_holdsqueue table
      
      
        Link Here | 
        
          | 25 | use Modern::Perl; | 25 | use Modern::Perl; | 
        
          | 26 | use CGI qw ( -utf8 ); | 26 | use CGI qw ( -utf8 ); | 
        
          | 27 | use C4::Auth qw( get_template_and_user ); | 27 | use C4::Auth qw( get_template_and_user ); | 
          
            
              | 28 | use C4::Output qw( output_html_with_http_headers ); | 28 | use C4::Output qw( output_html_with_http_headers pagination_bar ); | 
        
          | 29 | use C4::HoldsQueue qw( GetHoldsQueueItems ); | 29 | use C4::HoldsQueue qw( GetHoldsQueueItems ); | 
        
          | 30 | use Koha::BiblioFrameworks; | 30 | use Koha::BiblioFrameworks; | 
        
          | 31 | use Koha::ItemTypes; | 31 | use Koha::ItemTypes; | 
  
    | Lines 44-60
          my $params = $query->Vars;
      
      
        Link Here | 
        
          | 44 | my $run_report     = $params->{'run_report'}; | 44 | my $run_report     = $params->{'run_report'}; | 
        
          | 45 | my $branchlimit    = $params->{'branchlimit'}; | 45 | my $branchlimit    = $params->{'branchlimit'}; | 
        
          | 46 | my $itemtypeslimit = $params->{'itemtypeslimit'}; | 46 | my $itemtypeslimit = $params->{'itemtypeslimit'}; | 
          
            
              | 47 | my $ccodeslimit = $params->{'ccodeslimit'}; | 47 | my $ccodeslimit    = $params->{'ccodeslimit'}; | 
        
          | 48 | my $locationslimit = $params->{'locationslimit'}; | 48 | my $locationslimit = $params->{'locationslimit'}; | 
            
              |  |  | 49 | my $limit          = $params->{'limit'} || 20; | 
            
              | 50 | my $page           = $params->{'page'}  || 1; | 
        
          | 49 |  | 51 |  | 
        
          | 50 | if ( $run_report ) { | 52 | if ( $run_report ) { | 
          
            
              | 51 |     my $items = GetHoldsQueueItems({ | 53 |     my ( $items, $total ) = GetHoldsQueueItems({ | 
        
          | 52 |         branchlimt => $branchlimit, | 54 |         branchlimt => $branchlimit, | 
        
          | 53 |         itemtypeslimit => $itemtypeslimit, | 55 |         itemtypeslimit => $itemtypeslimit, | 
        
          | 54 |         ccodeslimit => $ccodeslimit, | 56 |         ccodeslimit => $ccodeslimit, | 
          
            
              | 55 |         locationslimit => $locationslimit | 57 |         locationslimit => $locationslimit, | 
            
              |  |  | 58 |         limit => $limit, | 
            
              | 59 |         page => $page, | 
        
          | 56 |     }); | 60 |     }); | 
        
          | 57 |  | 61 |  | 
            
              |  |  | 62 |     my $pages = int( $total / $limit ) + ( ( $total % $limit ) > 0 ? 1 : 0 ); | 
        
          | 58 |     $template->param( | 63 |     $template->param( | 
        
          | 59 |         branchlimit     => $branchlimit, | 64 |         branchlimit     => $branchlimit, | 
        
          | 60 |         itemtypeslimit     => $itemtypeslimit, | 65 |         itemtypeslimit     => $itemtypeslimit, | 
  
    | Lines 63-68
          if ( $run_report ) {
      
      
        Link Here | 
        
          | 63 |         total      => scalar @$items, | 68 |         total      => scalar @$items, | 
        
          | 64 |         itemsloop  => $items, | 69 |         itemsloop  => $items, | 
        
          | 65 |         run_report => $run_report, | 70 |         run_report => $run_report, | 
            
              |  |  | 71 |         page           => $page, | 
            
              | 72 |         limit          => $limit, | 
            
              | 73 |         pagination_bar => pagination_bar( | 
            
              | 74 |             'view_holdsqueue.pl', | 
            
              | 75 |             $pages, | 
            
              | 76 |             $page, | 
            
              | 77 |             'page', | 
            
              | 78 |             { | 
            
              | 79 |                 branchlimit    => $branchlimit, | 
            
              | 80 |                 itemtypeslimit => $itemtypeslimit, | 
            
              | 81 |                 ccodeslimit    => $ccodeslimit, | 
            
              | 82 |                 locationslimit => $locationslimit, | 
            
              | 83 |                 limit          => $limit, | 
            
              | 84 |                 run_report     => 1, | 
            
              | 85 |             } | 
            
              | 86 |         ), | 
        
          | 66 |     ); | 87 |     ); | 
        
          | 67 | } | 88 | } | 
        
          | 68 |  | 89 |  |