gistfile1.txt

#----------------------------------------------------------------------------
# Remove the orphan version tags, tags with no revisions in them
sub removeOrphanedVersionTags {
    my $session = shift;
    print "\tRemoving orphan version tags (this may take a while)... " unless $quiet;

    my $sth = $session->db->read(
        "SELECT tagId FROM assetVersionTag",
    );
    while ( my ($tagId) = $sth->array ) {
        if ( !$session->db->quickScalar( 
            "SELECT COUNT(*) FROM assetData WHERE tagId=?", 
            [ $tagId ] 
        ) ) {
            my $tag = WebGUI::VersionTag->new( $session, $tagId );
            $tag->rollback;
        }
    }

    print "DONE!\n" unless $quiet;
}