Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

work in progress

Browse source
This commit is contained in:
chris 1999-12-29 23:09:15 +00:00
parent ae787022f5
commit cea36f62c5
3 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
C4/Search.pm
View file

@ -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
View file

@ -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
View file

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