version 1.363, 2005/02/22 11:43:05
|
version 1.364, 2005/02/22 16:08:11
|
Line 794 sub unsupported {
|
Line 794 sub unsupported {
|
sub get_page_breaks { |
sub get_page_breaks { |
my ($helper) = @_; |
my ($helper) = @_; |
my %page_breaks; |
my %page_breaks; |
|
|
|
|
|
|
foreach my $break (split /\|\|\|/, $helper->{'VARS'}->{'FINISHPAGE'}) { |
foreach my $break (split /\|\|\|/, $helper->{'VARS'}->{'FINISHPAGE'}) { |
$page_breaks{$break} = 1; |
$page_breaks{$break} = 1; |
} |
} |
|
|
return \%page_breaks; |
return %page_breaks; |
} |
} |
|
|
sub output_data { |
sub output_data { |
Line 851 ENDPART
|
Line 849 ENDPART
|
&Apache::loncommon::store_course_settings('print', |
&Apache::loncommon::store_course_settings('print', |
{'pagebreaks' => 'scalar'}); |
{'pagebreaks' => 'scalar'}); |
|
|
my $page_hashref = &get_page_breaks($helper); |
my %page_breaks = &get_page_breaks($helper); |
my %page_breaks = %$page_hashref; |
|
|
|
|
|
|
|
my $format_from_helper = $helper->{'VARS'}->{'FORMAT'}; |
my $format_from_helper = $helper->{'VARS'}->{'FORMAT'}; |
my ($result,$selectionmade) = ('',''); |
my ($result,$selectionmade) = ('',''); |
Line 1466 sub print_resources {
|
Line 1461 sub print_resources {
|
&Apache::lonnet::delenv('form.counter'); |
&Apache::lonnet::delenv('form.counter'); |
&Apache::lonxml::init_counter(); |
&Apache::lonxml::init_counter(); |
|
|
my $page_hashref = &get_page_breaks($helper); |
my %page_breaks = &get_page_breaks($helper); |
my %page_breaks = %$page_hashref; |
|
|
|
foreach my $curresline (@{$master_seq}) { |
foreach my $curresline (@{$master_seq}) { |
if (defined $page_breaks{$curresline}) { |
if (defined $page_breaks{$curresline}) { |