[Koha-cvs] CVS: koha modbib.pl,1.8,1.9
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 11:26:26 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv26003
Modified Files:
modbib.pl
Log Message:
Removed unused variables.
Unbogofied some code.
Index: modbib.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbib.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** modbib.pl 13 Oct 2002 07:33:21 -0000 1.8
--- modbib.pl 13 Oct 2002 09:26:24 -0000 1.9
***************
*** 40,44 ****
my $sub = $subject->[0]->{'subject'};
my $additional = $addauthor->[0]->{'author'};
- my %inputs;
my $dewey;
my $submit=$input->param('submit.x');
--- 40,43 ----
***************
*** 52,67 ****
print startpage();
print startmenu('catalogue');
- my %inputs;
# have to get all subtitles, subjects and additional authors
! for (my $i = 1; $i < $subjectcount; $i++) {
! $sub = $sub . "|" . $subject->[$i]->{'subject'}; # FIXME - .=
! } # for
!
! for (my $i = 1; $i < $addauthorcount; $i++) {
! $additional = $additional . "|" . $addauthor->[$i]->{'author'};
! # FIXME - .=
! } # for
$dewey = $data->{'dewey'};
--- 51,59 ----
print startpage();
print startmenu('catalogue');
# have to get all subtitles, subjects and additional authors
! $sub = join("|", map { $_->{'subject'} } @{$subject});
+ $additional = join("|", map { $_->{'author'} } @{$addauthor});
$dewey = $data->{'dewey'};
More information about the Koha-cvs
mailing list