loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.69, 2006/09/26 15:15:19	version 1.70, 2006/12/11 00:32:24
Line 234 foreach my $dom (@domains) {	Line 234 foreach my $dom (@domains) {
foreach my $uname (keys(%portusers)) {	foreach my $uname (keys(%portusers)) {
my $urlstart = '/uploaded/'.$dom.'/'.$uname;	my $urlstart = '/uploaded/'.$dom.'/'.$uname;
my $pathstart = &propath($dom,$uname).'/userfiles';	my $pathstart = &propath($dom,$uname).'/userfiles';
my $is_course = &check_for_course($dom,$uname);	my $is_course = &Apache::lonnet::is_course($dom,$uname);
my $curr_perm = &Apache::lonnet::get_portfile_permissions($dom,$uname);	my $curr_perm = &Apache::lonnet::get_portfile_permissions($dom,$uname);
my %access = &Apache::lonnet::get_access_controls($curr_perm);	my %access = &Apache::lonnet::get_access_controls($curr_perm);
foreach my $file (keys(%access)) {	foreach my $file (keys(%access)) {
Line 322 sub descend_tree {	Line 322 sub descend_tree {
}	}
}	}

sub check_for_course {
my ($cdom,$cnum) = @_;
my %courses = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',$cnum,undef,
undef,'.');
if (exists($courses{$cdom.'_'.$cnum})) {
return 1;
}
return 0;
}


sub process_portfolio_access_data {	sub process_portfolio_access_data {
my ($url,$access_hash) = @_;	my ($url,$access_hash) = @_;
foreach my $key (keys(%{$access_hash})) {	foreach my $key (keys(%{$access_hash})) {