[Koha-cvs] CVS: koha/C4 AuthoritiesMarc.pm,1.5,1.6

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9788/C4

Modified Files:
	AuthoritiesMarc.pm 
Log Message:
fixes for authorities management

Index: AuthoritiesMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/AuthoritiesMarc.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** AuthoritiesMarc.pm	5 Jul 2004 13:37:22 -0000	1.5
--- AuthoritiesMarc.pm	18 Aug 2004 16:00:24 -0000	1.6
***************
*** 42,45 ****
--- 42,47 ----
  	&AUTHgetauthority
  	
+ 	&AUTHgetauth_type
+ 	
  	&authoritysearch
  	
***************
*** 105,109 ****
  	my @result = ();
  	while (my ($authid) = $sth->fetchrow) {
- 			warn "AUTH: $authid";
  			push @result,$authid;
  		}
--- 107,110 ----
***************
*** 318,324 ****
  sub AUTHgettagslib {
  	my ($dbh,$forlibrarian,$authtypecode)= @_;
- # 	warn "AUTH : $authtypecode";
  	$authtypecode="" unless $authtypecode;
- # 	warn "AUTH : $authtypecode";
  	my $sth;
  	my $libfield = ($forlibrarian eq 1)? 'liblibrarian' : 'libopac';
--- 319,323 ----
***************
*** 381,385 ****
  		$sth->finish;
  	}
- 	warn "auth : $authid";
  	my $fieldcount=0;
  	# now, add subfields...
--- 380,383 ----
***************
*** 492,495 ****
--- 490,500 ----
  }
  
+ sub AUTHgetauth_type {
+ 	my ($authtypecode) = @_;
+ 	my $dbh=C4::Context->dbh;
+ 	my $sth=$dbh->prepare("select * from auth_types where authtypecode=?");
+ 	$sth->execute($authtypecode);
+ 	return $sth->fetchrow_hashref;
+ }
  sub AUTHmodauthority {
  	my ($dbh,$authid,$record,$delete)=@_;
***************
*** 828,831 ****
--- 833,839 ----
  # $Id$
  # $Log$
+ # Revision 1.6  2004/08/18 16:00:24  tipaul
+ # fixes for authorities management
+ #
  # Revision 1.5  2004/07/05 13:37:22  doxulting
  # First step for working authorities