[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.197

version 1.193, 2004/07/03 18:49:42 version 1.197, 2004/07/06 15:48:30
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";
     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 701  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 1893  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.193  
changed lines
  Added in v.1.197

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