| 
      
            Lines 17-25
          
      
      
        Link Here
      
     | 
  
        
          | 17 | 
          # Koha; if not, write to the Free Software Foundation, Inc.,   | 
          17 | 
          # Koha; if not, write to the Free Software Foundation, Inc.,   | 
        
        
          | 18 | 
          # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.  | 
          18 | 
          # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.  | 
        
        
          | 19 | 
           | 
          19 | 
           | 
        
          
            
              | 20 | 
               | 
              20 | 
              use Modern::Perl;  | 
            
            
              | 21 | 
              use strict;  | 
               | 
               | 
            
            
              | 22 | 
              use warnings;  | 
            
        
          | 23 | 
           | 
          21 | 
           | 
        
        
          | 24 | 
          use CGI qw ( -utf8 );  | 
          22 | 
          use CGI qw ( -utf8 );  | 
        
        
          | 25 | 
           | 
          23 | 
           | 
        
  
    | 
      
            Lines 53-66
          my $fullreportname = "reports/reserves_stats.tt";
      
      
        Link Here
      
     | 
  
        
          | 53 | 
          my $do_it    = $input->param('do_it'); | 
          51 | 
          my $do_it    = $input->param('do_it'); | 
        
        
          | 54 | 
          my $line     = $input->param("Line"); | 
          52 | 
          my $line     = $input->param("Line"); | 
        
        
          | 55 | 
          my $column   = $input->param("Column"); | 
          53 | 
          my $column   = $input->param("Column"); | 
        
            
              | 56 | 
              my $podsp    = $input->param("DisplayBy"); | 
               | 
               | 
            
            
              | 57 | 
              my $type     = $input->param("PeriodTypeSel"); | 
            
            
              | 58 | 
              my $daysel   = $input->param("PeriodDaySel"); | 
            
            
              | 59 | 
              my $monthsel = $input->param("PeriodMonthSel"); | 
            
        
          | 60 | 
          my $calc     = $input->param("Cellvalue"); | 
          54 | 
          my $calc     = $input->param("Cellvalue"); | 
        
        
          | 61 | 
          my $output   = $input->param("output"); | 
          55 | 
          my $output   = $input->param("output"); | 
        
        
          | 62 | 
          my $basename = $input->param("basename"); | 
          56 | 
          my $basename = $input->param("basename"); | 
        
            
              | 63 | 
              my $mime     = $input->param("MIME"); | 
               | 
               | 
            
        
          | 64 | 
          my $hash_params = $input->Vars;  | 
          57 | 
          my $hash_params = $input->Vars;  | 
        
        
          | 65 | 
          my $filter_hashref;  | 
          58 | 
          my $filter_hashref;  | 
        
        
          | 66 | 
          foreach my $filter (grep {$_ =~/^filter/} keys %$hash_params){ | 
          59 | 
          foreach my $filter (grep {$_ =~/^filter/} keys %$hash_params){ | 
        
  
    | 
      
            Lines 322-333
          sub calculate {
      
      
        Link Here
      
     | 
  
        
          | 322 | 
          	return [(\%globalline)];  | 
          315 | 
          	return [(\%globalline)];  | 
        
        
          | 323 | 
          }  | 
          316 | 
          }  | 
        
        
          | 324 | 
           | 
          317 | 
           | 
        
            
              | 325 | 
              sub null_to_zzempty ($) { | 
               | 
               | 
            
            
              | 326 | 
              	my $string = shift;  | 
            
            
              | 327 | 
              	defined($string)    or  return 'zzEMPTY';  | 
            
            
              | 328 | 
              	($string eq "NULL") and return 'zzEMPTY';  | 
            
            
              | 329 | 
              	return $string;		# else return the valid value  | 
            
            
              | 330 | 
              }  | 
            
        
          | 331 | 
          sub display_value { | 
          318 | 
          sub display_value { | 
        
        
          | 332 | 
              my ( $crit, $value ) = @_;  | 
          319 | 
              my ( $crit, $value ) = @_;  | 
        
        
          | 333 | 
              my $locations = { map { ( $_->{authorised_value} => $_->{lib} ) } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => '', kohafield => 'items.location' }, { order_by => ['description'] } ) }; | 
          320 | 
              my $locations = { map { ( $_->{authorised_value} => $_->{lib} ) } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => '', kohafield => 'items.location' }, { order_by => ['description'] } ) }; | 
        
  
    | 
      
            Lines 363-368
          sub display_value {
      
      
        Link Here
      
     | 
  
        
          | 363 | 
              }  | 
          350 | 
              }  | 
        
        
          | 364 | 
              return $display_value;  | 
          351 | 
              return $display_value;  | 
        
        
          | 365 | 
          }  | 
          352 | 
          }  | 
        
            
               | 
               | 
              353 | 
               | 
            
        
          | 366 | 
          sub reservestatushuman{ | 
          354 | 
          sub reservestatushuman{ | 
        
        
          | 367 | 
          	my ($val)=@_;  | 
          355 | 
          	my ($val)=@_;  | 
        
        
          | 368 | 
          	my %hashhuman=(  | 
          356 | 
          	my %hashhuman=(  | 
        
  
    | 
      
            Lines 375-380
          sub reservestatushuman{
      
      
        Link Here
      
     | 
  
        
          | 375 | 
          	);  | 
          363 | 
          	);  | 
        
        
          | 376 | 
          	$hashhuman{$val}; | 
          364 | 
          	$hashhuman{$val}; | 
        
        
          | 377 | 
          }  | 
          365 | 
          }  | 
        
            
               | 
               | 
              366 | 
               | 
            
        
          | 378 | 
          sub changeifreservestatus{ | 
          367 | 
          sub changeifreservestatus{ | 
        
        
          | 379 | 
          	my ($val)=@_;  | 
          368 | 
          	my ($val)=@_;  | 
        
        
          | 380 | 
          	($val=~/reservestatus/  | 
          369 | 
          	($val=~/reservestatus/  | 
        
  
    | 
      
            Lines 394-397
          sub changeifreservestatus{
      
      
        Link Here
      
     | 
  
        
          | 394 | 
          					end }  | 
          383 | 
          					end }  | 
        
        
          | 395 | 
          		:$val);  | 
          384 | 
          		:$val);  | 
        
        
          | 396 | 
          }  | 
          385 | 
          }  | 
        
            
              | 397 | 
              1;  | 
               | 
               | 
            
            
              | 398 | 
              -   |