![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.226, 2004/11/02 20:48:02 | version 1.227, 2004/11/08 22:50:37 |
|---|---|
| Line 662 sub help_open_menu { | Line 662 sub help_open_menu { |
| my $link=''; | my $link=''; |
| my $title = &mt('Get help'); | my $title = &mt('Get help'); |
| my $origurl = $ENV{'REQUEST_URI'}; | my $origurl = $ENV{'REQUEST_URI'}; |
| $origurl=~s|^/~|/priv/|; | |
| my $timestamp = time; | my $timestamp = time; |
| foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) { | foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) { |
| $$_ = &Apache::lonnet::escape($$_); | $$_ = &Apache::lonnet::escape($$_); |