--- loncom/interface/lonprintout.pm 2004/03/23 19:36:51 1.286 +++ loncom/interface/lonprintout.pm 2004/03/24 22:22:04 1.287 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.286 2004/03/23 19:36:51 albertel Exp $ +# $Id: lonprintout.pm,v 1.287 2004/03/24 22:22:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1415,10 +1415,10 @@ sub printHelper { # $r->print($helper->{VARS}->{'postdata'}); # Useful filter strings - my $isProblem = '$res->is_problem()'; + my $isProblem = '($res->is_problem()||$res->contains_problem) '; $isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden; - my $isProblemOrMap = '$res->is_problem() || $res->is_map()'; - my $isNotMap = '!$res->is_map()'; + my $isProblemOrMap = '$res->is_problem() || $res->contains_problem() || $res->is_sequence()'; + my $isNotMap = '!$res->is_sequence()'; $isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden; my $isMap = '$res->is_map()'; my $symbFilter = '$res->symb()'; @@ -1442,7 +1442,8 @@ sub printHelper { my $helperFragment = < (mark them then click "next" button)
- + PAGESIZE return $isProblem; $map @@ -1452,7 +1453,8 @@ sub printHelper { (mark them then click "next" button)
- + PAGESIZE return $isNotMap; $map @@ -1471,11 +1473,11 @@ HELPERFRAGMENT &Apache::lonxml::xmlparse($r, 'helper', < (mark them then click "next" button)
- + PAGESIZE return $isProblemOrMap; - return $isProblem; + return $isNotMap; return $symbFilter;
@@ -1487,7 +1489,8 @@ ALL_PROBLEMS } my $resource_selector=<
Select resources for the assignment
- + return $isProblem; $map return $symbFilter; @@ -1511,8 +1514,9 @@ RESOURCE_SELECTOR CHOOSE_STUDENTS &Apache::lonxml::xmlparse($r, 'helper', < -
How many Anonymous exams to print?
+
Number of anonymous assignments to print?
+
$resource_selector @@ -1527,7 +1531,8 @@ CHOOSE_ANON1 $resource_selector=<
Select resources for the assignment
- + return $isNotMap; $map return $symbFilter; @@ -1605,7 +1610,8 @@ CHOOSE_FROM_SUBDIR (mark desired resources then click "next" button)
- + PAGESIZE return $isProblem return '$escapedSequenceName';