loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.3, 2004/03/16 19:20:58	version 1.5, 2004/03/20 00:45:16
Line 249 sub process_manifest {	Line 249 sub process_manifest {
text_h =>	text_h =>
[sub {	[sub {
my ($text) = @_;	my ($text) = @_;
	if ($state[0] eq "manifest" && $state[1] eq "organizations" && $state[2] eq "organization" && $state[-1] eq "title") {
	if ($cms eq 'angel') {
	$$items{$itm}{title} = $text;
	}
	}
}, "dtext"],	}, "dtext"],
end_h =>	end_h =>
[sub {	[sub {
Line 541 sub build_structure {	Line 546 sub build_structure {
my $title = $$items{$contitem}{title};	my $title = $$items{$contitem}{title};
$src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom);	$src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom);
unless ($flag{$key}{page} == 1) {	unless ($flag{$key}{page} == 1) {
$seqtext{$key} .= qq\|<resource id="$curr_id" src="$src" title="$title"\|;	$seqtext{$key} .= qq\|<resource id="$curr_id" src="$src" title="$title" type="start"\|;
unless ($cms eq 'bb5' && $key eq 'Top' && @{$announcements}) {
$seqtext{$key} .= qq\| type="start"\|;
}
unless ($flag{$key}{seq} \|\| $flag{$key}{board} \|\| $flag{$key}{file}) {	unless ($flag{$key}{seq} \|\| $flag{$key}{board} \|\| $flag{$key}{file}) {
$flag{$key}{page} = 1;	$flag{$key}{page} = 1;
}	}