fixing .

C4/Search.pm

@@ -495,6 +495,7 @@ sub ItemInfo {
     if ($dewey <= 0){
       $dewey='';
     }
+    $dewey=~ s/\.$//;
     $class = $class.$dewey;
     $class = $class.$data->{'subclass'};
  #   $results[$i]="$data->{'title'}\t$data->{'barcode'}\t$datedue\t$data->{'branchname'}\t$data->{'dewey'}";

modbib.pl

@@ -47,7 +47,7 @@ if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
 if ($dewey <= 0){                                                                  
   $dewey='';                                                                       
 } 
-
+$dewey=~ s/\.$//;
 $inputs{'Class'}="text\t$data->{'classification'}$dewey$data->{'subclass'}\t2";
 $inputs{'Item Type'}="text\t$data->{'itemtype'}\t3";
 $inputs{'Subject'}="textarea\t$sub\t4";

moditem.pl

@@ -36,7 +36,7 @@ if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
 if ($dewey <= 0){                                                                  
   $dewey='';                                                                       
 } 
-
+$dewey=~ s/\.$//;
 #$inputs{'Barcode'}="text\t\$item->{'barcode'}\t0";
 $inputs{'Class'}="text\t$data->{'classification'}$dewey$data->{'subclass'}\t2";
 $inputs{'Item Type'}="text\t$data->{'itemtype'}\t3";

moredetail.pl

@@ -47,6 +47,7 @@ if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
 if ($dewey <= 0){
   $dewey='';                                                                   
 }               
+$dewey=~ s/\.$//;
 print <<printend
 <br>
 <a href=/cgi-bin/koha/request.pl?bib=$bib><img src=/images/requests.gif width=120 height=42 border=0 align=right border=0></a>