[Koha-cvs] CVS: koha modbibitem.pl,1.9,1.10

[Andrew Arensburger]

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

Modified Files:
	modbibitem.pl 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: modbibitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbibitem.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** modbibitem.pl	14 Aug 2002 18:12:51 -0000	1.9
--- modbibitem.pl	13 Oct 2002 07:33:31 -0000	1.10
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  #script to modify/delete groups
  
***************
*** 37,41 ****
  my $biblio=$input->param('biblio');
  my $submit=$input->param('submit.x');
! if ($submit eq ''){                                                                                                      
    print $input->redirect("deletebiblioitem.pl?biblioitemnumber=$bibitemnum&biblionumber=$biblio");
  }
--- 39,43 ----
  my $biblio=$input->param('biblio');
  my $submit=$input->param('submit.x');
! if ($submit eq ''){
    print $input->redirect("deletebiblioitem.pl?biblioitemnumber=$bibitemnum&biblionumber=$biblio");
  }
***************
*** 55,66 ****
  #$inputs{'Author'}="text\t$data->{'author'}\t0";
  #$inputs{'Title'}="text\t$data->{'title'}\t1";
! my $dewey = $data->{'dewey'};                                                      
! $dewey =~ s/0+$//;                                                                 
! if ($dewey eq "000.") { $dewey = "";};                                             
! if ($dewey < 10){$dewey='00'.$dewey;}                                              
! if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}                               
! if ($dewey <= 0){                                                                  
!   $dewey='';                                                                       
! } 
  $dewey=~ s/\.$//;
  $inputs{'Class'}="text\t$data->{'classification'}$dewey$data->{'subclass'}\t2";
--- 57,68 ----
  #$inputs{'Author'}="text\t$data->{'author'}\t0";
  #$inputs{'Title'}="text\t$data->{'title'}\t1";
! my $dewey = $data->{'dewey'};
! $dewey =~ s/0+$//;
! if ($dewey eq "000.") { $dewey = "";};
! if ($dewey < 10){$dewey='00'.$dewey;}
! if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
! if ($dewey <= 0){
!   $dewey='';
! }
  $dewey=~ s/\.$//;
  $inputs{'Class'}="text\t$data->{'classification'}$dewey$data->{'subclass'}\t2";
***************
*** 90,94 ****
  <BLOCKQUOTE><FONT SIZE=6>
  <em><a href=/cgi-bin/koha/detail.pl?bib=$data->{'biblionumber'}&type=intra>$data->{'title'} ($data->{'author'})</a><br>
! Modify Group - $data->{'description'}</em></FONT><br>             
  <form action=updatebibitem.pl method=post>
  <table border=0 cellspacing=0 cellpadding=5 align=left>
--- 92,96 ----
  <BLOCKQUOTE><FONT SIZE=6>
  <em><a href=/cgi-bin/koha/detail.pl?bib=$data->{'biblionumber'}&type=intra>$data->{'title'} ($data->{'author'})</a><br>
! Modify Group - $data->{'description'}</em></FONT><br>
  <form action=updatebibitem.pl method=post>
  <table border=0 cellspacing=0 cellpadding=5 align=left>
***************
*** 173,181 ****
  printend
  ;
! my (@items)=itemissues($data->{'biblioitemnumber'});                                                                        
! #print @items;                                                                                      
! my $count=@items;           
  for (my $i=0;$i<$count;$i++){
!   $items[$i]->{'datelastseen'} = slashifyDate($items[$i]->{'datelastseen'});                                                      
    print <<printend
  <tr valign=top gcolor=#ffffcc>
--- 175,183 ----
  printend
  ;
! my (@items)=itemissues($data->{'biblioitemnumber'});
! #print @items;
! my $count=@items;
  for (my $i=0;$i<$count;$i++){
!   $items[$i]->{'datelastseen'} = slashifyDate($items[$i]->{'datelastseen'});
    print <<printend
  <tr valign=top gcolor=#ffffcc>
***************
*** 204,211 ****
   items, tick the appropriate ones and a new group record will be created automatically for them.
   <br clear=all>
!  
   <p> &nbsp; </p>
!  
!  
  printend
  ;
--- 206,213 ----
   items, tick the appropriate ones and a new group record will be created automatically for them.
   <br clear=all>
! 
   <p> &nbsp; </p>
! 
! 
  printend
  ;