--- loncom/interface/lonprintout.pm 2003/04/30 19:25:47 1.136 +++ loncom/interface/lonprintout.pm 2003/05/01 15:01:04 1.138 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.136 2003/04/30 19:25:47 bowersj2 Exp $ +# $Id: lonprintout.pm,v 1.138 2003/05/01 15:01:04 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1440,12 +1440,13 @@ CHOOSE_STUDENTS &Apache::lonxml::xmlparse($r, 'helper', < Select problems you wish to print from $subdir - + FINAL - $subdir + return '$subdir'; return $f =~ - m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/; + m/^[^\\.]+\\.(problem|exam|quiz|assess|survey|form|library)$/; + CHOOSE_FROM_SUBDIR } @@ -1457,6 +1458,7 @@ CHOOSE_FROM_SUBDIR Apache::lonhelper::message->new(); $paramHash = Apache::lonhelper::getParamHash(); $paramHash->{'variable'} = 'PRINT_TYPE'; + $helper->declareVar('PRINT_TYPE'); $paramHash->{CHOICES} = $printChoices; Apache::lonhelper::choices->new(); Apache::lonprintout::page_format_state->new("FORMAT");