| Lines 36-41
          use C4::Members qw();
      
      
        Link Here | 
        
          | 36 | use C4::Letters; | 36 | use C4::Letters; | 
        
          | 37 | use C4::Branch qw( GetBranchDetail ); | 37 | use C4::Branch qw( GetBranchDetail ); | 
        
          | 38 | use C4::Dates qw( format_date_in_iso ); | 38 | use C4::Dates qw( format_date_in_iso ); | 
            
              |  |  | 39 |  | 
            
              | 40 | use Koha::DateUtils; | 
            
              | 41 |  | 
        
          | 39 | use List::MoreUtils qw( firstidx ); | 42 | use List::MoreUtils qw( firstidx ); | 
        
          | 40 |  | 43 |  | 
        
          | 41 | use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); | 44 | use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); | 
  
    | Lines 1517-1536
          be cleared when it is unsuspended.
      
      
        Link Here | 
        
          | 1517 | =cut | 1520 | =cut | 
        
          | 1518 |  | 1521 |  | 
        
          | 1519 | sub ToggleSuspend { | 1522 | sub ToggleSuspend { | 
          
            
              | 1520 |     my ( $borrowernumber, $biblionumber ) = @_; | 1523 |     my ( $borrowernumber, $biblionumber, $suspend_until ) = @_; | 
            
              |  |  | 1524 |  | 
            
              | 1525 |     $suspend_until = output_pref( dt_from_string( $suspend_until ), 'iso' ) if ( $suspend_until ); | 
            
              | 1526 |  | 
            
              | 1527 |     my $do_until = ( $suspend_until ) ? '?' : 'NULL'; | 
        
          | 1521 |  | 1528 |  | 
        
          | 1522 |     my $dbh = C4::Context->dbh; | 1529 |     my $dbh = C4::Context->dbh; | 
        
          | 1523 |  | 1530 |  | 
        
          | 1524 |     my $sth = $dbh->prepare( | 1531 |     my $sth = $dbh->prepare( | 
        
          | 1525 |         "UPDATE reserves SET suspend = NOT suspend, | 1532 |         "UPDATE reserves SET suspend = NOT suspend, | 
          
            
              | 1526 |         suspend_until = CASE WHEN suspend = 0 THEN NULL ELSE suspend_until END | 1533 |         suspend_until = CASE WHEN suspend = 0 THEN NULL ELSE $do_until END | 
        
          | 1527 |         WHERE biblionumber = ? | 1534 |         WHERE biblionumber = ? | 
        
          | 1528 |         AND borrowernumber = ? | 1535 |         AND borrowernumber = ? | 
        
          | 1529 |     "); | 1536 |     "); | 
          
            
              | 1530 |     $sth->execute( | 1537 |  | 
            
              | 1531 |         $biblionumber, | 1538 |     my @params; | 
            
              | 1532 |         $borrowernumber, | 1539 |     push( @params, $suspend_until ) if ( $suspend_until ); | 
            
              | 1533 |     ); | 1540 |     push( @params, $biblionumber ); | 
            
              |  |  | 1541 |     push( @params, $borrowernumber ); | 
            
              | 1542 |  | 
            
              | 1543 |     $sth->execute( @params ); | 
        
          | 1534 |     $sth->finish; | 1544 |     $sth->finish; | 
        
          | 1535 | } | 1545 | } | 
        
          | 1536 |  | 1546 |  |