| Lines 44-52
          script to administer the budget periods table
      
      
        Link Here | 
        
          | 44 |  | 44 |  | 
        
          | 45 | =cut | 45 | =cut | 
        
          | 46 |  | 46 |  | 
          
            
              | 47 | ## modules | 47 | use Modern::Perl; | 
            
              | 48 | use strict; | 48 |  | 
            
              | 49 | #use warnings; FIXME - Bug 2505 |  |  | 
        
          | 50 | use Number::Format qw(format_price); | 49 | use Number::Format qw(format_price); | 
        
          | 51 | use CGI; | 50 | use CGI; | 
        
          | 52 | use List::Util qw/min/; | 51 | use List::Util qw/min/; | 
  
    | Lines 64-70
          my $dbh = C4::Context->dbh;
      
      
        Link Here | 
        
          | 64 |  | 63 |  | 
        
          | 65 | my $input       = new CGI; | 64 | my $input       = new CGI; | 
        
          | 66 |  | 65 |  | 
          
            
              | 67 | my $searchfield          = $input->param('searchfield'); | 66 | my $searchfield          = $input->param('searchfield') // ''; | 
        
          | 68 | my $budget_period_id     = $input->param('budget_period_id'); | 67 | my $budget_period_id     = $input->param('budget_period_id'); | 
        
          | 69 | my $op                   = $input->param('op')||"else"; | 68 | my $op                   = $input->param('op')||"else"; | 
        
          | 70 | #my $sort1_authcat = $input->param('sort1_authcat'); | 69 | #my $sort1_authcat = $input->param('sort1_authcat'); | 
  
    | Lines 140-146
          if ( $op eq 'add_form' ) {
      
      
        Link Here | 
        
          | 140 | } | 139 | } | 
        
          | 141 |  | 140 |  | 
        
          | 142 | elsif ( $op eq 'add_validate' ) { | 141 | elsif ( $op eq 'add_validate' ) { | 
          
            
              | 143 | ## add or modify a budget period (confirimation) | 142 | ## add or modify a budget period (confirmation) | 
        
          | 144 |  | 143 |  | 
        
          | 145 |     ## update budget period data | 144 |     ## update budget period data | 
        
          | 146 | 	if ( $budget_period_id ne '' ) { | 145 | 	if ( $budget_period_id ne '' ) { | 
  
    | Lines 222-228
          elsif ( $op eq 'duplicate_budget' ){
      
      
        Link Here | 
        
          | 222 |  | 221 |  | 
        
          | 223 |         # get only the columns of aqbudgets | 222 |         # get only the columns of aqbudgets | 
        
          | 224 |         my @columns = Koha::Database->new()->schema->source('Aqbudget')->columns; | 223 |         my @columns = Koha::Database->new()->schema->source('Aqbudget')->columns; | 
          
            
              | 225 |         my $new_entry = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $$entry{$_} )  : () } keys(%$entry) }; | 224 |         my $new_entry = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $entry->{$_} )  : () } keys(%$entry) }; | 
        
          | 226 |         # write it to db | 225 |         # write it to db | 
        
          | 227 |         my $new_id = AddBudget($new_entry); | 226 |         my $new_id = AddBudget($new_entry); | 
        
          | 228 |         $old_new{$old_id} = $new_id; | 227 |         $old_new{$old_id} = $new_id; | 
            
              | 229 | -  |  |  |