Mercurial > ~darius > hgwebdir.cgi > cddb-stuff

diff tracknamer.tcl @ 12:2bcb84ead02e default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use Tcl 8.2 Fix setting the album artist changes
author darius
date Thu, 18 Jul 2002 06:47:39 +0000
parents 74031379d3cb
children
line wrap: on
line diff
--- a/tracknamer.tcl	Thu Jul 18 06:38:42 2002 +0000
+++ b/tracknamer.tcl	Thu Jul 18 06:47:39 2002 +0000
@@ -1,6 +1,6 @@
 #!/bin/sh
 # tcl magic \
-exec tclsh8.0 $0 $*
+exec tclsh8.2 $0 $*
 
 #
 # This software is copyright Daniel O'Connor (darius@dons.net.au) 1998, 1999
@@ -137,7 +137,7 @@
     global tracks;
 
     set tracks(albumname) $tracks(tmp:albumname);
-    set $tracks(albumartist) tracks(tmp:albumartist);
+    set tracks(albumartist) $tracks(tmp:albumartist);
 
     for { set i 1 } { $i <= $tracks(number) } { incr i } {
 	set tracks(artist:$i) $tracks(tmp:artist:$i);