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

Diff for /loncom/xml/lontexconvert.pm between versions 1.98 and 1.99

version 1.98, 2009/08/12 20:43:25 version 1.99, 2009/12/09 23:02:43
Line 335  sub to_convert { Line 335  sub to_convert {
 sub smiley {  sub smiley {
     my $expression=shift;      my $expression=shift;
     if ($env{'browser.imagesuppress'} eq 'on') { return $expression; }      if ($env{'browser.imagesuppress'} eq 'on') { return $expression; }
     my %smileys=('\:\-\)' => 'smiley',      my %smileys=(
  '8\-\)'  => 'coolsmile',      '\:\-*\)' => 'face-smile.png',
  '8\-(I|\|)'   => 'coolindiff',   '8\-*\)'  => 'face-cool.png',
  ':\-(I|\|)'   => 'neutral',   '8\-*(I|\|)'   => 'face-glasses.png',
  '\:\-(o|O|\(\))' => 'shocked',   ':\-*(I|\|)'   => 'face-plain.png',
  ':\-\('  => 'frowny',   '\:\-(o|O|\(\))' => 'face-surprise.png',
  '\;\-\)' => 'wink',   ':\-*\('  => 'face-sad.png',
  '\:\-P'  => 'baeh',   '\;\-*\)' => 'face-wink.png',
  '\:\-(\\\|\\/)' => 'hrrm',   '\:\-*(P|p)'  => 'face-raspberry.png',
  '\:\-D'  => 'bigsmile',   '\:\-*(\\\|\\/)' => 'face-uncertain.png',
  '\:\-C'  => 'angry',   '\:\-*D'  => 'face-smile-big.png',
  '\:(\'|\`)\-\(' => 'cry',   '\:\-*(C|\@)'  => 'face-angry.png',
  '\:\-(X|\#)' => 'lipsrsealed',   '\:(\'|\`)\-*\(' => 'face-crying.png',
  '\:\-S' => 'huh');   '\:\-*(X|x|\#)' => 'face-quiet.png',
    '\:\-*(s|S)' => 'face-uncertain.png',
    '\:\-*\$' => 'face-embarrassed.png',
    '\:\-*\*' => 'face-kiss.png',
    '\+O\(' => 'face-sick.png',
    '(\&lt\;3|\(heart\))' => 'heart.png',
    '\(rose\)' => 'rose.png',
    '\(pizza\)' => 'food-pizza.png',
    '\(cake\)' => 'food-cake.png',
    '\(ninja\)' => 'face-ninja.png',
    '\(pirate\)' => 'face-pirate.png',
    '\((agree|yes)\)' => 'opinion-agree.png',
    '\((disagree|nay)\)' => 'opinion-disagree.png',
    '(o|O)\-*\)' => 'face-angel.png',
    );
     my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};      my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};
     foreach my $smiley (keys(%smileys)) {      foreach my $smiley (keys(%smileys)) {
  $expression=~s/$smiley/\<img src="$iconpath\/$smileys{$smiley}.gif" \/\>/gs;    $expression=~s/$smiley/\<img src="$iconpath\/$smileys{$smiley}" \/\>/gs; 
     }      }
     return $expression;      return $expression;
 }  }
Removed from v.1.98  
changed lines
  Added in v.1.99

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