loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.153, 2003/10/14 15:47:50	version 1.156, 2003/10/30 20:22:00
Line 149 $Apache::lonxml::browse='';	Line 149 $Apache::lonxml::browse='';

sub check_ip_acc {	sub check_ip_acc {
my ($acc)=@_;	my ($acc)=@_;
if (!defined($acc)) { return 1; }	if (!defined($acc) \|\| $acc =~ /^\s*$/) { return 1; }
my $allowed=0;	my $allowed=0;
my $ip=$ENV{'REMOTE_ADDR'};	my $ip=$ENV{'REMOTE_ADDR'};
my $name;	my $name;
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; }