--- loncom/imspackages/imsprocessor.pm 2004/03/16 19:20:58 1.3 +++ loncom/imspackages/imsprocessor.pm 2004/03/20 00:45:16 1.5 @@ -249,6 +249,11 @@ sub process_manifest { text_h => [sub { 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"], end_h => [sub { @@ -541,10 +546,7 @@ sub build_structure { my $title = $$items{$contitem}{title}; $src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom); unless ($flag{$key}{page} == 1) { - $seqtext{$key} .= qq|