--- loncom/interface/lonprintout.pm 2003/04/30 20:03:14 1.137
+++ loncom/interface/lonprintout.pm 2003/05/01 17:19:25 1.139
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.137 2003/04/30 20:03:14 bowersj2 Exp $
+# $Id: lonprintout.pm,v 1.139 2003/05/01 17:19:25 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1437,17 +1437,22 @@ CHOOSE_STUDENTS
push @{$printChoices}, ["Problems from $subdir", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
my $f = '$filename';
- &Apache::lonxml::xmlparse($r, 'helper', <
Select problems you wish to print from $subdir
-
+
FINAL
- $subdir
- return $f =~
+ return '$subdir';
+CHOOSE_FROM_SUBDIR
+
+ $xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
+ return $filename =~
m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/;
+
CHOOSE_FROM_SUBDIR
+ &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
}
# Generate the first state, to select which resources get printed.