[LON-CAPA-cvs] cvs: modules /raeburn imsprocessor.pm

[raeburn]

raeburn		Tue Mar 16 18:35:34 2004 EDT

  Modified files:              
    /modules/raeburn	imsprocessor.pm 
  Log:
  Fix so titles will be retrieved for items in the imsmanifest.xml file for ANGEL packages.
  
  
Index: modules/raeburn/imsprocessor.pm
diff -u modules/raeburn/imsprocessor.pm:1.3 modules/raeburn/imsprocessor.pm:1.4
--- modules/raeburn/imsprocessor.pm:1.3	Tue Mar 16 14:20:58 2004
+++ modules/raeburn/imsprocessor.pm	Tue Mar 16 18:35:33 2004
@@ -249,6 +249,11 @@
         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 {