[LON-CAPA-cvs] cvs: loncom /homework grades.pm /html/adm/lonDomLogos BCHS.gif sfu.gif doc/loncapafiles loncapafiles.lpml

www lon-capa-cvs@mail.lon-capa.org
Mon, 18 Aug 2003 18:24:32 -0000


www		Mon Aug 18 14:24:32 2003 EDT

  Added files:                 
    /loncom/html/adm/lonDomLogos	BCHS.gif 

  Modified files:              
    /doc/loncapafiles	loncapafiles.lpml 
    /loncom/homework	grades.pm 
    /loncom/html/adm/lonDomLogos	sfu.gif 
  Log:
  Ray's logo for SFU
  Logo for Bear Creek
  
  
Index: doc/loncapafiles/loncapafiles.lpml
diff -u doc/loncapafiles/loncapafiles.lpml:1.274 doc/loncapafiles/loncapafiles.lpml:1.275
--- doc/loncapafiles/loncapafiles.lpml:1.274	Sat Aug 16 14:58:20 2003
+++ doc/loncapafiles/loncapafiles.lpml	Mon Aug 18 14:24:32 2003
@@ -2,7 +2,7 @@
  "http://lpml.sourceforge.net/DTD/lpml.dtd">
 <!-- loncapafiles.lpml -->
 
-<!-- $Id: loncapafiles.lpml,v 1.274 2003/08/16 18:58:20 www Exp $ -->
+<!-- $Id: loncapafiles.lpml,v 1.275 2003/08/18 18:24:32 www Exp $ -->
 
 <!--
 
@@ -4357,6 +4357,7 @@
 fit.gif;
 nau.gif;
 glps.gif;
+BCHS.gif;
 headersfu.gif;
 uwsp.gif
 </filenames>
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.133 loncom/homework/grades.pm:1.134
--- loncom/homework/grades.pm:1.133	Thu Aug 14 18:34:37 2003
+++ loncom/homework/grades.pm	Mon Aug 18 14:24:32 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.133 2003/08/14 22:34:37 bowersj2 Exp $
+# $Id: grades.pm,v 1.134 2003/08/18 18:24:32 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -544,7 +544,7 @@
     $gradeTable.='<input type="button" '."\n".
 	'onClick="javascript:checkSelect(this.form.stuinfo);" '."\n".
 	'value="Next->" />'."\n";
-
+    $gradeTable.='<input type="checkbox" name="checkPlag" checked="on">Check For Plagiarism</input>';
     my (undef, undef, $fullname) = &getclasslist($getsec,'1');  
     $gradeTable.='<table border="0"><tr><td bgcolor="#777777">'.
 	'<table border="0"><tr bgcolor="#e6ffff">';
@@ -1461,13 +1461,20 @@
 				my ($ressub,$subval) = split(/:/,$_,2);
                             # Similarity check
 				my $similar='';
-				my ($oname,$odom,$ocrsid,$oessay,$osim)=&most_similar($uname,$udom,$subval);
-				if ($osim) {
-				    $osim=int($osim*100.0);
-				    $similar='<hr /><h3><font color="#FF0000">Essay is '.$osim.
-					'% similar to an essay by '.&Apache::loncommon::plainname($oname,$odom).
-					'</font></h3><blockquote><i>'.
-					&keywords_highlight($oessay).'</i></blockquote><hr />';
+				my $oname;
+				my $odom;
+				my $ocrsid;
+				my $oessay;
+				my $osim;
+				if($ENV{'form.checkPlag'}){
+				    ($oname,$odom,$ocrsid,$oessay,$osim)=&most_similar($uname,$udom,$subval);
+				    if ($osim) {
+					$osim=int($osim*100.0);
+					$similar='<hr /><h3><font color="#FF0000">Essay is '.$osim.
+					    '% similar to an essay by '.&Apache::loncommon::plainname($oname,$odom).
+					    '</font></h3><blockquote><i>'.
+					    &keywords_highlight($oessay).'</i></blockquote><hr />';
+				    }
 				}
 				$lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part '.
 				    $partid.'</b> <font color="#999999">( ID '.$respid.
@@ -1480,7 +1487,7 @@
 				     'this file may contain virusses</font><br />':'').
 				     '<b>Submitted Answer: </b>'.
 				     &cleanRecord($subval,$responsetype,$symb).
-				      '<br /><br />'.$similar."\n"
+				     '<br /><br />'.$similar."\n"
 				     if ($ENV{'form.lastSub'} eq 'lastonly' || 
 					 ($ENV{'form.lastSub'} eq 'hdgrade' && 
 					  $$handgrade{$part} =~ /:yes$/));
Index: loncom/html/adm/lonDomLogos/sfu.gif