chris пре 21 година
родитељ
комит
8693f1cd25
3 измењених фајлова са 10 додато и 6 уклоњено
  1. +4
    -3
      C4/Search.pm
  2. +4
    -1
      detail.pl
  3. +2
    -2
      search.pl

+ 4
- 3
C4/Search.pm Прегледај датотеку

@@ -213,10 +213,11 @@ sub subsearch {
sub ItemInfo {
my ($env,$biblionumber)=@_;
my $dbh = &C4Connect;
my $query="Select * from items,biblio,biblioitems
my $query="Select * from items,biblio,biblioitems,branches
where (items.biblioitemnumber = biblioitems.biblioitemnumber)
and biblioitems.biblionumber=biblio.biblionumber
and biblio.biblionumber='$biblionumber'";
and biblio.biblionumber='$biblionumber' and branches.branchcode=
items.holdingbranch";
my $sth=$dbh->prepare($query);
$sth->execute;
my $i=0;
@@ -233,7 +234,7 @@ sub ItemInfo {
}
$isth->finish;

$results[$i]="$data->{'title'}\t$data->{'itemnumber'}\t$datedue\t$data->{'isbn'}";
$results[$i]="$data->{'title'}\t$data->{'itemnumber'}\t$datedue\t$data->{'branchname'}";
$i++;
}
$sth->finish;


+ 4
- 1
detail.pl Прегледај датотеку

@@ -24,10 +24,13 @@ my $count=@items;
my $i=0;
print center();
print mktablehdr;
print mktablerow(3,'white','Title','Itemnumber','DateDue');
print mktablerow(4,'#cccc99','Title','Item Number','DateDue','Location');
my $colour=1;
while ($i < $count){
my @results=split('\t',$items[$i]);
if ($results[2] eq ''){
$results[2]='Available';
}
if ($colour == 1){
print mktablerow(4,'#ffffcc',@results);
$colour=0;


+ 2
- 2
search.pl Прегледај датотеку

@@ -10,7 +10,7 @@ use C4::Output;

my $input = new CGI;
print $input->header;
print $input->dump;
#print $input->dump;
my $blah;
my %search;
#build hash of users input
@@ -26,7 +26,7 @@ my $itemnumber=$input->param('item');
$search{'item'}=$itemnumber;
my $isbn=$input->param('isbn');
$search{'isbn'}=$isbn;
my $date-before=$input->param('date-before');
my $datebefore=$input->param('date-before');
$search{'date-before'};
my @results;
my $offset=$input->param('offset');


Loading…
Откажи
Сачувај