Lines 1545-1551
be cleared when it is unsuspended.
Link Here
|
1545 |
sub ToggleSuspend { |
1545 |
sub ToggleSuspend { |
1546 |
my ( $reserve_id, $suspend_until ) = @_; |
1546 |
my ( $reserve_id, $suspend_until ) = @_; |
1547 |
|
1547 |
|
1548 |
$suspend_until = output_pref({ dt => dt_from_string( $suspend_until ), dateformat => 'iso' }) if ( $suspend_until ); |
1548 |
$suspend_until = output_pref( |
|
|
1549 |
{ |
1550 |
dt => dt_from_string($suspend_until), |
1551 |
dateformat => 'iso', |
1552 |
dateonly => 1 |
1553 |
} |
1554 |
) if ($suspend_until); |
1549 |
|
1555 |
|
1550 |
my $do_until = ( $suspend_until ) ? '?' : 'NULL'; |
1556 |
my $do_until = ( $suspend_until ) ? '?' : 'NULL'; |
1551 |
|
1557 |
|
1552 |
- |
|
|