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

version 1.194, 2004/07/03 18:55:16 version 1.198, 2004/07/12 17:02:07
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;
 #    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&stayonpage=$stayOnPage";
     my $details_link = "/adm/helpmenu?page=body&color=$color&function=$function&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp";      my $details_link = "/adm/helpmenu?page=body&color=$color&function=$function&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp";
     my $template .= <<"ENDTEMPLATE";      my $template;
       if ($text ne "") {
    $template .= 
     "<table bgcolor='#337733' cellspacing='1' cellpadding='1' border='0'><tr>".
     "<td bgcolor='#448844'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";
       }
       $template .= <<"ENDTEMPLATE";
  <script>   <script>
 function helpMenu(caller) {  function helpMenu(caller) {
     if (caller == 'open') {      if (caller == 'open') {
Line 700  function helpMenu(caller) { Line 688  function helpMenu(caller) {
  </script>   </script>
  <a href="$link" title="$title"><image src="/adm/lonMisc/smallFAQ.gif" border="0" alt="(Help Menu)" /></a>   <a href="$link" title="$title"><image src="/adm/lonMisc/smallFAQ.gif" border="0" alt="(Help Menu)" /></a>
 ENDTEMPLATE  ENDTEMPLATE
       if ($text ne '') { $template.='</td></tr></table>' };
     return $template;      return $template;
 }  }
   
Line 1892  returns description of a specified copyr Line 1881  returns description of a specified copyr
 sub copyrightdescription {  sub copyrightdescription {
     return &mt($cprtag{shift(@_)});      return &mt($cprtag{shift(@_)});
 }  }
   
   =pod
   
 =item * source_copyrightids()   =item * source_copyrightids() 
   
 returns list of all source copyrights  returns list of all source copyrights

Removed from v.1.194  
changed lines
  Added in v.1.198


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