[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[albertel]

albertel		Sat Jul  3 15:12:42 2004 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - discussion has occured, no
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.194 loncom/interface/loncommon.pm:1.195
--- loncom/interface/loncommon.pm:1.194	Sat Jul  3 14:55:16 2004
+++ loncom/interface/loncommon.pm	Sat Jul  3 15:12:41 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.194 2004/07/03 18:55:16 raeburn Exp $
+# $Id: loncommon.pm,v 1.195 2004/07/03 19:12:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -651,31 +651,13 @@
     my $title = &mt('Choose your help');
     my $origurl = $ENV{'REQUEST_URI'};
     my $timestamp = time;
-#    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) {
         $$_ = &Apache::lonnet::escape($$_);
     }
 
-    if (!$stayOnPage)
-    {
+    if (!$stayOnPage) {
          $link = "javascript:helpMenu('open')";
-    }
-    else
-    {
+    } else {
         $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";