version 1.3, 2011/04/13 10:08:06
|
version 1.4, 2011/04/13 10:44:26
|
Line 78 Apache:lonltextable
|
Line 78 Apache:lonltextable
|
=cut |
=cut |
|
|
package Apache::lonlatextable; |
package Apache::lonlatextable; |
use Data::Dumper; |
|
use Apache::lonnet; |
|
use strict; |
use strict; |
|
|
=pod |
=pod |
Line 166 Produces
|
Line 164 Produces
|
|
|
sub set_data { |
sub set_data { |
my ($self, $data) = @_; |
my ($self, $data) = @_; |
&Apache::lonnet::logthis("--------------- set_data ------------"); |
|
&Apache::lonnet::logthis(Dumper($self->{'data'})); |
|
&Apache::lonnet::logthis("---------------------------------------"); |
|
&Apache::lonnet::logthis(Dumper($data)); |
|
my $current_data = $self->{'data'}; |
my $current_data = $self->{'data'}; |
push (@$current_data, @$data); |
push (@$current_data, @$data); |
$self->{'data'} = $current_data; |
$self->{'data'} = $current_data; |