[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom(version_2_11_X) /homework grades.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2015-01-24 2:27:02
Message-ID: cvsraeburn1422066422 () cvsserver
[Download RAW message or body]

raeburn		Sat Jan 24 02:27:02 2015 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/homework	grades.pm 
  Log:
  - For 2.11
    - Backport 1.730
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.596.2.12.2.31 \
                loncom/homework/grades.pm:1.596.2.12.2.32
--- loncom/homework/grades.pm:1.596.2.12.2.31	Fri Jan 23 23:34:17 2015
+++ loncom/homework/grades.pm	Sat Jan 24 02:27:01 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.596.2.12.2.31 2015/01/23 23:34:17 raeburn Exp $
+# $Id: grades.pm,v 1.596.2.12.2.32 2015/01/24 02:27:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -465,7 +465,7 @@
 	    $env{'form.kwstyle'}  = $keyhash{$loginuser.'_kwstyle'} ne '' ? \
                $keyhash{$loginuser.'_kwstyle'} : '';
 	    $env{'form.'.$symb} = 1; # so that we don't have to read it from disk for \
multiple sub of the same prob.  }
-	return '<br /><br /><blockquote><tt>'.&keywords_highlight(&HTML::Entities::encode($answer, \
'"<>&')).'</tt></blockquote>'; +	return '<br /><br \
/><blockquote><tt>'.&keywords_highlight($answer).'</tt></blockquote>';  } elsif ( \
$response eq 'organic') {  my $result=&mt('Smile representation: [_1]',
                            '"<tt>'.&HTML::Entities::encode($answer, \
'"<>&').'</tt>"');


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs


[prev in list] [next in list] [prev in thread] [next in thread]