--- loncom/interface/lonprintout.pm 2002/11/14 14:47:53 1.86
+++ loncom/interface/lonprintout.pm 2002/11/14 15:39:35 1.87
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.86 2002/11/14 14:47:53 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.87 2002/11/14 15:39:35 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -92,13 +92,13 @@ sub menu_for_output {
Current document $title_for_single_resource
(prints what you just saw on the screen)
ENDMENUOUT1
- if ((not $ENV{'request.role'}=~m/^au\./) and (not $ENV{'request.role'}=~m/^ca\./)) {
+ if ($ENV{'form.postdata'}=~/\/res\//) {
$r->print(< All problems from $title_for_sequence
All problems plus any pages or html/xml files from $title_for_sequence
ENDMENUOUT2
}
- if ($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) {
+ if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($ENV{'form.postdata'}=~/\/res\//)) {
$r->print(< All problems in this course (warning: this may be time consuming)