loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.151, 2006/05/18 01:08:51	version 1.152, 2006/05/30 12:46:09
Line 185 use Apache::lonlocal;	Line 185 use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use Apache::longroup;	use Apache::longroup;
use Apache::lonselstudent;	use Apache::lonselstudent;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;

# Register all the tags with the helper, so the helper can	# Register all the tags with the helper, so the helper can
# push and pop them	# push and pop them
Line 469 sub _varsInFile {	Line 471 sub _varsInFile {
my $self = shift;	my $self = shift;
my @vars = ();	my @vars = ();
for my $key (keys %{$self->{VARS}}) {	for my $key (keys %{$self->{VARS}}) {
push @vars, &Apache::lonnet::escape($key) . '=' .	push @vars, &escape($key) . '=' .
&Apache::lonnet::escape($self->{VARS}->{$key});	&escape($self->{VARS}->{$key});
}	}
return join ('&', @vars);	return join ('&', @vars);
}	}