--- loncom/interface/lonprintout.pm 2003/04/22 19:54:39 1.131 +++ loncom/interface/lonprintout.pm 2003/04/30 16:29:07 1.132 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.131 2003/04/22 19:54:39 bowersj2 Exp $ +# $Id: lonprintout.pm,v 1.132 2003/04/30 16:29:07 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1378,6 +1378,7 @@ sub printHelper { my $isProblem = '$res->is_problem();'; my $isProblemOrMap = '$res->is_problem() || $res->is_map()'; my $isNotMap = '!$res->is_map();'; + my $symb = '$res->symb();'; my $helperFragment = < Select problems to print: @@ -1386,6 +1387,7 @@ sub printHelper { return $isProblemOrMap return $isProblem $map + return $symb @@ -1395,6 +1397,7 @@ sub printHelper { FINAL return $isNotMap; $map + return $symb HELPERFRAGMENT @@ -1405,10 +1408,23 @@ HELPERFRAGMENT # If the user is priviledged, allow them to print all # problems in the course, optionally for selected students if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($helper->{VARS}->{'postdata'}=~/\/res\//)) { - push @{$printChoices}, ['All problems in course (may take a lot of time)', 'all_problems', 'FINAL']; + push @{$printChoices}, ['All problems in course (may take a lot of time)', 'all_problems', 'ALL_PROBLEMS']; push @{$printChoices}, ["Problems from $sequenceTitle for selected students", 'problems_for_students', 'CHOOSE_STUDENTS']; + my $isProblem = '$res->is_problem();'; + my $isProblemOrMap = '$res->is_problem() || $res->is_map()'; + my $symb = '$res->symb();'; &Apache::lonxml::xmlparse($r, 'helper', < + Select problems to print: + + FINAL + return $isProblemOrMap + return $isProblem + return $symb + + + Select the students you wish to print the problems for: