[LON-CAPA-cvs] cvs: modules /droeschl/Metadata/lib/Metadata Load.pm

[droeschl]

droeschl		Tue Jan 24 22:45:45 2012 EDT

  Modified files:              
    /modules/droeschl/Metadata/lib/Metadata	Load.pm 
  Log:
  Fix an issue that sorted out course_list entries that have only one course.
  
  
Index: modules/droeschl/Metadata/lib/Metadata/Load.pm
diff -u modules/droeschl/Metadata/lib/Metadata/Load.pm:1.1 modules/droeschl/Metadata/lib/Metadata/Load.pm:1.2
--- modules/droeschl/Metadata/lib/Metadata/Load.pm:1.1	Mon Aug 16 20:54:26 2010
+++ modules/droeschl/Metadata/lib/Metadata/Load.pm	Tue Jan 24 22:45:45 2012
@@ -127,7 +127,7 @@
        my %map = ();                 
        for (qw( copyright  course_list ))
        {
-           $map{ $_ } = sub { return unless ${$_[0]} =~ /,/;   ${$_[0]} = [ split /,/, ${$_[0]} ]};
+           $map{ $_ } = sub { return [ ${$_[0]} ] unless ${$_[0]} =~ /,/;   ${$_[0]} = [ split /,/, ${$_[0]} ]};
        }
 
        # split at , and also count