[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/opac opac-account.pl,NONE,1.1.2.1
From: |
Finlay Thompson |
Subject: |
[Koha-cvs] CVS: koha/opac opac-account.pl,NONE,1.1.2.1 |
Date: |
Mon, 14 Oct 2002 15:48:49 -0700 |
Update of /cvsroot/koha/koha/opac
In directory usw-pr-cvs1:/tmp/cvs-serv6848
Added Files:
Tag: rel-1-2
opac-account.pl
Log Message:
displays the users account record.
--- NEW FILE ---
#!/usr/bin/perl
# wrriten 15/10/2002 by address@hidden
# script to display borrowers account details in the opac
use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Circulation::Circ2;
use C4::Auth;
my $query = new CGI;
my $flagsrequired;
$flagsrequired->{borrow}=1;
my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 0, $flagsrequired);
my $template = gettemplate("opac-account.tmpl", "opac");
# get borrower information ....
my $borrowernumber = getborrowernumber($loggedinuser);
my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
my @bordat;
$bordat[0] = $borr;
$template->param( BORROWER_INFO => address@hidden );
#get account details
my ($numaccts,$accts,$total) = getboracctrecord(undef,$borr);
for (my $i=0;$i<$numaccts;$i++){
$accts->[$i]{'amount'}+=0.00;
$accts->[$i]{'amountoutstanding'}+=0.00;
if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne
'FU'){
$accts->[$i]{'print_title'};
}
}
$template->param( ACCOUNT_LINES => $accts );
$template->param( total => $total );
$template->param( loggedinuser => $loggedinuser );
print "Content-Type: text/html\n\n", $template->output;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/opac opac-account.pl,NONE,1.1.2.1,
Finlay Thompson <=
- Prev by Date:
[Koha-cvs] CVS: koha/opac opac-detail.pl,1.1.2.3,1.1.2.4 opac-main.pl,1.1.2.2,1.1.2.3 opac-search.pl,1.1.2.3,1.1.2.4 opac-searchresults.pl,1.1.2.4,1.1.2.5 opac-user.pl,1.1.2.4,1.1.2.5 opac-userupdate.pl,1.1.2.2,1.1.2.3
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/default/en opac-reserve.tmpl,1.2,1.3 opac-user.tmpl,1.3,1.4
- Previous by thread:
[Koha-cvs] CVS: koha/opac opac-detail.pl,1.1.2.3,1.1.2.4 opac-main.pl,1.1.2.2,1.1.2.3 opac-search.pl,1.1.2.3,1.1.2.4 opac-searchresults.pl,1.1.2.4,1.1.2.5 opac-user.pl,1.1.2.4,1.1.2.5 opac-userupdate.pl,1.1.2.2,1.1.2.3
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/default/en opac-reserve.tmpl,1.2,1.3 opac-user.tmpl,1.3,1.4
- Index(es):