Browse Source

more work

master
chris 22 years ago
parent
commit
b04bab9e34
  1. 3
      C4/Output.pm
  2. 6
      C4/Search.pm
  3. 17
      detail.pl
  4. 2
      search.pl

3
C4/Output.pm

@ -280,6 +280,9 @@ sub mkheadr {
}
if ($type eq '2'){
$string="<FONT SIZE=6><em>$text</em></FONT>";
}
if ($type eq '3'){
$string="<FONT SIZE=6><em>$text</em></FONT><p>";
}
return ($string);
}

6
C4/Search.pm

@ -353,14 +353,16 @@ sub ItemInfo {
my $class = $data->{'classification'};
my $dewey = $data->{'dewey'};
$dewey =~ s/0+$//;
if ($dewey < 10){$dewey='00'.$dewey;}
if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
if ($dewey eq "000.") { $dewey = "";};
$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\t$data->{'itemnumber'}";
my @temp=split('-',$data->{'datelastseen'});
my $date="$temp[2]/$temp[1]/$temp[0]";
$results[$i]="$data->{'title'}\t$data->{'barcode'}\t$datedue\t$data->{'branchname'}\t$class\t$data->{'itemnumber'}\t$data->{'itemtype'}\t$date";
$i++;
}

17
detail.pl

@ -26,8 +26,13 @@ if ($type eq 'opac'){
print startpage();
print startmenu($type);
my $blah;
my $bib=$input->param('bib');
print "<a href=request.pl?bib=$bib><img height=42 WIDTH=187 BORDER=0 src=\"/images/place-request.gif\" align=right border=0></a>";
print mkheadr(3,'Items');
my $title=$input->param('title');
@ -37,7 +42,11 @@ my $count=@items;
my $i=0;
print center();
print mktablehdr;
print mktablerow(5,$main,'Title','Barcode','DateDue','Location','Dewey');
if ($type eq 'opac'){
print mktablerow(7,$main,'Title','Itemtype','Class','Location','DateDue','Lastseen','Barcode');
} else {
print mktablerow(7,$main,'Title','Itemtype','Class','Location','DateDue','Lastseen','Barcode',"/images/background-mem.gif");
}
my $colour=1;
while ($i < $count){
my @results=split('\t',$items[$i]);
@ -48,10 +57,10 @@ while ($i < $count){
$results[2]='Available';
}
if ($colour == 1){
print mktablerow(5,$secondary,$results[0],$results[1],$results[2],$results[3],$results[4]);
print mktablerow(7,$secondary,$results[0],$results[6],$results[4],$results[3],$results[2],$results[7],$results[1]);
$colour=0;
} else{
print mktablerow(5,'white',$results[0],$results[1],$results[2],$results[3],$results[4]);
print mktablerow(7,'white',$results[0],$results[6],$results[4],$results[3],$results[2],$results[7],$results[1]);
$colour=1;
}
$i++;

2
search.pl

@ -89,7 +89,7 @@ if ($type ne 'opac'){
if ($subject ne ''){
print mktablerow(1,$main,'<b>SUBJECT</b>','/images/background-mem.gif');
} else {
print mktablerow(4,$main,'<b>TITLE</b>','<b>AUTHOR</b>','<b>COUNT</b>',bold('LOCATION'),'/images/background-mem.gif');
print mktablerow(5,$main,'<b>TITLE</b>','<b>AUTHOR</b>',bold('&copy;'),'<b>COUNT</b>',bold('LOCATION'),'/images/background-mem.gif');
}
} else {
if ($subject ne ''){

Loading…
Cancel
Save