[mb-commits] r9787 - mb_server/branches/ReleaseTrack/htdocs/edit/track

[root at musicbrainz.org]

Author: luks
Date: 2008-03-21 14:27:58 +0000 (Fri, 21 Mar 2008)
New Revision: 9787

Modified:
   mb_server/branches/ReleaseTrack/htdocs/edit/track/change.html
Log:
Fix "Change Track Artist"

Modified: mb_server/branches/ReleaseTrack/htdocs/edit/track/change.html
===================================================================
--- mb_server/branches/ReleaseTrack/htdocs/edit/track/change.html	2008-03-19 21:59:47 UTC (rev 9786)
+++ mb_server/branches/ReleaseTrack/htdocs/edit/track/change.html	2008-03-21 14:27:58 UTC (rev 9787)
@@ -76,11 +76,11 @@
 	my $mb = $m->comp("/comp/dblogin");
 	my $release = $m->comp("/comp/loadrelease", $mb, $releaseid);
 	my $artist = $m->comp("/comp/loadartist", $mb, $release->GetArtist);
-	my @tracks = $release->LoadTracks();
+	my $tracks = $release->FindTracks();
 
 
 	# Check if we've done all the tracks on this release
-	if ($tindex >= scalar(@tracks))
+	if ($tindex >= scalar(@$tracks))
 	{
 		</%perl>
 
@@ -110,7 +110,7 @@
 	}
 
 	# load track artist
-	my $track = $tracks[$tindex];
+	my $track = $tracks->[$tindex]->GetTrack;
 	my $trackartist = $m->comp("/comp/loadartist", $mb, $track->GetArtist);
 
 	# prepare validation errors
@@ -239,12 +239,12 @@
 	my %trackartists;
 	my %split = map { $_ => 0 } (" - ", "-", " / ", "/", ": ", ":");
 
-	for my $t (@tracks)
+	for my $t (@$tracks)
 	{
 		for my $split (keys %split)
 		{
-			++$split{$split} if index($t->GetName, $split) >= 0;
-			++$trackartists{$t->GetArtist};
+			++$split{$split} if index($t->GetTrack->GetName, $split) >= 0;
+			++$trackartists{$t->GetTrack->GetArtist};
 		}
 	}
 
@@ -308,7 +308,7 @@
 % 	unless ($solo)
 %	{
 
-	<p>Track <% $tindex+1 %> of <% scalar @tracks %></p>
+	<p>Track <% $tindex+1 %> of <% scalar @$tracks %></p>
 
 % 	}