Lines 1537-1543
be cleared when it is unsuspended.
Link Here
|
1537 |
sub ToggleSuspend { |
1537 |
sub ToggleSuspend { |
1538 |
my ( $reserve_id, $suspend_until ) = @_; |
1538 |
my ( $reserve_id, $suspend_until ) = @_; |
1539 |
|
1539 |
|
1540 |
$suspend_until = output_pref({ dt => dt_from_string( $suspend_until ), dateformat => 'iso' }) if ( $suspend_until ); |
1540 |
$suspend_until = output_pref( |
|
|
1541 |
{ |
1542 |
dt => dt_from_string($suspend_until), |
1543 |
dateformat => 'iso', |
1544 |
dateonly => 1 |
1545 |
} |
1546 |
) if ($suspend_until); |
1541 |
|
1547 |
|
1542 |
my $do_until = ( $suspend_until ) ? '?' : 'NULL'; |
1548 |
my $do_until = ( $suspend_until ) ? '?' : 'NULL'; |
1543 |
|
1549 |
|
1544 |
- |
|
|