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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.261 and 1.265

version 1.261, 2010/01/19 19:00:02 version 1.265, 2010/01/26 13:08:08
Line 66  use LONCAPA; Line 66  use LONCAPA;
 sub coursepreflink {  sub coursepreflink {
    my ($text,$category)=@_;     my ($text,$category)=@_;
    if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {     if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
       return '<a href="/adm/courseprefs?phase=display&actions='.$category.'">'.$text.'</a>';        return '<a href="'.&HTML::Entities::encode("/adm/courseprefs?phase=display&actions=$category",'<>&"').'">'.$text.'</a>';
    } else {     } else {
       return '';        return '';
    }     }
Line 74  sub coursepreflink { Line 74  sub coursepreflink {
   
 sub raw_href_to_link {  sub raw_href_to_link {
    my ($message)=@_;     my ($message)=@_;
    $message=~s/(https?\:\/\/[^\s\'\"]+)(\s|$)/<a href="$1"><tt>$1<\/tt><\/a>$2/gi;     $message=~s/(https?\:\/\/[^\s\'\"\<]+)([\s\<]|$)/<a href="$1"><tt>$1<\/tt><\/a>$2/gi;
    return $message;     return $message;
 }  }
   
Line 90  Successful completion of an operation me Line 90  Successful completion of an operation me
 sub confirm_success {  sub confirm_success {
    my ($message,$failure)=@_;     my ($message,$failure)=@_;
    if ($failure) {     if ($failure) {
       return '<span class="LC_error">'."\n"        return '<span class="LC_error" style="font-size: inherit;">'."\n"
             .'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n"              .'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n"
             .$message."\n"              .$message."\n"
             .'</span>'."\n";              .'</span>'."\n";
Line 1240  sub htmlareaheaders { Line 1240  sub htmlareaheaders {
  my $s="";   my $s="";
  if (&htmlareabrowser()) {   if (&htmlareabrowser()) {
  $s.=(<<ENDEDITOR);   $s.=(<<ENDEDITOR);
 <script type="text/javascript" src="/fckeditor/fckeditor.js"></script>  
 <script type="text/javascript" src="/ckeditor/ckeditor.js"></script>  <script type="text/javascript" src="/ckeditor/ckeditor.js"></script>
 ENDEDITOR  ENDEDITOR
  }   }
Line 1285  sub htmlareaselectactive { Line 1284  sub htmlareaselectactive {
     my @fields=@_;      my @fields=@_;
     unless (&htmlareabrowser()) { return ''; }      unless (&htmlareabrowser()) { return ''; }
     #if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); }      #if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); }
     my $output='<script type="text/javascript" defer="1">'."\n"      my $output='<script type="text/javascript" defer="defer">'."\n"
               .'// <![CDATA['."\n";                .'// <![CDATA['."\n";
     my $lang = &htmlarea_lang();      my $lang = &htmlarea_lang();
     $output.='      $output.='
Line 1355  sub htmlareaselectactive { Line 1354  sub htmlareaselectactive {
  });   });
   
  });   });
 ';  '; 
       
     foreach my $field (@fields) {  
  $output.='  
   
 {  
  $(document).ready(function() {  
  if (!($("#'.$field.'").hasClass("LC_richAlwaysOn"))) {  
  if (!($("#'.$field.'").hasClass("LC_richAlwaysOff"))) {  
  if (!($("#'.$field.'").hasClass("LC_richDetectHtml"))) {  
  if (!($("#'.$field.'").hasClass("LC_richDefaultOn"))) {  
  if (!($("#'.$field.'").hasClass("LC_richDefaultOff"))) {  
  var oFCKeditor = new FCKeditor("'.$field.'");  
  oFCKeditor.Config["CustomConfigurationsPath"] =   
  "/fckeditor/loncapaconfig.js";      
  oFCKeditor.ReplaceTextarea();  
  oFCKeditor.Config["AutoDetectLanguage"] = false;  
  oFCKeditor.Config["DefaultLanguage"] = "'.$lang.'";  
  }  
  }  
  }  
  }  
  }  
     });  
 }';  
     }  
     $output.="\nwindow.status='Activated Editfields';\n"      $output.="\nwindow.status='Activated Editfields';\n"
             .'// ]]>'."\n"              .'// ]]>'."\n"
             .'</script><br />'.              .'</script><br />'.
Removed from v.1.261  
changed lines
  Added in v.1.265

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