From 984e197e5daa7bc8d8599501e13f555fb3615647 Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Mon, 24 Aug 2009 23:47:18 +0200 Subject: [PATCH] Adding notices.pl which enables staff to see what notices have been sent to user Signed-off-by: Galen Charlton --- .../prog/en/includes/circ-menu.inc | 7 +- .../prog/en/modules/members/notices.tmpl | 62 +++++++++++++++++ members/notices.pl | 66 +++++++++++++++++++ 3 files changed, 132 insertions(+), 3 deletions(-) create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/members/notices.tmpl create mode 100755 members/notices.pl diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/circ-menu.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/circ-menu.inc index 67e7b39867..56dd2f227c 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/includes/circ-menu.inc +++ b/koha-tmpl/intranet-tmpl/prog/en/includes/circ-menu.inc @@ -63,9 +63,10 @@
  • ">Circulation History
  • &src=circ">Modification Log
  • - -
  • ">Messaging
  • - + +
  • ">Messaging
  • + +
  • ">Notices
  • diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/notices.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/members/notices.tmpl new file mode 100644 index 0000000000..35acf9aac4 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/notices.tmpl @@ -0,0 +1,62 @@ + +Sent notices for <!-- TMPL_VAR NAME="firstname" --> <!-- TMPL_VAR NAME="surname" --> + + + + + + + + + + + +
    + +
    +
    +
    + +

    Sent notices for

    + + + + + + + + + + + + + + + + + + + + + + +
    SubjectContentTypeStatusTime
    + +
    +
    + +
    + +
    +
    + diff --git a/members/notices.pl b/members/notices.pl new file mode 100755 index 0000000000..da615d442b --- /dev/null +++ b/members/notices.pl @@ -0,0 +1,66 @@ +#!/usr/bin/perl + +# Displays sent notices for a given borrower + +# Copyright (c) 2009 BibLibre +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use strict; +use C4::Auth; +use C4::Output; +use CGI; +use C4::Members; +use C4::Branch; +use C4::Letters; + +use C4::Dates qw/format_date/; +my $input=new CGI; + + +my $borrowernumber = $input->param('borrowernumber'); +#get borrower details +my $borrower = GetMember(borrowernumber=>$borrowernumber); + +my ($template, $loggedinuser, $cookie) += get_template_and_user({template_name => "members/notices.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {borrowers => 1}, + debug => 1, + }); + +$template->param( $borrower ); +my ($picture, $dberror) = GetPatronImage($borrower->{'cardnumber'}); +$template->param( picture => 1 ) if $picture; + +# Getting the messages +my $queued_messages = C4::Letters::GetQueuedMessages({$borrowernumber}); + +warn Data::Dumper::Dumper( $queued_messages ); +$template->param( + QUEUED_MESSAGES => $queued_messages, + BORROWER_INFO => [ $borrower ], + firstname => $borrower->{'firstname'}, + surname => $borrower->{'surname'}, + borrowernumber => $borrowernumber, + sentnotices => 1 + ); +output_html_with_http_headers $input, $cookie, $template->output; + + + -- 2.39.5