--- loncom/interface/lonprintout.pm 2006/03/23 22:32:10 1.433
+++ loncom/interface/lonprintout.pm 2006/04/18 10:03:45 1.437
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.433 2006/03/23 22:32:10 albertel Exp $
+# $Id: lonprintout.pm,v 1.437 2006/04/18 10:03:45 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1119,6 +1119,8 @@ ENDPART
$selectionmade = 1;
if ($cleanURL!~m|^/adm/|
&& $cleanURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
+ if ($cleanURL =~/\.page/) {
+ }
my $rndseed=time;
my $texversion='';
if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
@@ -1319,6 +1321,8 @@ ENDPART
my $texversion='';
if ($urlp!~m|^/adm/|
&& $urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
+ if ($urlp =!/\.page/) {
+ }
$resources_printed .= $urlp.':';
&Apache::lonxml::remember_problem_counter();
@@ -1824,6 +1828,8 @@ sub print_resources {
if (&Apache::lonnet::allowed('bre',$res_url)) {
if ($res_url!~m|^ext/|
&& $res_url=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
+ if ($res_url =~ /\.page/) {
+ }
$printed .= $curresline.':';
&Apache::lonxml::remember_problem_counter();
@@ -2234,7 +2240,6 @@ ALL_PROBLEMS
- NUMBER_PER_PDF
How should the results be printed?
Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)
@@ -2242,17 +2247,15 @@ ALL_PROBLEMS
Add two empty pages/column after each student\'s assignment
Add three empty pages/column after each student\'s assignment
-
-
PAGESIZE
How do you want assignments split into PDF files?
All assignments in a single PDF file
Each PDF contains exactly one section
Each PDF contains exactly one assignment
- Specify Number:
+
+ Specify Number:
- "all"
RESOURCE_SELECTOR
@@ -2263,6 +2266,7 @@ RESOURCE_SELECTOR
Sort by section then student
Sort by students across sections.
+
$resource_selector
@@ -2296,12 +2300,13 @@ CHOOSE_STUDENTS
}
push(@{$helper->{DATA}{ALL_CODE_CHOICES}},[$code,$choice]);
}
- $code_selection .=
-'
-
- push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
-
- '.$/;
+ if (%codes_to_print) {
+ $code_selection .='
+
+ push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
+
+ '.$/;
+ }
open(FH,$Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
@@ -2403,17 +2408,15 @@ CHOOSE_ANON1
Add two empty pages/column after each student\'s assignment
Add three empty pages/column after each student\'s assignment
-
-
PAGESIZE
How do you want assignments split into PDF files?
All assignments in a single PDF file
Each PDF contains exactly one section
Each PDF contains exactly one assignment
- Specify Number:
+
+ Specify Number:
- "all"
RESOURCE_SELECTOR
@@ -2423,6 +2426,7 @@ RESOURCE_SELECTOR
Sort by section then student
Sort by students across sections.
+