[LON-CAPA-cvs] cvs: loncom /interface coursecatalog.pm

[raeburn]

raeburn		Wed Oct 18 10:07:47 2006 EDT

  Modified files:              
    /loncom/interface	coursecatalog.pm 
  Log:
  Remove leading spaces from course titles.
  
  
Index: loncom/interface/coursecatalog.pm
diff -u loncom/interface/coursecatalog.pm:1.9 loncom/interface/coursecatalog.pm:1.10
--- loncom/interface/coursecatalog.pm:1.9	Wed Oct 18 09:52:17 2006
+++ loncom/interface/coursecatalog.pm	Wed Oct 18 10:07:47 2006
@@ -456,6 +456,7 @@
         }
         my $cleandesc=&HTML::Entities::encode($descr,'<>&"');
         $cleandesc=~s/'/\\'/g;
+        $cleandesc =~ s/^\s+//;
         my ($cdom,$cnum)=split(/\_/,$course);
 
         my ($desc,$instcode,$owner,$ttype) = split(/:/,$courses{$course});