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); |
} |
} |