|
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 |
- |
|
|