[Koha-cvs] CVS: koha/admin letter.pl,1.3,1.4

[Paul POULAIN]

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;