--- loncom/interface/lonprintout.pm 2006/04/06 22:32:07 1.435
+++ 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.435 2006/04/06 22:32:07 foxr 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();
@@ -2260,6 +2266,7 @@ RESOURCE_SELECTOR
Sort by section then student
Sort by students across sections.
+
$resource_selector
@@ -2293,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');
@@ -2418,6 +2426,7 @@ RESOURCE_SELECTOR
Sort by section then student
Sort by students across sections.
+