[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /homework grades.pm
From: banghart <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2005-03-30 21:11:45
Message-ID: cvsbanghart1112217105 () cvsserver
[Download RAW message or body]
banghart Wed Mar 30 16:11:45 2005 EDT
Modified files:
/loncom/homework grades.pm
Log:
Saving work, first step of versions for portfolio files.
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.250 loncom/homework/grades.pm:1.251
--- loncom/homework/grades.pm:1.250 Thu Mar 3 00:57:26 2005
+++ loncom/homework/grades.pm Wed Mar 30 16:11:44 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.250 2005/03/03 05:57:26 albertel Exp $
+# $Id: grades.pm,v 1.251 2005/03/30 21:11:44 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2113,6 +2113,7 @@
$ENV{'request.course.id'});
if (!&canmodify($usec)) { return('not_allowed'); }
my %record = \
&Apache::lonnet::restore($symb,$ENV{'request.course.id'},$domain,$stuname); + my \
@parts_graded; my %newrecord = ();
my ($pts,$wgt) = ('','');
foreach (split(/:/,$ENV{'form.partlist'.$newflg})) {
@@ -2147,6 +2148,8 @@
if ($partial eq $record{'resource.'.$_.'.awarded'}) {
#do not update score for part if not changed.
next;
+ } else {
+ push @parts_graded, $_;
}
if ($record{'resource.'.$_.'.awarded'} ne $partial) {
$newrecord{'resource.'.$_.'.awarded'} = $partial;
@@ -2170,12 +2173,27 @@
}
}
if (scalar(keys(%newrecord)) > 0) {
+ &version_portfiles(\%record, \@parts_graded, $ENV{'request.course.id'}, \
$symb, $domain, $stuname); &Apache::lonnet::cstore(\%newrecord,$symb,
$ENV{'request.course.id'},$domain,$stuname);
}
return '',$pts,$wgt;
}
+# ----------- Handles creating versions for portfolio files as answers
+sub version_portfiles {
+ my ($record, $parts_graded, $courseid, $symb, $domain, $stuname) = @_;
+ my $parts = join '|', @$parts_graded;
+ foreach my $key (sort keys %$record) {
+ if ($key =~ /^resource\.($parts)\./ && $key =~ /\.portfiles$/) {
+ &Apache::lonnet::logthis('found key portfiles '.$key);
+ &Apache::lonnet::logthis('found value portfiles '.$$record{$key});
+ }
+ }
+
+
+}
+
#--------------------------------------------------------------------------------------
#
#-------------------------- Next few routines handles grading by section or whole \
class
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic