/[koha]/koha/C4/Bull.pm
ViewVC logotype

Diff of /koha/C4/Bull.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6.2.17 by tipaul, Fri Sep 23 09:36:25 2005 UTC revision 1.6.2.18 by tipaul, Fri Nov 25 17:09:03 2005 UTC
# Line 79  sub GetLateIssues { Line 79  sub GetLateIssues {
79                                                          WHERE subscription.subscriptionid = serial.subscriptionid AND                                                          WHERE subscription.subscriptionid = serial.subscriptionid AND
80                                                          ((planneddate < now() and serial.STATUS =1) OR serial.STATUS = 3) and                                                          ((planneddate < now() and serial.STATUS =1) OR serial.STATUS = 3) and
81                                                          subscription.aqbooksellerid=$supplierid and                                                          subscription.aqbooksellerid=$supplierid and
82                                                          biblio.biblionumber = subscription.biblionumber                                                          biblio.biblionumber = subscription.biblionumber order by title
83                                                          ");                                                          ");
84          } else {          } else {
85                  $sth = $dbh->prepare("SELECT name,title,planneddate,serialseq,serial.subscriptionid                  $sth = $dbh->prepare("SELECT name,title,planneddate,serialseq,serial.subscriptionid
# Line 87  sub GetLateIssues { Line 87  sub GetLateIssues {
87                                                          LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id                                                          LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id
88                                                          WHERE subscription.subscriptionid = serial.subscriptionid AND                                                          WHERE subscription.subscriptionid = serial.subscriptionid AND
89                                                          ((planneddate < now() and serial.STATUS <=3) OR serial.STATUS = 3) and                                                          ((planneddate < now() and serial.STATUS <=3) OR serial.STATUS = 3) and
90                                                          biblio.biblionumber = subscription.biblionumber                                                          biblio.biblionumber = subscription.biblionumber order by title
91                                                          ");                                                          ");
92          }          }
93          $sth->execute;          $sth->execute;
94          my @issuelist;          my @issuelist;
95          my $last_title;          my $last_title;
96            my $odd=0;
97          while (my $line = $sth->fetchrow_hashref) {          while (my $line = $sth->fetchrow_hashref) {
98                    $odd++ unless $line->{title} eq $last_title;
99                  $line->{title} = "" if $line->{title} eq $last_title;                  $line->{title} = "" if $line->{title} eq $last_title;
100                  $last_title = $line->{title} if ($line->{title});                  $last_title = $line->{title} if ($line->{title});
101                  $line->{planneddate} = format_date($line->{planneddate});                  $line->{planneddate} = format_date($line->{planneddate});
102                    $line->{'odd'} = 1 if $odd %2 ;
103                  push @issuelist,$line;                  push @issuelist,$line;
104          }          }
105          return @issuelist;          return @issuelist;
# Line 296  sub getsubscriptions { Line 299  sub getsubscriptions {
299          my $dbh = C4::Context->dbh;          my $dbh = C4::Context->dbh;
300          my $sth;          my $sth;
301          if ($biblionumber) {          if ($biblionumber) {
302                  $sth = $dbh->prepare("select subscription.subscriptionid,biblio.title,biblioitems.issn,subscription.notes,biblio.biblionumber from subscription,biblio,biblioitems where  biblio.biblionumber = biblioitems.biblionumber and biblio.biblionumber=subscription.biblionumber and biblio.biblionumber=?");                  $sth = $dbh->prepare("select subscription.subscriptionid,biblio.title,biblioitems.issn,subscription.notes,biblio.biblionumber from subscription,biblio,biblioitems where  biblio.biblionumber = biblioitems.biblionumber and biblio.biblionumber=subscription.biblionumber and biblio.biblionumber=? order by title");
303                  $sth->execute($biblionumber);                  $sth->execute($biblionumber);
304          } else {          } else {
305                  if ($ISSN and $title)                  if ($ISSN and $title)
306                  {                  {
307                          $sth = $dbh->prepare("select subscription.subscriptionid,biblio.title,biblioitems.issn,subscription.notes,biblio.biblionumber from subscription,biblio,biblioitems where  biblio.biblionumber = biblioitems.biblionumber and biblio.biblionumber=subscription.biblionumber and (biblio.title like ? or biblioitems.issn = ? )");                          $sth = $dbh->prepare("select subscription.subscriptionid,biblio.title,biblioitems.issn,subscription.notes,biblio.biblionumber from subscription,biblio,biblioitems where  biblio.biblionumber = biblioitems.biblionumber and biblio.biblionumber=subscription.biblionumber and (biblio.title like ? or biblioitems.issn = ? order by title )");
308                          $sth->execute("%$title%",$ISSN);                          $sth->execute("%$title%",$ISSN);
309                  }                  }
310                  else                  else
311                  {                  {
312                          if ($ISSN)                          if ($ISSN)
313                          {                          {
314                                  $sth = $dbh->prepare("select subscription.subscriptionid,biblio.title,biblioitems.issn,subscription.notes,biblio.biblionumber from subscription,biblio,biblioitems where  biblio.biblionumber = biblioitems.biblionumber and biblio.biblionumber=subscription.biblionumber and biblioitems.issn = ?");                                  $sth = $dbh->prepare("select subscription.subscriptionid,biblio.title,biblioitems.issn,subscription.notes,biblio.biblionumber from subscription,biblio,biblioitems where  biblio.biblionumber = biblioitems.biblionumber and biblio.biblionumber=subscription.biblionumber and biblioitems.issn = ? order by title");
315                                  $sth->execute($ISSN);                                  $sth->execute($ISSN);
316                          }                          }
317                          else                          else
318                          {                          {
319                                  $sth = $dbh->prepare("select subscription.subscriptionid,biblio.title,biblioitems.issn,subscription.notes,biblio.biblionumber from subscription,biblio,biblioitems where  biblio.biblionumber = biblioitems.biblionumber and                                  $sth = $dbh->prepare("select subscription.subscriptionid,biblio.title,biblioitems.issn,subscription.notes,biblio.biblionumber from subscription,biblio,biblioitems where  biblio.biblionumber = biblioitems.biblionumber and
320   biblio.biblionumber=subscription.biblionumber and biblio.title like ? ");   biblio.biblionumber=subscription.biblionumber and biblio.title like ?  order by title");
321                                  $sth->execute("%$title%");                                  $sth->execute("%$title%");
322                          }                          }
323                  }                  }

Legend:
Removed from v.1.6.2.17  
changed lines
  Added in v.1.6.2.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26