[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/authorities authorities-home.pl,1.3,1.4
From: |
doXulting |
Subject: |
[Koha-cvs] CVS: koha/authorities authorities-home.pl,1.3,1.4 |
Date: |
Tue, 06 Jul 2004 06:15:48 -0700 |
Update of /cvsroot/koha/koha/authorities
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2736/koha/authorities
Modified Files:
authorities-home.pl
Log Message:
New stuff for authorities
Index: authorities-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/authorities-home.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** authorities-home.pl 5 Jul 2004 13:38:02 -0000 1.3
--- authorities-home.pl 6 Jul 2004 13:15:46 -0000 1.4
***************
*** 37,44 ****
my $op = $query->param('op');
my $authtypecode = $query->param('authtypecode');
- warn "La authtypecode = $authtypecode\n";
my $dbh = C4::Context->dbh;
my $startfrom=$query->param('startfrom');
$startfrom=0 if(!defined $startfrom);
my ($template, $loggedinuser, $cookie);
--- 37,44 ----
my $op = $query->param('op');
my $authtypecode = $query->param('authtypecode');
my $dbh = C4::Context->dbh;
my $startfrom=$query->param('startfrom');
+ my $authid=$query->param('authid');
$startfrom=0 if(!defined $startfrom);
my ($template, $loggedinuser, $cookie);
***************
*** 66,71 ****
$resultsperpage = 19 if(!defined $resultsperpage);
my @tags;
- warn "a ce pont labas dbh ($dbh), tags(address@hidden), and_or
(address@hidden), excluding (address@hidden), operator (address@hidden), value
(address@hidden), resultsperpage $resultsperpage, $startfrom, [$authtypecode]";
-
my ($results,$total) = authoritysearch($dbh,
address@hidden,address@hidden,
address@hidden, address@hidden, address@hidden,
--- 66,69 ----
***************
*** 145,150 ****
} elsif ($op eq "delete") {
! warn "Ici effacement\n";
!
($template, $loggedinuser, $cookie)
= get_template_and_user({template_name =>
"authorities/authorities-home.tmpl",
--- 143,148 ----
} elsif ($op eq "delete") {
! &AUTHdelauthority($dbh,$authid, 1);
!
($template, $loggedinuser, $cookie)
= get_template_and_user({template_name =>
"authorities/authorities-home.tmpl",
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/authorities authorities-home.pl,1.3,1.4,
doXulting <=