loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.153, 2006/05/30 21:48:00	version 1.154, 2006/05/30 21:54:22
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;	use LONCAPA;

# Register all the tags with the helper, so the helper can	# Register all the tags with the helper, so the helper can
Line 365 use Apache::loncommon;	Line 364 use Apache::loncommon;
use Apache::File;	use Apache::File;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
	use LONCAPA;

sub new {	sub new {
my $proto = shift;	my $proto = shift;
Line 470 sub _saveVars {	Line 470 sub _saveVars {
sub _varsInFile {	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) . '=' . &escape($self->{VARS}->{$key}));
&Apache::lonnet::escape($self->{VARS}->{$key});
}	}
return join ('&', @vars);	return join ('&', @vars);
}	}