[LON-CAPA-cvs] cvs: loncom /interface/spreadsheet studentcalc.pm

[raeburn]

raeburn		Sun Dec 31 15:27:03 2017 EDT

  Modified files:              
    /loncom/interface/spreadsheet	studentcalc.pm 
  Log:
  - Bug 6754 LON-CAPA as LTI Consumer
    - Spreadsheet includes external tools set to be "gradable".
  
  
Index: loncom/interface/spreadsheet/studentcalc.pm
diff -u loncom/interface/spreadsheet/studentcalc.pm:1.46 loncom/interface/spreadsheet/studentcalc.pm:1.47
--- loncom/interface/spreadsheet/studentcalc.pm:1.46	Wed Feb 12 16:55:36 2014
+++ loncom/interface/spreadsheet/studentcalc.pm	Sun Dec 31 15:27:03 2017
@@ -1,5 +1,5 @@
 #
-# $Id: studentcalc.pm,v 1.46 2014/02/12 16:55:36 bisitz Exp $
+# $Id: studentcalc.pm,v 1.47 2017/12/31 15:27:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -105,7 +105,7 @@
          unshift(@all_sequences,$toplevelseq);
     }
     foreach my $sequence (@all_sequences) {
-       if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0,1)){
+       if ($navmap->hasResource($sequence,sub { shift->is_gradable(); }, 0,1)){
            push(@Sequences,$sequence);
            &get_resources($sequence);
        }
@@ -120,7 +120,7 @@
     }
     return () if (! defined($navmap) || ! ref($navmap));
     my @resources = $navmap->retrieveResources($seq,
-                                               sub { shift->is_problem(); },
+                                               sub { shift->is_gradable(); },
                                                0,0,1);
     $res_memoize{$seq->symb()}=\@resources;
     return @resources;