version 1.331.4.15, 2016/11/15 20:45:19
|
version 1.331.4.17, 2024/07/04 17:21:22
|
Line 1881 sub build_date_queries {
|
Line 1881 sub build_date_queries {
|
my (undef,undef,undef,$cbday,$cbmon,$cbyear) = localtime($cbefore); |
my (undef,undef,undef,$cbday,$cbmon,$cbyear) = localtime($cbefore); |
# Correct for year being relative to 1900 |
# Correct for year being relative to 1900 |
$cayear+=1900; $cbyear+=1900; |
$cayear+=1900; $cbyear+=1900; |
|
# Correct month; localtime gives month 0..11 but MySQL expects 1..12 |
|
$camon++; $cbmon++; |
my $cquery= |
my $cquery= |
'(creationdate BETWEEN '. |
'(creationdate BETWEEN '. |
"'".$cayear.'-'.$camon.'-'.$caday."'". |
"'".$cayear.'-'.$camon.'-'.$caday."'". |
Line 1899 sub build_date_queries {
|
Line 1901 sub build_date_queries {
|
my (undef,undef,undef,$mbday,$mbmon,$mbyear) = localtime($mbefore); |
my (undef,undef,undef,$mbday,$mbmon,$mbyear) = localtime($mbefore); |
# Correct for year being relative to 1900 |
# Correct for year being relative to 1900 |
$mayear+=1900; $mbyear+=1900; |
$mayear+=1900; $mbyear+=1900; |
|
# Correct month; localtime gives month 0..11 but MySQL expects 1..12 |
|
$mamon++; $mbmon++; |
my $mquery= |
my $mquery= |
'(lastrevisiondate BETWEEN '. |
'(lastrevisiondate BETWEEN '. |
"'".$mayear.'-'.$mamon.'-'.$maday."'". |
"'".$mayear.'-'.$mamon.'-'.$maday."'". |
Line 2555 END
|
Line 2559 END
|
|
|
if ($area eq 'portfolio') { |
if ($area eq 'portfolio') { |
next if (defined($matches{$Fields{'url'}})); |
next if (defined($matches{$Fields{'url'}})); |
# Skip if inaccessible |
# Skip unless access control set to public or passphrase-protected |
next if (!&Apache::lonnet::portfolio_access($Fields{'url'})); |
next unless (($Fields{'scope'} eq 'public') || ($Fields{'scope'} eq 'guest')); |
$matches{$Fields{'url'}} = 1; |
$matches{$Fields{'url'}} = 1; |
} |
} |
# |
# |