[BACK]Return to lonhtmlcommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.285.2.3 and 1.286

version 1.285.2.3, 2011/10/23 00:50:58 version 1.286, 2011/01/13 17:44:30
Line 89  sub entity_encode { Line 89  sub entity_encode {
     return &HTML::Entities::encode($text, '<>&"');      return &HTML::Entities::encode($text, '<>&"');
 }  }
   
   sub direct_parm_link {
       my ($linktext,$symb,$filter,$part,$target)=@_;
       $symb=&entity_encode($symb);
       $filter=&entity_encode($filter);
       $part=&entity_encode($part);
       if (($symb) && (&Apache::lonnet::allowed('opa')) && ($target ne 'tex')) {
          return "<a href='/adm/parmset?symb=$symb&filter=$filter&part=$part'>$linktext</a>";
       } else {
          return $linktext;
       }
   }
 ##############################################  ##############################################
 ##############################################  ##############################################
   
Line 1233  sub htmlareaheaders { Line 1244  sub htmlareaheaders {
 ENDEDITOR  ENDEDITOR
  }   }
     $s.=(<<ENDJQUERY);      $s.=(<<ENDJQUERY);
 <script type="text/javascript" src="/adm/jQuery/js/jquery-1.6.2.min.js"></script>  <script type="text/javascript" src="/adm/jQuery/js/jquery-1.3.2.min.js"></script>
 <script type="text/javascript" src="/adm/jQuery/js/jquery-ui-1.8.16.custom.min.js"></script>  <script type="text/javascript" src="/adm/jQuery/js/jquery-ui-1.7.2.custom.min.js"></script>
 <link rel="stylesheet" type="text/css" href="/adm/jQuery/css/smoothness/jquery-ui-1.8.16.custom.css" />  <link rel="stylesheet" type="text/css" href="/adm/jQuery/css/smoothness/jquery-ui-1.7.2.custom.css" />
 ENDJQUERY  ENDJQUERY
  return $s;   return $s;
 }  }
Line 1617  returns: nothing Line 1628  returns: nothing
         @html = grep {defined $_ && $_ ne ''} @html;          @html = grep {defined $_ && $_ ne ''} @html;
         for (@html) {           for (@html) { 
             s/align="(right|left)"//;               s/align="(right|left)"//; 
             if (($category ne 'advtools') && ($category ne 'tools')) {              s/<span.*?\/span>// if $category ne 'advtools'; 
                 s/<span.*?\/span>//;  
             }  
         }           } 
   
         push @{$tools{$category}}, @html;          push @{$tools{$category}}, @html;
Removed from v.1.285.2.3  
changed lines
  Added in v.1.286

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