[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/members deletemem.pl
From: |
Antoine Farnault |
Subject: |
[Koha-cvs] koha/members deletemem.pl |
Date: |
Tue, 10 Jul 2007 15:18:27 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: Antoine Farnault <toins> 07/07/10 15:18:27
Modified files:
members : deletemem.pl
Log message:
syspref already writed in Auth.pm
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/deletemem.pl?cvsroot=koha&r1=1.16&r2=1.17
Patches:
Index: deletemem.pl
===================================================================
RCS file: /sources/koha/koha/members/deletemem.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- deletemem.pl 2 Jul 2007 00:38:18 -0000 1.16
+++ deletemem.pl 10 Jul 2007 15:18:27 -0000 1.17
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: deletemem.pl,v 1.16 2007/07/02 00:38:18 rangi Exp $
+# $Id: deletemem.pl,v 1.17 2007/07/10 15:18:27 toins Exp $
#script to delete items
#written 2/5/00
@@ -84,21 +84,6 @@
if ($data ne '') {
$template->param(guarantees => 1);
}
-# print "<table border=1>";
-# if ($i > 0){
-# print "<TR><TD>Items on Issue</td><td align=right>$i</td></tr>";
-# }
-# if ($flags->{'CHARGES'} ne ''){
-# print
"<TR><TD>Charges</td><td>$flags->{'CHARGES'}->{'message'}</tr>";
-# }
-# if ($data ne ''){
-# print "<TR><TD>Guarantees</td></tr>";
-# }
-# print "</table>";
-$template->param(intranetcolorstylesheet =>
C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet =>
C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
- );
output_html_with_http_headers $input, $cookie, $template->output;
} else {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/members deletemem.pl,
Antoine Farnault <=