loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.260, 2006/11/29 21:00:35	version 1.262, 2006/11/30 23:34:38
Line 936 sub group_import {	Line 936 sub group_import {
my $idx = &LONCAPA::map::getresidx($url);	my $idx = &LONCAPA::map::getresidx($url);
$LONCAPA::map::order[$#LONCAPA::map::order+1]=$idx;	$LONCAPA::map::order[$#LONCAPA::map::order+1]=$idx;
my $ext = 'false';	my $ext = 'false';
if ($url=~/^http:\/\//) { $ext = 'true'; }	if ($url=~/^http:\/\// \|\| $url=~/^https:\/\//) { $ext = 'true'; }
$url =~ s/:/\&colon;/g;	$url =~ s/:/\&colon;/g;
$name =~ s/:/\&colon;/g;	$name =~ s/:/\&colon;/g;
$LONCAPA::map::resources[$idx] =	$LONCAPA::map::resources[$idx] =
Line 1100 sub docs_change_log {	Line 1100 sub docs_change_log {
if ($docslog{$id}{'logentry'}{'currentfolder'} ne $folder) { next; }	if ($docslog{$id}{'logentry'}{'currentfolder'} ne $folder) { next; }
}	}
my @changes=keys(%{$docslog{$id}{'logentry'}});	my @changes=keys(%{$docslog{$id}{'logentry'}});
	if ($env{'form.displayfilter'} eq 'containing') {
	my $wholeentry=$docslog{$id}{'exe_uname'}.':'.$docslog{$id}{'exe_udom'}.':'.
	&Apache::loncommon::plainname($docslog{$id}{'exe_uname'},$docslog{$id}{'exe_udom'});
	foreach my $key (@changes) {
	$wholeentry.=':'.$docslog{$id}{'logentry'}{$key};
	}
	if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }
	}
my $count = 0;	my $count = 0;
my $time =	my $time =
&Apache::lonlocal::locallocaltime($docslog{$id}{'exe_time'});	&Apache::lonlocal::locallocaltime($docslog{$id}{'exe_time'});