Browse Source

work in progress

master
chris 22 years ago
parent
commit
cea36f62c5
  1. 3
      C4/Search.pm
  2. 7
      detail.pl
  3. 6
      newmember.pl

3
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;

7
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++;

6
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;

Loading…
Cancel
Save