[Koha-cvs] CVS: koha/authorities authorities.pl,1.8.2.2,1.8.2.3 detail.pl,1.2,1.2.2.1

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
	authorities.pl detail.pl 
Log Message:
adding authority type to authority detail screen & add/modify

Index: authorities.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/authorities.pl,v
retrieving revision 1.8.2.2
retrieving revision 1.8.2.3
diff -C2 -r1.8.2.2 -r1.8.2.3
*** authorities.pl	30 May 2005 11:26:40 -0000	1.8.2.2
--- authorities.pl	30 May 2005 11:53:15 -0000	1.8.2.3
***************
*** 404,408 ****
  	);
  
! 	my $authtypes = getauthtypes;
  my @authtypesloop;
  foreach my $thisauthtype (keys %$authtypes) {
--- 404,408 ----
  	);
  
! my $authtypes = getauthtypes;
  my @authtypesloop;
  foreach my $thisauthtype (keys %$authtypes) {
***************
*** 415,418 ****
  }
  
! $template->param(authtypesloop => \@authtypesloop);
  output_html_with_http_headers $input, $cookie, $template->output;
--- 415,420 ----
  }
  
! $template->param(authtypesloop => \@authtypesloop,
! 				authtypetext => $authtypes->{$authtypecode}{'authtypetext'},
! 				);
  output_html_with_http_headers $input, $cookie, $template->output;

Index: detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/detail.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** detail.pl	8 Nov 2004 19:46:11 -0000	1.2
--- detail.pl	30 May 2005 11:53:15 -0000	1.2.2.1
***************
*** 144,147 ****
--- 144,148 ----
  				count => $count,
  				biblio_fields => $biblio_fields,
+ 				authtypetext => $authtypes->{$authtypecode}{'authtypetext'},
  				authtypesloop => \@authtypesloop);
  output_html_with_http_headers $query, $cookie, $template->output;