loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.154, 2003/10/14 18:44:21	version 1.156, 2003/10/30 20:22:00
Line 217 sub check_access {	Line 217 sub check_access {
my $allowed=&check_ip_acc(&Apache::lonnet::EXT("resource.$id.acc"));	my $allowed=&check_ip_acc(&Apache::lonnet::EXT("resource.$id.acc"));
if (!$allowed) {	if (!$allowed) {
$status='INVALID_ACCESS';	$status='INVALID_ACCESS';
$date=&mt("may be open from a different computer.");	$date=&mt("can not be accessed from your location.");
return($status,$date);	return($status,$date);
}	}

Line 379 sub handle_save_or_undo {	Line 379 sub handle_save_or_undo {
my $filetmp =$file.".tmp";	my $filetmp =$file.".tmp";
my $error=0;	my $error=0;

	&Apache::lonnet::correct_line_ends($result);

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 (!copy($file,$filetmp)) { $error=1; }