#!/usr/bin/perl

#

# DW::Hooks::Display

#

# A file for miscellaneous display-related hooks.

#

# Authors:

#      Denise Paolucci <denise@dreamwidth.org>

#

# Copyright (c) 2009 by Dreamwidth Studios, LLC.

#

# This program is free software; you may redistribute it and/or modify it under

# the same terms as Perl itself.  For a copy of the license, please reference

# 'perldoc perlartistic' or 'perldoc perlgpl'.

#

package DW::Hooks::Display;

use strict;

use LJ::Hooks;

# Displays extra info on finduser results. Called as:

#   LJ::Hooks::run_hooks("finduser_extrainfo", $u })

# Currently used to return paid status, expiration date, and number of

# unused invite codes.

LJ::Hooks::register_hook( 'finduser_extrainfo', sub {

    my $u = shift;

    my $ret;

    my $paidstatus = DW::Pay::get_paid_status( $u );

    my $numinvites = DW::InviteCodes->unused_count( userid => $u->id );

    unless ( DW::Pay::is_default_type( $paidstatus ) ) {

        $ret .= "  " . DW::Pay::type_name( $paidstatus->{typeid} );

        $ret .= $paidstatus->{permanent} ? ", never expires" :

            ", expiring " . LJ::mysql_time( $paidstatus->{expiretime} );

        $ret .= "\n";

    }

    if ( $numinvites ) {

        $ret .= "  Unused invites: " . $numinvites . "\n";

    }

    return $ret;

});

1;