loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.949, 2008/03/12 02:46:27	version 1.950, 2008/03/22 15:47:41
Line 1705 sub absolute_url {	Line 1705 sub absolute_url {
# form Hash that describes how the rendering should be done	# form Hash that describes how the rendering should be done
# and other things.	# and other things.
# Returns:	# Returns:
# Scalar context: The content of the reply.	# Scalar context: The content of the response.
# Array context: 2 element list of the content and the full response variable.	# Array context: 2 element list of the content and the full response object.
#	#
# Returns:
# The content of the response.
sub ssi {	sub ssi {

my ($fn,%form)=@_;	my ($fn,%form)=@_;
my $count = scalar(@_);


my $ua=new LWP::UserAgent;	my $ua=new LWP::UserAgent;

my $request;	my $request;

$form{'no_update_last_known'}=1;	$form{'no_update_last_known'}=1;
Line 1731 sub ssi {	Line 1725 sub ssi {

$request->header(Cookie => $ENV{'HTTP_COOKIE'});	$request->header(Cookie => $ENV{'HTTP_COOKIE'});
my $response=$ua->request($request);	my $response=$ua->request($request);
my $status = $response->code;

if (wantarray) {	if (wantarray) {
return ($response->content, $response);	return ($response->content, $response);