work in progress

C4/Search.pm

@@ -339,7 +339,8 @@ sub ItemInfo {
     $class = $class.$dewey;
     $class = $class.$data->{'subclass'};
  #   $results[$i]="$data->{'title'}\t$data->{'barcode'}\t$datedue\t$data->{'branchname'}\t$data->{'dewey'}";
-    $results[$i]="$data->{'title'}\t$data->{'barcode'}\t$datedue\t$data->{'branchname'}\t$class"; 
+     $results[$i]="$data->{'title'}\t$data->{'barcode'}\t$datedue\t$data->{'branchname'}\t$class\t$data->{'itemnumber'}";
+
     $i++;
   }
   $sth->finish;

detail.pl

@@ -41,14 +41,17 @@ print mktablerow(5,$main,'Title','Barcode','DateDue','Location','Dewey');
 my $colour=1;
 while ($i < $count){
   my @results=split('\t',$items[$i]);
+  if ($type ne 'opac'){
+    $results[0]=mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]",$results[0]);
+  }
   if ($results[2] eq ''){
     $results[2]='Available';
   }
   if ($colour == 1){                                                                          
-    print mktablerow(5,$secondary,@results);                                        
+    print mktablerow(5,$secondary,$results[0],$results[1],$results[2],$results[3],$results[4]);                                        
     $colour=0;                                                                                
   } else{                                                                                     
-    print mktablerow(5,'white',@results);                                          
+    print mktablerow(5,'white',$results[0],$results[1],$results[2],$results[3],$results[4]);                                          
     $colour=1;                                                                                
   }
    $i++;

newmember.pl

@@ -25,6 +25,12 @@ print startmenu('member');
 my $main="#99cc33";
 my $image="/images/background-mem.gif";
 if ($insert eq ''){
+  #check that all compulsary fields are entered
+  my $string="The following compulsary fields have been left blank. Please push the back button
+  and try again<p>";
+  if ($data{'cardnumber'} eq ''){
+    $string.=" Cardnumber<br>";
+  }
   #we are printing confirmation page
   print mkheadr(1,'Confirm New Adult Member');
   print mktablehdr;