[LON-CAPA-cvs] cvs: loncom /imspackages imsprocessor.pm

[raeburn]

raeburn		Fri Mar 19 19:45:16 2004 EDT

  Modified files:              
    /loncom/imspackages	imsprocessor.pm 
  Log:
  Make sure first item in sequence file is always set to type=start.  As we are no longer putting Blackboard announcements first in top level sequence folder, checkfor announcements is no longer required.
  
  
Index: loncom/imspackages/imsprocessor.pm
diff -u loncom/imspackages/imsprocessor.pm:1.4 loncom/imspackages/imsprocessor.pm:1.5
--- loncom/imspackages/imsprocessor.pm:1.4	Tue Mar 16 18:35:33 2004
+++ loncom/imspackages/imsprocessor.pm	Fri Mar 19 19:45:16 2004
@@ -546,10 +546,7 @@
                 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|<resource id="$curr_id" src="$src" title="$title"|;
-                    unless ($cms eq 'bb5' && $key eq 'Top' && @{$announcements}) {
-                        $seqtext{$key} .= qq| type="start"|;
-                    }
+                    $seqtext{$key} .= qq|<resource id="$curr_id" src="$src" title="$title" type="start"|;
                     unless ($flag{$key}{seq} || $flag{$key}{board} || $flag{$key}{file}) {
                         $flag{$key}{page} = 1;
                     }