Conversion du titre en majuscule

diff --git a/gtx2tex.pl b/gtx2tex.pl
index d4cc438..0744e01 100644 (file)
--- a/gtx2tex.pl
+++ b/gtx2tex.pl
@@ -319,11 +319,16 @@ sub directive{
         }
 
         if ( $output eq "pdf" ) { print TEX "\\pdfdest name {$_} fith \\pdfoutline goto name {$_} {$_}" }
-        print TEX "\\begin{center} \\section*{$_}\\end{center}\n";
-        $define="";
-        print TEX "\\index{$_}";
+
         $song_title = $_;
-        $verbose && print TEX "\\typeout{$_}";
+        if ( $uppercase ) {
+            $song_title = uc($song_title);
+        }
+
+        print TEX "\\begin{center} \\section*{$song_title}\\end{center}\n";
+        $define="";
+        print TEX "\\index{$song_title}";
+        $verbose && print TEX "\\typeout{$song_title}";
     }elsif ( /{subtitle:|{st:/ ) {
         s/(\{.*:)(.+)(\})/\2/;
         print TEX "\\index{$_!$song_title}";