[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 address@hidden;           
  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 address@hidden;
  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
  ;