| 
      
            Lines 18-24
          
      
      
        Link Here
      
     | 
  
        
          | 18 | 
          # along with Koha; if not, see <http://www.gnu.org/licenses>.  | 
          18 | 
          # along with Koha; if not, see <http://www.gnu.org/licenses>.  | 
        
        
          | 19 | 
           | 
          19 | 
           | 
        
        
          | 20 | 
          use strict;  | 
          20 | 
          use strict;  | 
        
          
            
              | 21 | 
              #use warnings; FIXME - Bug 2505  | 
              21 | 
              use warnings;  | 
            
        
          | 22 | 
           | 
          22 | 
           | 
        
        
          | 23 | 
          use CGI qw ( -utf8 );  | 
          23 | 
          use CGI qw ( -utf8 );  | 
        
        
          | 24 | 
          use Date::Manip;  | 
          24 | 
          use Date::Manip;  | 
        
  
    | 
      
            Lines 45-51
          Plugin that shows circulation stats
      
      
        Link Here
      
     | 
  
        
          | 45 | 
          =cut  | 
          45 | 
          =cut  | 
        
        
          | 46 | 
           | 
          46 | 
           | 
        
        
          | 47 | 
          # my $debug = 1;	# override for now.  | 
          47 | 
          # my $debug = 1;	# override for now.  | 
        
          
            
              | 48 | 
              my $input = new CGI;  | 
              48 | 
              my $input = CGI->new;  | 
            
        
          | 49 | 
          my $fullreportname = "reports/issues_stats.tt";  | 
          49 | 
          my $fullreportname = "reports/issues_stats.tt";  | 
        
        
          | 50 | 
          my $do_it    = $input->param('do_it'); | 
          50 | 
          my $do_it    = $input->param('do_it'); | 
        
        
          | 51 | 
          my $line     = $input->param("Line"); | 
          51 | 
          my $line     = $input->param("Line"); | 
        
  
    | 
      
            Lines 70-88
          my ($template, $borrowernumber, $cookie) = get_template_and_user({
      
      
        Link Here
      
     | 
  
        
          | 70 | 
          	flagsrequired => {reports => '*'}, | 
          70 | 
          	flagsrequired => {reports => '*'}, | 
        
        
          | 71 | 
          	debug => 0,  | 
          71 | 
          	debug => 0,  | 
        
        
          | 72 | 
          });  | 
          72 | 
          });  | 
        
          
            
              | 73 | 
              our $sep     = $input->param("sep"); | 
              73 | 
              our $sep     = $input->param("sep") // ''; | 
            
        
          | 74 | 
          $sep = "\t" if ($sep eq 'tabulation');  | 
          74 | 
          $sep = "\t" if ($sep eq 'tabulation');  | 
        
        
          | 75 | 
          $template->param(do_it => $do_it,  | 
          75 | 
          $template->param(do_it => $do_it,  | 
        
        
          | 76 | 
          );  | 
          76 | 
          );  | 
        
        
          | 77 | 
           | 
          77 | 
           | 
        
          
            
              | 78 | 
              my $itemtypes = GetItemTypes();  | 
              78 | 
              our $itemtypes = GetItemTypes();  | 
            
            
              | 79 | 
              my $categoryloop = GetBorrowercategoryList;  | 
              79 | 
              our $categoryloop = GetBorrowercategoryList;  | 
            
        
          | 80 | 
           | 
          80 | 
           | 
        
          
            
              | 81 | 
              my $ccodes    = GetKohaAuthorisedValues("items.ccode"); | 
              81 | 
              our $ccodes    = GetKohaAuthorisedValues("items.ccode"); | 
            
            
              | 82 | 
              my $locations = GetKohaAuthorisedValues("items.location"); | 
              82 | 
              our $locations = GetKohaAuthorisedValues("items.location"); | 
            
        
          | 83 | 
           | 
          83 | 
           | 
        
          
            
              | 84 | 
              my $Bsort1 = GetAuthorisedValues("Bsort1"); | 
              84 | 
              our $Bsort1 = GetAuthorisedValues("Bsort1"); | 
            
            
              | 85 | 
              my $Bsort2 = GetAuthorisedValues("Bsort2"); | 
              85 | 
              our $Bsort2 = GetAuthorisedValues("Bsort2"); | 
            
        
          | 86 | 
          my ($hassort1,$hassort2);  | 
          86 | 
          my ($hassort1,$hassort2);  | 
        
        
          | 87 | 
          $hassort1=1 if $Bsort1;  | 
          87 | 
          $hassort1=1 if $Bsort1;  | 
        
        
          | 88 | 
          $hassort2=1 if $Bsort2;  | 
          88 | 
          $hassort2=1 if $Bsort2;  | 
        
  
    | 
      
            Lines 219-226
          sub calculate {
      
      
        Link Here
      
     | 
  
        
          | 219 | 
          	push @loopfilter,{crit=>"Select Month",filter=>$monthsel} if ($monthsel); | 
          219 | 
          	push @loopfilter,{crit=>"Select Month",filter=>$monthsel} if ($monthsel); | 
        
        
          | 220 | 
           | 
          220 | 
           | 
        
        
          | 221 | 
          	my @linefilter;  | 
          221 | 
          	my @linefilter;  | 
        
          
            
              | 222 | 
              	$debug and warn "filtres ". join "|", @filters;  | 
              222 | 
              	$debug and warn "filtres ". join "|", @$filters;  | 
            
            
              | 223 | 
              	my ($colsource, $linesource);  | 
              223 | 
              	my ($colsource, $linesource) = ('', ''); | 
            
        
          | 224 | 
          	$linefilter[1] = @$filters[1] if ($line =~ /datetime/);  | 
          224 | 
          	$linefilter[1] = @$filters[1] if ($line =~ /datetime/);  | 
        
        
          | 225 | 
          	$linefilter[0] =   | 
          225 | 
          	$linefilter[0] =   | 
        
        
          | 226 | 
          	    ( $line =~ /datetime/ ) ? @$filters[0]  | 
          226 | 
          	    ( $line =~ /datetime/ ) ? @$filters[0]  | 
        
            
              | 227 | 
              -   | 
               | 
               |