diff --git a/C4/Search.pm b/C4/Search.pm index f4f430c..3b55d13 100755 --- a/C4/Search.pm +++ b/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; diff --git a/detail.pl b/detail.pl index 3e52655..32ae428 100755 --- a/detail.pl +++ b/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++; diff --git a/newmember.pl b/newmember.pl index 662584d..08220a5 100755 --- a/newmember.pl +++ b/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

"; + if ($data{'cardnumber'} eq ''){ + $string.=" Cardnumber
"; + } #we are printing confirmation page print mkheadr(1,'Confirm New Adult Member'); print mktablehdr;