Return to imsprocessor.pm CVS log | Up to [LON-CAPA] / loncom / imspackages |
version 1.4, 2004/03/16 23:35:33 | version 1.5, 2004/03/20 00:45:16 |
---|---|
Line 546 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; |
} | } |