|
version 1.282, 2007/11/03 00:52:06
|
version 1.284, 2007/11/13 23:26:08
|
|
Line 543 sub due_date {
|
Line 543 sub due_date {
|
| &Apache::lonxml::debug("looking for first_access $first_access"); |
&Apache::lonxml::debug("looking for first_access $first_access"); |
| if (defined($first_access)) { |
if (defined($first_access)) { |
| $interval = $first_access+$interval; |
$interval = $first_access+$interval; |
| $date = ($interval < $due_date)? $interval : $due_date; |
$date = (!$due_date || $interval < $due_date) ? $interval |
| |
: $due_date; |
| } else { |
} else { |
| $date = $due_date; |
$date = $due_date; |
| } |
} |
|
Line 683 sub handle_save_or_undo {
|
Line 684 sub handle_save_or_undo {
|
| my $error=0; |
my $error=0; |
| if ($env{'form.Undo'} eq &mt('undo')) { |
if ($env{'form.Undo'} eq &mt('undo')) { |
| my $error=0; |
my $error=0; |
| if (!copy($file,$filetmp)) { $error=1; } |
if (!&File::Copy::copy($file,$filetmp)) { $error=1; } |
| if ((!$error) && (!copy($filebak,$file))) { $error=1; } |
if ((!$error) && (!&File::Copy::copy($filebak,$file))) { $error=1; } |
| if ((!$error) && (!move($filetmp,$filebak))) { $error=1; } |
if ((!$error) && (!&File::Copy::move($filetmp,$filebak))) { $error=1; } |
| if (!$error) { |
if (!$error) { |
| &Apache::lonxml::info("<p><b>". |
&Apache::lonxml::info("<p><b>". |
| &mt("Undid changes, Switched [_1] and [_2]", |
&mt("Undid changes, Switched [_1] and [_2]", |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhomework.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework