loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.259, 2002/08/01 15:26:23	version 1.260, 2002/08/02 21:11:55
Line 2918 sub ireceipt {	Line 2918 sub ireceipt {
}	}

sub receipt {	sub receipt {
return &ireceipt($ENV{'user.name'},$ENV{'user.domain'},	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
$ENV{'request.course.id'},&symbread());	return &ireceipt($name,$domain,$courseid,$symb);
}	}

# ------------------------------------------------------------ Serves up a file	# ------------------------------------------------------------ Serves up a file
# returns either the contents of the file or a -1	# returns either the contents of the file or a -1
sub getfile {	sub getfile {