![[BACK]](/icons/back.gif){kind=icon}
Return to imsprocessor.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / imspackages|
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; |
| } | } |