[Uml-devel] KDE_3_3_BRANCH: kdesdk/umbrello/umbrello/codegenerators

[Sebastian Stein]

CVS commit by sstein: 

backport of patch by Laurent Bardi: format of documentation is nearest pod
spec, adding type of param before writting param in doc and suppress formatDoc
which produce bad output

CCMAIL: laurent.Bardi at ipbs.fr


  M +8 -8      perlwriter.cpp   1.14.2.2


--- kdesdk/umbrello/umbrello/codegenerators/perlwriter.cpp  #1.14.2.1:1.14.2.2
@@ -139,5 +139,5 @@ void PerlWriter::writeClass(UMLClassifie
                 perl << m_newLineEndingChars << "=head1";
                 perl << " " << classname.upper() << m_newLineEndingChars << m_newLineEndingChars;
-                perl << formatDoc(c->getDoc(),"");
+                perl << c->getDoc();
                 perl << m_newLineEndingChars << m_newLineEndingChars << "=cut" << m_newLineEndingChars << m_newLineEndingChars;
         }
@@ -285,5 +285,5 @@ void PerlWriter::writeOperations(QString
                                 if(forceDoc() || !at->getDoc().isEmpty()) 
                                 {
-                                        perl << "      " << cleanName(at->getName()) << "  " << at->getDoc();
+                                        perl << "      " << at->getTypeName() <<cleanName(at->getName()) << "  " << at->getDoc();
                                         perl << m_newLineEndingChars;
                                 }
@@ -291,9 +292,8 @@ void PerlWriter::writeOperations(QString
                         perl << m_newLineEndingChars;
                         perl << "   Return : " << m_newLineEndingChars ;
-                        perl << "      " << op->getReturnType() ;
-                        perl << m_newLineEndingChars 
-                        << m_newLineEndingChars ;                       
-                        perl << "   Description : " << m_newLineEndingChars ;
-                        perl << "      " << formatDoc(op->getDoc(),"");
+                        perl << "      " << op->getReturnType();
+                        perl << m_newLineEndingChars << m_newLineEndingChars;
+                        perl << "   Description : " << m_newLineEndingChars;
+                        perl << "      " << op->getDoc();
                         perl << m_newLineEndingChars << m_newLineEndingChars << "=cut" << m_newLineEndingChars << m_newLineEndingChars;
                 }//end if : write method documentation