[Koha-cvs] CVS: koha modbib.pl,1.1.1.1,1.1.1.1.2.1 moremember.pl,1.11,1.11.2.1 request.pl,1.2,1.2.2.1 search.pl,1.6,1.6.2.1

[Chris Cormack]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv12476

Modified Files:
      Tag: rel-1-2
	modbib.pl moremember.pl request.pl search.pl 
Log Message:
Fixing up a whole pile of warnings


Index: modbib.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbib.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.2.1
diff -C2 -r1.1.1.1 -r1.1.1.1.2.1
*** modbib.pl	19 Dec 2000 23:45:52 -0000	1.1.1.1
--- modbib.pl	18 May 2002 10:21:51 -0000	1.1.1.1.2.1
***************
*** 27,31 ****
  #my ($analyticauthor)=analytic($biblionumber,'a');
  print startpage();
! print startmenu();
  my %inputs;
  
--- 27,31 ----
  #my ($analyticauthor)=analytic($biblionumber,'a');
  print startpage();
! print startmenu('catalogue');
  my %inputs;
  

Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.11
retrieving revision 1.11.2.1
diff -C2 -r1.11 -r1.11.2.1
*** moremember.pl	15 Apr 2002 16:17:21 -0000	1.11
--- moremember.pl	18 May 2002 10:21:51 -0000	1.11.2.1
***************
*** 229,233 ****
    <TD>$issue->[$i]{'date_due'}</td>";
    #find the charge for an item
!   my ($charge,$itemtype)=calc_charges(\%env,$issue->[$i]{'itemnumber'},$bornum);
    print "<TD>$itemtype</td>";
    print "<TD>$charge</td>";
--- 229,233 ----
    <TD>$issue->[$i]{'date_due'}</td>";
    #find the charge for an item
!   my ($charge,$itemtype)=calc_charges(undef,$issue->[$i]{'itemnumber'},$bornum);
    print "<TD>$itemtype</td>";
    print "<TD>$charge</td>";

Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** request.pl	8 Apr 2002 23:44:43 -0000	1.2
--- request.pl	18 May 2002 10:21:51 -0000	1.2.2.1
***************
*** 19,29 ****
  #setup colours
  print startpage();
! print startmenu();
  my $blah;
  my $bib=$input->param('bib');
  my $dat=bibdata($bib);
  my ($count,$reserves)=FindReserves($bib);
! #print $count;
! #print $input->dump;
  
  
--- 19,30 ----
  #setup colours
  print startpage();
! print startmenu('catalogue');
  my $blah;
  my $bib=$input->param('bib');
  my $dat=bibdata($bib);
  my ($count,$reserves)=FindReserves($bib);
! 
! print $count if $DEBUG;
! print $input->dump if $DEBUG;
  
  
***************
*** 56,69 ****
  printend
  ;
! $count++;
! my $i;
! for ($i=1;$i<$count;$i++){
!   print "<option value=$i>$i\n";
  }
! print "<option value=$i selected>$i\n";
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
  $year=$year+1900;
  $mon++;
  my $date="$mday/$mon/$year";
  print <<printend
  </select>
--- 57,75 ----
  printend
  ;
! my $value;
! for $value(1..$count){
!   print "<option value=$value>$value\n";
  }
! print "<option value=$value selected>$value\n";
! 
! # FIXME
! # we should create a today function (in C4::Koha) that returns
! # either a US or non-US date string based on a configuration switch
! #
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
  $year=$year+1900;
  $mon++;
  my $date="$mday/$mon/$year";
+ 
  print <<printend
  </select>
***************
*** 105,111 ****
  printend
  ;
! my $blah;
! my ($count2, at data)=bibitems($bib);
! for ($i=0;$i<$count2;$i++){
    my @barcodes=barcodes($data[$i]->{'biblioitemnumber'});
    if ($data[$i]->{'dewey'} == 0){
--- 111,118 ----
  printend
  ;
! 
! my @data;
! ($count2, at data)=bibitems($bib);
! for (my $i=0;$i<$count2;$i++){
    my @barcodes=barcodes($data[$i]->{'biblioitemnumber'});
    if ($data[$i]->{'dewey'} == 0){
***************
*** 156,160 ****
  $count--;
  
! for ($i=0;$i<$count;$i++){
  print "<input type=hidden name=borrower value=$reserves->[$i]{'borrowernumber'}>";
  print "<input type=hidden name=biblio value=$reserves->[$i]{'biblionumber'}>";
--- 163,167 ----
  $count--;
  
! for (my $i=0;$i<$count;$i++){
  print "<input type=hidden name=borrower value=$reserves->[$i]{'borrowernumber'}>";
  print "<input type=hidden name=biblio value=$reserves->[$i]{'biblionumber'}>";
***************
*** 214,217 ****
--- 221,225 ----
  ";
  }
+ 
  print <<printend
  

Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.pl,v
retrieving revision 1.6
retrieving revision 1.6.2.1
diff -C2 -r1.6 -r1.6.2.1
*** search.pl	8 Apr 2002 23:44:43 -0000	1.6
--- search.pl	18 May 2002 10:21:51 -0000	1.6.2.1
***************
*** 60,64 ****
  
  my $datebefore=validate($input->param('date-before'));
! $search{'date-before'};
  
  my $class=$input->param('class');
--- 60,64 ----
  
  my $datebefore=validate($input->param('date-before'));
! $search{'date-before'}=$datebefore;
  
  my $class=$input->param('class');
***************
*** 95,99 ****
  print center();
  my $count;
- my @results;
  if ($itemnumber ne '' || $isbn ne ''){
      ($count, at results)=&CatSearch(\$blah,'precise',\%search,$num,$offset);
--- 95,98 ----