--- loncom/interface/lonprintout.pm 2005/01/24 12:17:55 1.353
+++ loncom/interface/lonprintout.pm 2005/01/31 12:03:08 1.354
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.353 2005/01/24 12:17:55 foxr Exp $
+# $Id: lonprintout.pm,v 1.354 2005/01/31 12:03:08 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -991,9 +991,10 @@ ENDPART
} else {
$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'});
}
- } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
+ } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
- ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') or
+ ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') or
+ ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') or # BUGBUG
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences')) {
#-- produce an output string
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') {
@@ -1002,6 +1003,8 @@ ENDPART
$selectionmade = 3;
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') {
$selectionmade = 4;
+ } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') { #BUGBUG
+ $selectionmade = 4;
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences') {
$selectionmade = 7;
}
@@ -1767,12 +1770,13 @@ HELPERFRAGMENT
&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
}
- # If the user is priviledged, allow them to print all
- # problems in the course, optionally for selected students
+ # If the user is privileged, allow them to print all
+ # problems and resources in the entier course, optionally for selected students
if ($userPriviledged &&
($helper->{VARS}->{'postdata'}=~/\/res\// || $helper->{VARS}->{'postdata'}=~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) {
push @{$printChoices}, ['Problems from entire course', 'all_problems', 'ALL_PROBLEMS'];
+ push @{$printChoices}, ['Resources from entire course', 'all_resources', 'ALL_RESOURCES'];
&Apache::lonxml::xmlparse($r, 'helper', <
(mark them then click "next" button)
@@ -1785,6 +1789,17 @@ HELPERFRAGMENT
+
+ (Mark them then click "next" button)
+
+ PAGESIZE
+ return $isNotMap;
+ $map
+ return $symbFilter;
+
+
+
ALL_PROBLEMS
if ($helper->{VARS}->{'assignment'}) {