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