[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin letter.pl,1.3,1.4
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/admin letter.pl,1.3,1.4 |
Date: |
Fri, 05 Aug 2005 08:51:45 -0700 |
Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18256/admin
Modified Files:
letter.pl
Log Message:
adding some fields available for Letters
Index: letter.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/letter.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** letter.pl 4 Aug 2005 08:54:54 -0000 1.3
--- letter.pl 5 Aug 2005 15:51:43 -0000 1.4
***************
*** 109,117 ****
--- 109,133 ----
# build field list
my @SQLfieldname;
+ my %line = ('value' => "LibrarianFirstname", 'text' =>
'LibrarianFirstname');
+ push @SQLfieldname, \%line;
+ my %line = ('value' => "LibrarianSurname", 'text' =>
'LibrarianSurname');
+ push @SQLfieldname, \%line;
+ my %line = ('value' => "LibrarianEmailaddress", 'text' =>
'LibrarianEmailaddress');
+ push @SQLfieldname, \%line;
+ my $sth2=$dbh->prepare("SHOW COLUMNS from branches");
+ $sth2->execute;
+ my %line = ('value' => "", 'text' => '---BRANCHES---');
+ push @SQLfieldname, \%line;
+ while ((my $field) = $sth2->fetchrow_array) {
+ my %line = ('value' => "branches.".$field, 'text' =>
"branches.".$field);
+ push @SQLfieldname, \%line;
+ }
my $sth2=$dbh->prepare("SHOW COLUMNS from biblio");
$sth2->execute;
my %line = ('value' => "", 'text' => '---BIBLIO---');
+
push @SQLfieldname, \%line;
while ((my $field) = $sth2->fetchrow_array) {
+ # note : %line is redefined, otherwise \%line contains the same
value for every entry of the list
my %line = ('value' => "biblio.".$field, 'text' =>
"biblio.".$field);
push @SQLfieldname, \%line;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin letter.pl,1.3,1.4,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/help/admin letter.tmpl,1.1,1.2
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/prog/en about.tmpl,NONE,1.1 auth.tmpl,NONE,1.1 bookcount.tmpl,NONE,1.1 boraccount.tmpl,NONE,1.1 mancredit.tmpl,NONE,1.1 maninvoice.tmpl,NONE,1.1 modbib.tmpl,NONE,1.1 modbibitem.tmpl,NONE,1.1 moditem.tmpl,NONE,1.1 modwebsites.tmpl,NONE,1.1 overdue.tmpl,NONE,1.1 request.tmpl,NONE,1.1 reservereport.tmpl,NONE,1.1 shelves.tmpl,NONE,1.1 stats.tmpl,NONE,1.1 thesaurus_popup.tmpl,NONE,1.1 updatebiblio.tmpl,NONE,1.1
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/help/admin letter.tmpl,1.1,1.2
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/prog/en about.tmpl,NONE,1.1 auth.tmpl,NONE,1.1 bookcount.tmpl,NONE,1.1 boraccount.tmpl,NONE,1.1 mancredit.tmpl,NONE,1.1 maninvoice.tmpl,NONE,1.1 modbib.tmpl,NONE,1.1 modbibitem.tmpl,NONE,1.1 moditem.tmpl,NONE,1.1 modwebsites.tmpl,NONE,1.1 overdue.tmpl,NONE,1.1 request.tmpl,NONE,1.1 reservereport.tmpl,NONE,1.1 shelves.tmpl,NONE,1.1 stats.tmpl,NONE,1.1 thesaurus_popup.tmpl,NONE,1.1 updatebiblio.tmpl,NONE,1.1
- Index(es):