From 317a4d759a2f0689f9a0c48eb5905760a4d11020 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 20 Sep 2010 09:19:01 -0700
Subject: [PATCH] Let findBrokenAssets.pl display the className of broken
 assets.  Thanks Knowmad!

---
 docs/changelog/7.x.x.txt | 1 +
 sbin/findBrokenAssets.pl | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 0bbaa28a2..a0f373172 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -10,6 +10,7 @@
  - fixed #11868: WebGUI::Session::Form::validToken throws unnecessary warnings
  - fixed #11875: Error loading empty module
  - fixed #11873: findBrokenAssets.pl doesn't support custom assets
+ - added findBrokenAssets.pl shows the classname of broken assets (William McKee, Knowmad Technologies)
 
 7.10.0
  - fixed #11812: Checking www_ajaxSave's response in the cart js, urlencoding post parameters
diff --git a/sbin/findBrokenAssets.pl b/sbin/findBrokenAssets.pl
index c7ed20249..9ecaaab32 100644
--- a/sbin/findBrokenAssets.pl
+++ b/sbin/findBrokenAssets.pl
@@ -132,6 +132,9 @@ while ( my %row = $sth->hash ) {
                 printf "%10s: %s\n", "revised", scalar( localtime $row{revisionDate} );
             }
 
+            # Classname
+            printf "%10s: %s\n", "class", $row{className};
+
             # Parent
             if ( my $parent = WebGUI::Asset->newByDynamicClass( $session, $row{parentId} ) ) {
                 printf "%10s: %s (%s)\n", "parent", $parent->getTitle, $parent->getId;