loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/run.pm between versions 1.19 and 1.21

-version 1.19, 2001/10/05 22:27:41
+version 1.21, 2001/11/29 19:03:58
  Line 1
  package Apache::run;
+ #
+ # $Id$
+ #
+ # Copyright Michigan State University Board of Trustees
+ #
+ # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+ #
+ # LON-CAPA is free software; you can redistribute it and/or modify
+ # it under the terms of the GNU General Public License as published by
+ # the Free Software Foundation; either version 2 of the License, or
+ # (at your option) any later version.
+ #
+ # LON-CAPA is distributed in the hope that it will be useful,
+ # but WITHOUT ANY WARRANTY; without even the implied warranty of
+ # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ # GNU General Public License for more details.
+ #
+ # You should have received a copy of the GNU General Public License
+ # along with LON-CAPA; if not, write to the Free Software
+ # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ #
+ # /home/httpd/html/adm/gpl.txt
+ #
+ # http://www.lon-capa.org/
+ #
  sub evaluateold {
    my ($expression,$safeeval,$decls) = @_;
- Line 71  sub dump {
+ Line 96  sub dump {
    my $dump='';
    foreach my $symname (sort keys %{$safeeval->varglob('main::')}) {
      if (($symname!~/^\_/) && ($symname!~/\:$/)) {
-       if ($safeeval->reval('defined $'.$symname)) {
+       if ($safeeval->reval('defined($'.$symname.')')) {
  	$dump.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n";
        }
        if ($safeeval->reval('defined @'.$symname)) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.19
changed lines
	Added in v.1.21