[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonhelper.pm
From: albertel <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2006-05-30 21:54:22
Message-ID: cvsalbertel1149026062 () cvsserver
[Download RAW message or body]
albertel Tue May 30 17:54:22 2006 EDT
Modified files:
/loncom/interface lonhelper.pm
Log:
- use was not added to the subpackage
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.153 loncom/interface/lonhelper.pm:1.154
--- loncom/interface/lonhelper.pm:1.153 Tue May 30 17:48:00 2006
+++ loncom/interface/lonhelper.pm Tue May 30 17:54:22 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.153 2006/05/30 21:48:00 foxr Exp $
+# $Id: lonhelper.pm,v 1.154 2006/05/30 21:54:22 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -185,7 +185,6 @@
use Apache::lonnet;
use Apache::longroup;
use Apache::lonselstudent;
-use lib '/home/httpd/lib/perl/';
use LONCAPA;
# Register all the tags with the helper, so the helper can
@@ -365,6 +364,7 @@
use Apache::File;
use Apache::lonlocal;
use Apache::lonnet;
+use LONCAPA;
sub new {
my $proto = shift;
@@ -470,9 +470,8 @@
sub _varsInFile {
my $self = shift;
my @vars = ();
- for my $key (keys %{$self->{VARS}}) {
- push @vars, &Apache::lonnet::escape($key) . '=' .
- &Apache::lonnet::escape($self->{VARS}->{$key});
+ for my $key (keys(%{$self->{VARS}})) {
+ push(@vars, &escape($key) . '=' . &escape($self->{VARS}->{$key}));
}
return join ('&', @vars);
}
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic