loncom/xml/lontexconvert.pm - diff

Return to lontexconvert.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.99, 2009/12/09 23:02:43	version 1.100, 2009/12/22 05:08:04
Line 337 sub smiley {	Line 337 sub smiley {
if ($env{'browser.imagesuppress'} eq 'on') { return $expression; }	if ($env{'browser.imagesuppress'} eq 'on') { return $expression; }
my %smileys=(	my %smileys=(
'\:\-*\)' => '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',