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

comparison 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
comparison
equal deleted inserted replaced
11:c122160e07da 12:2bcb84ead02e
1 #!/bin/sh 1 #!/bin/sh
2 # tcl magic \ 2 # tcl magic \
3 exec tclsh8.0 $0 $* 3 exec tclsh8.2 $0 $*
4 4
5 # 5 #
6 # This software is copyright Daniel O'Connor (darius@dons.net.au) 1998, 1999 6 # This software is copyright Daniel O'Connor (darius@dons.net.au) 1998, 1999
7 # 7 #
8 # This software is release under the GNU Public License Version 2. 8 # This software is release under the GNU Public License Version 2.
135 } 135 }
136 proc save_names {} { 136 proc save_names {} {
137 global tracks; 137 global tracks;
138 138
139 set tracks(albumname) $tracks(tmp:albumname); 139 set tracks(albumname) $tracks(tmp:albumname);
140 set $tracks(albumartist) tracks(tmp:albumartist); 140 set tracks(albumartist) $tracks(tmp:albumartist);
141 141
142 for { set i 1 } { $i <= $tracks(number) } { incr i } { 142 for { set i 1 } { $i <= $tracks(number) } { incr i } {
143 set tracks(artist:$i) $tracks(tmp:artist:$i); 143 set tracks(artist:$i) $tracks(tmp:artist:$i);
144 set tracks(title:$i) $tracks(tmp:title:$i); 144 set tracks(title:$i) $tracks(tmp:title:$i);
145 } 145 }