[Koha-cvs] CVS: koha/C4 Koha.pm,1.18,1.19

[Paul POULAIN]

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

Modified Files:
	Koha.pm 
Log Message:
adding authtype management (MARC authority types)

Index: Koha.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Koha.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** Koha.pm	18 May 2004 15:23:49 -0000	1.18
--- Koha.pm	28 May 2004 08:26:57 -0000	1.19
***************
*** 59,62 ****
--- 59,63 ----
  			&getprinters &getprinter
  			&getitemtypes &getitemtypeinfo
+ 			&getauthtypes
  			$DEBUG);
  
***************
*** 222,226 ****
  }
  
! =head2 itemtypes
  
    $itemtypes = &getitemtypes();
--- 223,227 ----
  }
  
! =head2 getitemtypes
  
    $itemtypes = &getitemtypes();
***************
*** 272,277 ****
  }
  
  
! =head2 itemtypes
  
    $itemtype = &getitemtype($itemtype);
--- 273,327 ----
  }
  
+ =head2 getauthtypes
  
!   $authtypes = &getauthtypes();
! 
! Returns information about existing authtypes.
! 
! build a HTML select with the following code :
! 
! =head3 in PERL SCRIPT
! 
! my $authtypes = getauthtypes;
! my @authtypesloop;
! foreach my $thisauthtype (keys %$authtypes) {
! 	my $selected = 1 if $thisauthtype eq $authtype;
! 	my %row =(value => $thisauthtype,
! 				selected => $selected,
! 				authtypetext => $authtypes->{$thisauthtype}->{'authtypetext'},
! 			);
! 	push @authtypesloop, \%row;
! }
! $template->param(itemtypeloop => \@itemtypesloop);
! 
! =head3 in TEMPLATE
! 
! <form action='<!-- TMPL_VAR name="script_name" -->' method=post>
! 	<select name="authtype">
! 	<!-- TMPL_LOOP name="authtypeloop" -->
! 		<option value="<!-- TMPL_VAR name="value" -->" <!-- TMPL_IF name="selected" -->selected<!-- /TMPL_IF -->><!-- TMPL_VAR name="authtypetext" --></option>
! 	<!-- /TMPL_LOOP -->
! 	</select>
! 	<input type=text name=searchfield value="<!-- TMPL_VAR name="searchfield" -->">
! 	<input type="submit" value="OK" class="button">
! </form>
! 
! 
! =cut
! 
! sub getauthtypes {
! # returns a reference to a hash of references to authtypes...
! 	my %authtypes;
! 	my $dbh = C4::Context->dbh;
! 	my $sth=$dbh->prepare("select * from auth_types order by authtypetext");
! 	$sth->execute;
! 	while (my $IT=$sth->fetchrow_hashref) {
! 			$authtypes{$IT->{'authtypecode'}}=$IT;
! 	}
! 	return (\%authtypes);
! }
! 
! 
! =head2 getitemtypeinfo
  
    $itemtype = &getitemtype($itemtype);