[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom(loncapaMITrelate_1) /interface lonnavmaps.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2012-02-17 19:42:10
Message-ID: cvsraeburn1329507730 () cvsserver
[Download RAW message or body]
raeburn Fri Feb 17 19:42:10 2012 EDT
Modified files: (Branch: loncapaMITrelate_1)
/loncom/interface lonnavmaps.pm
Log:
- Customization for MITrelate
- Backport 1.479.
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.444.2.7 loncom/interface/lonnavmaps.pm:1.444.2.7.2.1
--- loncom/interface/lonnavmaps.pm:1.444.2.7 Mon Oct 10 17:36:56 2011
+++ loncom/interface/lonnavmaps.pm Fri Feb 17 19:42:10 2012
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.444.2.7 2011/10/10 17:36:56 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.444.2.7.2.1 2012/02/17 19:42:10 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
@@ -3526,6 +3526,8 @@
$self->{NAV_MAP}->{RESOURCE_CACHE}->{$self->{ID}} = $self;
$self->{RESOURCE_ERROR} = 0;
+ $self->{DUEDATE_CACHE} = undef;
+
# A hash that can be used by two-pass algorithms to store data
# about this resource in. Not used by the resource object
# directly.
@@ -4103,6 +4105,9 @@
# this should work exactly like the copy in lonhomework.pm
sub duedate {
(my $self, my $part) = @_;
+ if (defined ($self->{DUEDATE_CACHE}->{$part})) {
+ return $self->{DUEDATE_CACHE}->{$part};
+ }
my $date;
my @interval=$self->parmval("interval", $part);
my $due_date=$self->parmval("duedate", $part);
@@ -4119,6 +4124,7 @@
} else {
$date = $due_date;
}
+ $self->{DUEDATE_CACHE}->{$part} = $date;
return $date;
}
sub handgrade {
_______________________________________________
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]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic