[Koha-cvs] CVS: koha mainpage.pl,1.9,1.9.2.1

[Henri-Damien LAURENT]

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

Modified Files:
      Tag: rel_2_2
	mainpage.pl 
Log Message:
adding rapid links to pages inside

Index: mainpage.pl
===================================================================
RCS file: /cvsroot/koha/koha/mainpage.pl,v
retrieving revision 1.9
retrieving revision 1.9.2.1
diff -C2 -r1.9 -r1.9.2.1
*** mainpage.pl	22 Dec 2003 14:54:53 -0000	1.9
--- mainpage.pl	16 Jun 2005 15:06:23 -0000	1.9.2.1
***************
*** 8,13 ****
--- 8,24 ----
  use CGI;
  use C4::Auth;
+ use C4::AuthoritiesMarc;
+ use C4::Koha;
  
  my $query = new CGI;
+ my $authtypes = getauthtypes;
+ my @authtypesloop;
+ foreach my $thisauthtype (sort { $authtypes->{$a} <=> $authtypes->{$b} } keys %$authtypes) {
+ 	my %row =(value => $thisauthtype,
+ 				authtypetext => $authtypes->{$thisauthtype}{'authtypetext'},
+ 			);
+ 	push @authtypesloop, \%row;
+ }
+ 
  my ($template, $loggedinuser, $cookie)
      = get_template_and_user({template_name => "intranet-main.tmpl",
***************
*** 25,28 ****
--- 36,40 ----
  my $marc_p = C4::Context->boolean_preference("marc");
  $template->param(NOTMARC => !$marc_p);
+ $template->param(authtypesloop => \@authtypesloop);
  
  output_html_with_http_headers $query, $cookie, $template->output;