--- loncom/interface/lonprintout.pm 2005/02/22 11:43:05 1.363 +++ loncom/interface/lonprintout.pm 2005/02/22 16:08:11 1.364 @@ -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.364 2005/02/22 16:08:11 albertel 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}) {