[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.193 and 1.194

version 1.193, 2004/07/03 18:49:42 version 1.194, 2004/07/03 18:55:16
Line 651  sub help_open_menu { Line 651  sub help_open_menu {
     my $title = &mt('Choose your help');      my $title = &mt('Choose your help');
     my $origurl = $ENV{'REQUEST_URI'};      my $origurl = $ENV{'REQUEST_URI'};
     my $timestamp = time;      my $timestamp = time;
     my %formhash = ();  #    if ($ENV{'request.course.fn'}) {
     if ($ENV{'request.course.fn'}) {  #        open(FILE,">$ENV{'request.course.fn'}.formdata");
         open(FILE,">$ENV{'request.course.fn'}.formdata");  #        &get_unprocessed_cgi($ENV{'QUERY_STRING'},undef);
         &get_unprocessed_cgi($ENV{'QUERY_STRING'},undef);  #        foreach (keys %ENV) {
         foreach (keys %ENV) {  #            if ($_ =~ m/^form\.(.+)$/) {
             if ($_ =~ m/^form\.(.+)$/) {  #                if (ref($ENV{$_}) eq 'ARRAY') {
                 if (ref($ENV{$_}) eq 'ARRAY') {  #                    my $valstr = join(",",@{$ENV{$_}});
                     my $valstr = join(",",@{$ENV{$_}});  #                    print FILE "$1 = $valstr\n";
                     print FILE "$1 = $valstr\n";  #                } else {
                 } else {  #                    print FILE "$1 = $ENV{$_}\n";
                     print FILE "$1 = $ENV{$_}\n";  #                }
                 }  #            }
             }  #        }
         }  #        close(FILE);
         close(FILE);  #    }
     }  
     foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) {      foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) {
         $$_ = &Apache::lonnet::escape($$_);          $$_ = &Apache::lonnet::escape($$_);
     }      }
Removed from v.1.193  
changed lines
  Added in v.1.194

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