version 1.247, 2006/11/12 02:13:05
|
version 1.248, 2006/11/12 06:29:33
|
Line 1003 sub log_docs {
|
Line 1003 sub log_docs {
|
my %parmvalue=(); |
my %parmvalue=(); |
|
|
sub snapshotbefore { |
sub snapshotbefore { |
@oldresources=@Apache::lonratedt::resources; |
@oldresources=@LONCAPA::map::resources; |
@oldorder=@Apache::lonratedt::order; |
@oldorder=@LONCAPA::map::order; |
$parmidx=undef; |
$parmidx=undef; |
%parmaction=(); |
%parmaction=(); |
%parmvalue=(); |
%parmvalue=(); |
Line 1029 sub log_docs {
|
Line 1029 sub log_docs {
|
} |
} |
} |
} |
my $maxidx=$#oldresources; |
my $maxidx=$#oldresources; |
if ($#Apache::lonratedt::resources>$#oldresources) { |
if ($#LONCAPA::map::resources>$#oldresources) { |
$maxidx=$#Apache::lonratedt::resources; |
$maxidx=$#LONCAPA::map::resources; |
} |
} |
for (my $idx=0; $idx<=$maxidx; $idx++) { |
for (my $idx=0; $idx<=$maxidx; $idx++) { |
if ($LONCAPA::map::resources[$idx] ne $oldresources[$idx]) { |
if ($LONCAPA::map::resources[$idx] ne $oldresources[$idx]) { |