version 1.193, 2004/07/03 18:49:42
|
version 1.195, 2004/07/03 19:12:41
|
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'}) { |
|
open(FILE,">$ENV{'request.course.fn'}.formdata"); |
|
&get_unprocessed_cgi($ENV{'QUERY_STRING'},undef); |
|
foreach (keys %ENV) { |
|
if ($_ =~ m/^form\.(.+)$/) { |
|
if (ref($ENV{$_}) eq 'ARRAY') { |
|
my $valstr = join(",",@{$ENV{$_}}); |
|
print FILE "$1 = $valstr\n"; |
|
} else { |
|
print FILE "$1 = $ENV{$_}\n"; |
|
} |
|
} |
|
} |
|
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($$_); |
} |
} |
|
|
if (!$stayOnPage) |
if (!$stayOnPage) { |
{ |
|
$link = "javascript:helpMenu('open')"; |
$link = "javascript:helpMenu('open')"; |
} |
} else { |
else |
|
{ |
|
$link = "javascript:helpMenu('display')"; |
$link = "javascript:helpMenu('display')"; |
} |
} |
my $banner_link = "/adm/helpmenu?page=banner&color=$color&function=$function&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp"; |
my $banner_link = "/adm/helpmenu?page=banner&color=$color&function=$function&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp"; |