[Koha-cvs] koha/members payprint.pl

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	paul poulain <tipaul>	07/03/09 15:22:54

Removed files:
	members        : payprint.pl 

Log message:
	rel_3_0 moved to HEAD (removing useless file)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/payprint.pl?cvsroot=koha&r1=1.1&r2=0

Patches:
Index: payprint.pl
===================================================================
RCS file: payprint.pl
diff -N payprint.pl
--- payprint.pl	22 Sep 2006 00:21:25 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,85 +0,0 @@
-#!/usr/bin/perl
-# WARNING: Not enough context to figure out the correct tabstop size
-# WARNING: Assume that this file uses 4-character tabs
-
-# $Id: payprint.pl,v 1.1 2006/09/22 00:21:25 tgarip1957 Exp $
-
-#written 11/1/2000 by chris at katipo.oc.nz
-#part of the koha library system, script to facilitate paying off fines
-
-
-# Copyright 2000-2002 Katipo Communications
-#
-# 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::Context;
-use C4::Auth;
-use C4::Interface::CGI::Output;
-use CGI;
-use C4::Search;
-use C4::Date;
-use C4::Members;
-my $input=new CGI;
-
-#print $input->header;
-my $bornum=$input->param('bornum');
-
-#get borrower details
-my $data=borrdata('',$bornum);
-#my $user=C4::Context->preference('defaultbranch');
-my $amount=$input->param('amount');
-my $accounttype=$input->param('accounttype');
-my $desc=$input->param('desc');
-
-if ($accounttype eq "FU"){
-$accounttype="Overdue item";
-}elsif ($accounttype eq "L"){
-$accounttype="Very Overdue or Lost item";
-}else{
-$accounttype="Miscelenaous Fees";
-}
-	my($template, $loggedinuser, $cookie)
-		= get_template_and_user ({ template_name => "members/payprint.tmpl",
-					   query => $input,
-					   type => "intranet",
-					   authnotrequired => 0,
-					   flagsrequired => {borrowers => 1},
-					   debug => 1,
-					 });
-	my $user=borrdata('',$loggedinuser);
-my @datearr = localtime(time());
-my $todaysdate = (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]);
-	$template->param(firstname => $data->{'firstname'}, date=>format_date($todaysdate),
-							surname => $data->{'surname'},
-							cardnumber => $data->{'cardnumber'},
-							street => $data->{'street'},
-							city => $data->{'city'},
-							phone => $data->{'phone'},
-							email => $data->{'email'},
-							amount=> $amount,
-							desc=> $desc,
-							accounttype=> $accounttype,
-							bornum=>$bornum,
-							loggeduser=>$user->{'firstname'}.' '.$user->{'surname'},
-							);
-	output_html_with_http_headers $input, $cookie, $template->output;
-
-
-
-# Local Variables:
-# tab-width: 4
-# End: