[Koha-cvs] CVS: koha moditem.pl,1.3,1.4

[Andrew Arensburger]

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

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


Index: moditem.pl
===================================================================
RCS file: /cvsroot/koha/koha/moditem.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** moditem.pl  14 Aug 2002 18:12:51 -0000      1.3
--- moditem.pl  13 Oct 2002 07:33:42 -0000      1.4
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  #script to modify/delete biblios
  #written 8/11/99
***************
*** 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{'Barcode'}="text\t$item->{'barcode'}\t0";
--- 59,70 ----
  #$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{'Barcode'}="text\t$item->{'barcode'}\t0";
***************
*** 141,155 ****
  print <<printend
  >No</td></tr>
! <input type=hidden name=bibnum value="$data->{'biblionumber'}">       
  <input type=hidden name=bibitemnum value="$data->{'biblioitemnumber'}">
  <input type=hidden name=itemnumber value="$itemnum">
  <tr valign=top bgcolor=white><td></td><td>
  
! <input type=image  name=submit src=/images/save-changes.gif border=0 
width=187 
  height=42></td></tr>
  </table>
  </form></td></tr>
  </table>
!       
  printend
  ;
--- 143,157 ----
  print <<printend
  >No</td></tr>
! <input type=hidden name=bibnum value="$data->{'biblionumber'}">
  <input type=hidden name=bibitemnum value="$data->{'biblioitemnumber'}">
  <input type=hidden name=itemnumber value="$itemnum">
  <tr valign=top bgcolor=white><td></td><td>
  
! <input type=image  name=submit src=/images/save-changes.gif border=0 width=187
  height=42></td></tr>
  </table>
  </form></td></tr>
  </table>
! 
  printend
  ;