[Koha-cvs] CVS: koha/C4 Biblio.pm,1.18,1.19
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 07:56:12 CEST 2002
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv17999
Modified Files:
Biblio.pm
Log Message:
Added some FIXME comments.
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** Biblio.pm 11 Oct 2002 12:34:53 -0000 1.18
--- Biblio.pm 13 Oct 2002 05:56:10 -0000 1.19
***************
*** 2,5 ****
--- 2,8 ----
# $Id$
# $Log$
+ # Revision 1.19 2002/10/13 05:56:10 arensb
+ # Added some FIXME comments.
+ #
# Revision 1.18 2002/10/11 12:34:53 arensb
# Replaced &requireDBI with C4::Context->dbh
***************
*** 1203,1207 ****
$sth2->execute;
while (my $data = $sth2->fetchrow_hashref) {
! $error = $error."<br>$data->{'catalogueentry'}";
} # while
$sth2->finish;
--- 1206,1210 ----
$sth2->execute;
while (my $data = $sth2->fetchrow_hashref) {
! $error = $error."<br>$data->{'catalogueentry'}"; # FIXME - .=
} # while
$sth2->finish;
***************
*** 1467,1471 ****
$query="Insert into deleteditems values (";
foreach my $temp (@data){
! $query=$query."'$temp',";
}
$query=~ s/\,$/\)/;
--- 1470,1474 ----
$query="Insert into deleteditems values (";
foreach my $temp (@data){
! $query=$query."'$temp',"; # FIXME - .=
}
$query=~ s/\,$/\)/;
***************
*** 1536,1540 ****
foreach my $temp (@data){
$temp=~ s/\'/\\\'/g;
! $query=$query."'$temp',";
}
$query=~ s/\,$/\)/;
--- 1539,1543 ----
foreach my $temp (@data){
$temp=~ s/\'/\\\'/g;
! $query=$query."'$temp',"; # FIXME - .=
}
$query=~ s/\,$/\)/;
***************
*** 1617,1620 ****
--- 1620,1624 ----
# FIXME - This is in effect the same as &C4::Acquisitions::modbiblio.
# Pick one and stick with it.
+ # FIXME - Get the POD from C4::Acquisitions
sub modbiblio {
my ($biblio) = @_;
***************
*** 1626,1629 ****
--- 1630,1634 ----
# FIXME - This is in effect identical to &C4::Acquisitions::modsubtitle.
# Pick one and stick with it.
+ # FIXME - Get the POD from C4::Acquisitions
sub modsubtitle {
my ($bibnum, $subtitle) = @_;
***************
*** 1636,1639 ****
--- 1641,1645 ----
# &C4::Acquisitions::modaddauthor
# Pick one and stick with it.
+ # FIXME - Get the POD from C4::Acquisitions
sub modaddauthor {
my ($bibnum, $author) = @_;
More information about the Koha-cvs
mailing list