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

Diff for /loncom/xml/lontexconvert.pm between versions 1.100 and 1.101

version 1.100, 2009/12/22 05:08:04 version 1.101, 2010/01/26 01:16:30
Line 339  sub smiley { Line 339  sub smiley {
     '\:\-*\)' => 'face-smile.png',      '\:\-*\)' => 'face-smile.png',
  '8\-\)'  => 'face-cool.png',   '8\-\)'  => 'face-cool.png',
  '8\-(I|\|)'   => 'face-glasses.png',   '8\-(I|\|)'   => 'face-glasses.png',
  ':\-*(I|\|)'   => 'face-plain.png',   '\:\-(I|\|)'   => 'face-plain.png',
  '\:\-(o|O|\(\))' => 'face-surprise.png',   '\:\-(o|O|\(\))' => 'face-surprise.png',
  ':\-*\('  => 'face-sad.png',   ':\-\('  => 'face-sad.png',
  '\;\-*\)' => 'face-wink.png',   '\;\-\)' => 'face-wink.png',
  '\:\-*(P|p)'  => 'face-raspberry.png',   '\:\-(P|p)'  => 'face-raspberry.png',
  '\:\-(\\\|\\/)' => 'face-uncertain.png',   '\:\-(\\\|\\/)' => 'face-uncertain.png',
  '\:\-*D'  => 'face-smile-big.png',   '\:\-D'  => 'face-smile-big.png',
  '\:\-*(C|\@)'  => 'face-angry.png',   '\:\-(C|\@)'  => 'face-angry.png',
  '\:(\'|\`)\-*\(' => 'face-crying.png',   '\:(\'|\`)\-*\(' => 'face-crying.png',
  '\:\-*(X|x|\#)' => 'face-quiet.png',   '\:\-(X|x|\#)' => 'face-quiet.png',
  '\:\-*(s|S)' => 'face-uncertain.png',   '\:\-(s|S)' => 'face-uncertain.png',
  '\:\-*\$' => 'face-embarrassed.png',   '\:\-\$' => 'face-embarrassed.png',
  '\:\-*\*' => 'face-kiss.png',   '\:\-\*' => 'face-kiss.png',
  '\+O\(' => 'face-sick.png',   '\+O\(' => 'face-sick.png',
  '(\&lt\;3|\(heart\))' => 'heart.png',   '(\&lt\;3|\(heart\))' => 'heart.png',
  '\(rose\)' => 'rose.png',   '\(rose\)' => 'rose.png',
Line 361  sub smiley { Line 361  sub smiley {
  '\(pirate\)' => 'face-pirate.png',   '\(pirate\)' => 'face-pirate.png',
  '\((agree|yes)\)' => 'opinion-agree.png',   '\((agree|yes)\)' => 'opinion-agree.png',
  '\((disagree|nay)\)' => 'opinion-disagree.png',   '\((disagree|nay)\)' => 'opinion-disagree.png',
  '(o|O)\-*\)' => 'face-angel.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)) {
Removed from v.1.100  
changed lines
  Added in v.1.101

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