loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.173, 2004/02/04 17:17:26	version 1.174, 2004/02/06 05:25:16
Line 2725 sub make_new_child {	Line 2725 sub make_new_child {
} elsif ($userinput =~ /^ls/) {	} elsif ($userinput =~ /^ls/) {
if(isClient) {	if(isClient) {
my $obs;	my $obs;
	my $rights;
my ($cmd,$ulsdir)=split(/:/,$userinput);	my ($cmd,$ulsdir)=split(/:/,$userinput);
my $ulsout='';	my $ulsout='';
my $ulsfn;	my $ulsfn;
Line 2732 sub make_new_child {	Line 2733 sub make_new_child {
if(-d $ulsdir) {	if(-d $ulsdir) {
if (opendir(LSDIR,$ulsdir)) {	if (opendir(LSDIR,$ulsdir)) {
while ($ulsfn=readdir(LSDIR)) {	while ($ulsfn=readdir(LSDIR)) {
undef $obs;	undef $obs, $rights;
my @ulsstats=stat($ulsdir.'/'.$ulsfn);	my @ulsstats=stat($ulsdir.'/'.$ulsfn);
#We do some obsolete checking here	#We do some obsolete checking here
if(-e $ulsdir.'/'.$ulsfn.".meta") {	if(-e $ulsdir.'/'.$ulsfn.".meta") {
Line 2740 sub make_new_child {	Line 2741 sub make_new_child {
my @obsolete=<FILE>;	my @obsolete=<FILE>;
foreach my $obsolete (@obsolete) {	foreach my $obsolete (@obsolete) {
if($obsolete =~ m\|(<obsolete>)(on)\|) { $obs = 1; }	if($obsolete =~ m\|(<obsolete>)(on)\|) { $obs = 1; }
	if($obsolete =~ m\|(<copyright>)(default)\|) { $rights = 1; }
}	}
}	}
$ulsout.=$ulsfn.'&'.join('&',@ulsstats);	$ulsout.=$ulsfn.'&'.join('&',@ulsstats);
if($obs eq '1') { $ulsout.="&1:"; }	if($obs eq '1') { $ulsout.="&1"; }
	else { $ulsout.="&0"; }
	if($rights eq '1') { $ulsout.="&1:"; }
else { $ulsout.="&0:"; }	else { $ulsout.="&0:"; }
}	}
closedir(LSDIR);	closedir(LSDIR);