Fixed bug where a biblioitem with a subclass but no dewey would get the

subclass erased when editing the biblioitem.

diff --git a/updatebibitem.pl b/updatebibitem.pl
index 980c3df..53dd1c9 100755 (executable)
--- a/updatebibitem.pl
+++ b/updatebibitem.pl
@@ -40,6 +40,7 @@ if ($class =~/[0-9]+/){
 #   print $classification,$dewey,$subclass;
 }else{
   $dewey='';
+  $subclass=$class;
 }
 my $illus=checkinp($input->param('Illustrations'));
 my $pages=checkinp($input->param('Pages'));