--- loncom/interface/lonprintout.pm 2005/02/22 11:43:05 1.363
+++ loncom/interface/lonprintout.pm 2005/02/22 23:32:48 1.365
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.363 2005/02/22 11:43:05 foxr Exp $
+# $Id: lonprintout.pm,v 1.365 2005/02/22 23:32:48 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -794,14 +794,12 @@ sub unsupported {
sub get_page_breaks {
my ($helper) = @_;
my %page_breaks;
-
-
foreach my $break (split /\|\|\|/, $helper->{'VARS'}->{'FINISHPAGE'}) {
$page_breaks{$break} = 1;
}
- return \%page_breaks;
+ return %page_breaks;
}
sub output_data {
@@ -851,10 +849,7 @@ ENDPART
&Apache::loncommon::store_course_settings('print',
{'pagebreaks' => 'scalar'});
- my $page_hashref = &get_page_breaks($helper);
- my %page_breaks = %$page_hashref;
-
-
+ my %page_breaks = &get_page_breaks($helper);
my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
my ($result,$selectionmade) = ('','');
@@ -1466,8 +1461,7 @@ sub print_resources {
&Apache::lonnet::delenv('form.counter');
&Apache::lonxml::init_counter();
- my $page_hashref = &get_page_breaks($helper);
- my %page_breaks = %$page_hashref;
+ my %page_breaks = &get_page_breaks($helper);
foreach my $curresline (@{$master_seq}) {
if (defined $page_breaks{$curresline}) {
@@ -1824,7 +1818,6 @@ HELPERFRAGMENT
suppressEmptySequences='0' addstatus='1' closeallpages='1'>
PAGESIZE
return $isNotMap;
- $map
return $symbFilter;