[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha mainpage.pl,1.9,1.9.2.1
From: |
Henri-Damien LAURENT |
Subject: |
[Koha-cvs] CVS: koha mainpage.pl,1.9,1.9.2.1 |
Date: |
Thu, 16 Jun 2005 08:06:26 -0700 |
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 => address@hidden);
output_html_with_http_headers $query, $cookie, $template->output;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha mainpage.pl,1.9,1.9.2.1,
Henri-Damien LAURENT <=