=back
-=head1 API
+=head1 FUNCTIONS
-=head2 ZEBRA
-
-=head3 z3950_extended_services
+=head2 z3950_extended_services
z3950_extended_services($Zconn,$serviceType,$serviceOptions,$record);
return $xmlrecord;
}
-=head2 @tagslib = &MARCgettagslib($dbh,1|0,$frameworkcode);
+=head2 MARCgettagslib
+
+@tagslib = &MARCgettagslib($dbh,1|0,$frameworkcode);
=over 4
return $res;
}
-=head2 ($tagfield,$tagsubfield) = &MARCfind_marc_from_kohafield($dbh,$kohafield);
+=head2 MARCfind_marc_from_kohafield
+
+($tagfield,$tagsubfield) = &MARCfind_marc_from_kohafield($dbh,$kohafield);
=over 4
return ($relations->{$frameworkcode}->{$kohafield}->[0],$relations->{$frameworkcode}->{$kohafield}->[1]);
}
-=head2 $MARCRecord = &MARCgetbiblio($dbh,$biblionumber);
+=head2 MARCgetbiblio
+
+$MARCRecord = &MARCgetbiblio($dbh,$biblionumber);
=over 4
return $record;
}
-=head2 $XML = &XMLgetbiblio($dbh,$biblionumber);
+=head2 XMLgetbiblio
+
+$XML = &XMLgetbiblio($dbh,$biblionumber);
=over 4
return $XML;
}
-=head2 $MARCrecord = &MARCgetitem($dbh,$biblionumber);
+=head2 MARCgetitem
+
+$MARCrecord = &MARCgetitem($dbh,$biblionumber);
=over 4
return $itemrecord;
}
-=head2 sub find_biblioitemnumber($dbh,$biblionumber);
+=head2 find_biblioitemnumber
+
+my $biblioitemnumber = find_biblioitemnumber($dbh,$biblionumber);
=over 4
return $biblioitemnumber;
}
-=head2 $frameworkcode = MARCfind_frameworkcode($dbh,$biblionumber);
+=head2 MARCfind_frameworkcode
+
+my $frameworkcode = MARCfind_frameworkcode($dbh,$biblionumber);
=over 4
return $frameworkcode;
}
-=head2 $MARCRecord = &MARCkoha2marcBiblio($dbh,$bibliohash);
+=head2 MARCkoha2marcBiblio
+
+$MARCRecord = &MARCkoha2marcBiblio($dbh,$bibliohash);
=over 4
return $record;
}
-=head2 $MARCRecord = &MARCkoha2marcItem($dbh,$biblionumber,itemnumber);
+=head2 MARCkoha2marcItem
+
+$MARCRecord = &MARCkoha2marcItem($dbh,$biblionumber,itemnumber);
MARCkoha2marcItem is a wrapper between old-DB and MARC-DB. It returns a MARC::Record builded with old-DB items :
all entries of the hash are transformed into their matching MARC field/subfield.
return $record;
}
-=head2 $MARCrecord = MARChtml2marc($dbh,$rtags,$rsubfields,$rvalues,%indicators);
+=head2 MARChtml2marc
+
+$MARCrecord = MARChtml2marc($dbh,$rtags,$rsubfields,$rvalues,%indicators);
=over 4
}
-=head2 $hash = &MARCmarc2koha($dbh,$MARCRecord);
+=head2 MARCmarc2koha
+
+$hash = &MARCmarc2koha($dbh,$MARCRecord);
=over 4
return $result;
}
-=head2 ($biblionumber,$biblioitemnumber) = NEWnewbibilio($dbh,$MARCRecord,$frameworkcode);
+=head2 NEWnewbibilio
+
+($biblionumber,$biblioitemnumber) = NEWnewbibilio($dbh,$MARCRecord,$frameworkcode);
=over 4
return ( $biblionumber, $biblioitemnumber );
}
-=head2 NEWmodbilbioframework($dbh,$biblionumber,$frameworkcode);
+=head2 NEWmodbilbioframework
+
+NEWmodbilbioframework($dbh,$biblionumber,$frameworkcode);
=over 4
return 1;
}
-=head2 NEWmodbiblio($dbh,$Zconn,$MARCrecord,$biblionumber,$frameworkcode);
+=head2 NEWmodbiblio
+
+NEWmodbiblio($dbh,$Zconn,$MARCrecord,$biblionumber,$frameworkcode);
=over 4
return 1;
}
-=head2 NEWmodbilbioframework($dbh,$biblionumber,$frameworkcode);
+=head2 NEWmodbilbioframework
+
+NEWmodbilbioframework($dbh,$biblionumber,$frameworkcode);
=over 4
&MARCdelbiblio( $dbh, $bibid, 0 );
}
-=head2 $itemnumber = NEWnewitem($dbh, $Zconn, $record, $biblionumber, $biblioitemnumber);
+=head2 NEWnewitem
+
+$itemnumber = NEWnewitem($dbh, $Zconn, $record, $biblionumber, $biblioitemnumber);
=over 4
}
-=head2 $itemnumber = NEWmoditem($dbh, $Zconn, $record, $biblionumber, $biblioitemnumber,$itemnumber);
+=head2 NEWmoditem
+
+$itemnumber = NEWmoditem($dbh, $Zconn, $record, $biblionumber, $biblioitemnumber,$itemnumber);
=over 4
}
-=head2 $itemnumber = NEWdelitem($dbh, $biblionumber, $biblioitemnumber, $itemnumber);
+=head2 NEWdelitem
+
+$itemnumber = NEWdelitem($dbh, $biblionumber, $biblioitemnumber, $itemnumber);
=over 4
}
-=head2 $biblionumber = REALnewbiblio($dbh,$biblio);
+=head2 REALnewbiblio
+
+$biblionumber = REALnewbiblio($dbh,$biblio);
=over 4
return ($bibnum);
}
-=head2 $biblionumber = REALmodbiblio($dbh,$biblio);
+=head2 REALmodbiblio
+
+$biblionumber = REALmodbiblio($dbh,$biblio);
=over 4
return ( $biblio->{'biblionumber'} );
} # sub modbiblio
-=head2 REALmodsubtitle($dbh,$bibnum,$subtitle);
+=head2 REALmodsubtitle
+
+REALmodsubtitle($dbh,$bibnum,$subtitle);
=over 4
$sth->finish;
} # sub modsubtitle
-=head2 REALmodaddauthor($dbh,$bibnum,$author);
+=head2 REALmodaddauthor
+
+REALmodaddauthor($dbh,$bibnum,$author);
=over 4
}
} # sub modaddauthor
-=head2 $errors = REALmodsubject($dbh,$bibnum, $force, @subject);
+=head2 REALmodsubject
+
+$errors = REALmodsubject($dbh,$bibnum, $force, @subject);
=over 4
return ($error);
} # sub modsubject
-=head2 REALmodbiblioitem($dbh, $biblioitem);
+=head2 REALmodbiblioitem
+
+REALmodbiblioitem($dbh, $biblioitem);
=over 4
# warn "MOD : $biblioitem->{biblioitemnumber} = ".$biblioitem->{marc};
} # sub modbibitem
-=head2 REALnewbiblioitem($dbh,$Zconn,$biblioitem);
+=head2 REALnewbiblioitem
+
+REALnewbiblioitem($dbh,$Zconn,$biblioitem);
=over 4
return ($biblioitemnumber);
}
-=head2 REALnewsubtitle($dbh,$bibnum,$subtitle);
+=head2 REALnewsubtitle
+
+REALnewsubtitle($dbh,$bibnum,$subtitle);
=over 4
$sth->finish;
}
-=head2 ($itemnumber,$errors)= REALnewitems($dbh,$Zconn,$item,$barcode);
+=head2 REALnewitems
+
+($itemnumber,$errors)= REALnewitems($dbh,$Zconn,$item,$barcode);
=over 4
$sth->finish;
}
-=head2 $number = itemcount($biblio);
+=head2 itemcount
+
+$number = itemcount($biblio);
=over 4
return ( $data->{'count(*)'} );
}
-=head2 $biblionumber = newbiblio($biblio);
+=head2 newbiblio
+
+$biblionumber = newbiblio($biblio);
=over 4
return ($bibnum);
}
-=head2 $biblionumber = &modbiblio($biblio);
+=head2 modbiblio
+
+$biblionumber = &modbiblio($biblio);
=over 4
return($biblionumber);
} # sub modbiblio
-=head2 &modsubtitle($biblionumber, $subtitle);
+=head2 &modsubtitle($biblionumber, $subtitle);
=over 4
&REALmodaddauthor( $dbh, $bibnum, @authors );
} # sub modaddauthor
-=head2 $error = &modsubject($biblionumber, $force, @subjects);
+=head2 modsubject
+
+$error = &modsubject($biblionumber, $force, @subjects);
=over 4
&REALmodbiblioitem( $dbh, $Zconn, $biblioitem );
} # sub modbibitem
-=head2 $biblioitemnumber = newbiblioitem($biblioitem)
+=head2 newbiblioitem
+
+$biblioitemnumber = newbiblioitem($biblioitem)
=over 4
&REALnewsubtitle( $dbh, $bibnum, $subtitle );
}
-=head2 $errors = newitems($dbh, $Zconn, $item, @barcodes);
+=head2 newitems
+
+$errors = newitems($dbh, $Zconn, $item, @barcodes);
=over 4
&MARCmoditem( $dbh, $MARCitem, $bibid, $item->{itemnum}, 0 );
}
-=head2 $error = checkitems($count,@barcodes);
+=head2 checkitems
+
+$error = checkitems($count,@barcodes);
=over 4
return ($error);
}
-=head2 $delitem($itemnum);
+=head2 delitem($itemnum);
=over 4
&MARCdelbiblio( $dbh, $bibid, 0 );
}
-=head2 ($count,@results) = getbiblio($biblionumber);
+=head2 getbiblio
+
+($count,@results) = getbiblio($biblionumber);
=over 4
return($data);
} # sub bibdata
-=head2 ($count,@results) = getbiblioitem($biblioitemnumber);
+=head2 getbiblioitem
+
+($count,@results) = getbiblioitem($biblioitemnumber);
=over 4
return ( $count, @results );
} # sub getbiblioitem
-=head2 ($count,@results) = getbiblioitembybiblionumber($biblionumber);
+=head2 getbiblioitembybiblionumber
+
+($count,@results) = getbiblioitembybiblionumber($biblionumber);
=over 4
return ( $count, @results );
} # sub
-=head2 ($count,@results) = getitemsbybiblioitem($biblionumber);
+=head2 getitemsbybiblioitem
+
+($count,@results) = getitemsbybiblioitem($biblionumber);
=over 4
# $Id$
# $Log$
+# Revision 1.152 2006/02/25 21:17:20 kados
+# Purely documentation change: converted all =head2 entries to use function
+# name as title rather than usage as title
+#
# Revision 1.151 2006/02/25 21:02:20 kados
#
# Further cleanup, convering new routines to 4-chars