[Koha-cvs] CVS: koha modbib.pl,1.8,1.9

[Andrew Arensburger]

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'};