$biblioitem->{subclass}, $biblioitem->{illus}, $biblioitem->{pages}, $biblioitem->{volumeddesc},
$biblioitem->{bnotes}, $biblioitem->{size}, $biblioitem->{place}, $biblioitem->{marc},
$biblioitem->{marcxml}, $biblioitem->{biblioitemnumber});
+
my $record = MARC::File::USMARC::decode($biblioitem->{marc});
- #my $Zconn = C4::Context->Zconn or die "unable to set Zconn";
z3950_extended_services($Zconn,'update',set_service_options('update'),$record);
- #z3950_extended_services($Zconn,'commit',set_service_options('commit'));
# warn "MOD : $biblioitem->{biblioitemnumber} = ".$biblioitem->{marc};
$biblioitem->{marcxml},
);
$dbh->do("unlock tables");
- #my $Zconn = C4::Context->Zconn or die "unable to set Zconn";
z3950_extended_services($Zconn,'update',set_service_options('update'),$record);
- #z3950_extended_services($Zconn,'commit',set_service_options('commit'));
- #zebra_create($biblioitem->{biblionumber}, $record);
return ($biblioitemnumber);
}
=cut
sub REALnewitems {
- my ( $dbh, $Zconn,$item, $barcode ) = @_;
+ my ( $dbh, $Zconn, $item, $barcode ) = @_;
# warn "OLDNEWITEMS";
if ( defined $sth->errstr ) {
$error .= $sth->errstr;
}
- #my $Zconn = C4::Context->Zconn or die "unable to set Zconn";
- z3950_extended_services($Zconn,'update',set_service_options('update'),$record);
- # z3950_extended_services($Zconn,'commit',set_service_options('commit'));
- #zebra_create($item->{biblionumber},$record);
+ z3950_extended_services($Zconn,'update',set_service_options('update'),$record);
$dbh->do('unlock tables');
return ( $itemnumber, $error );
}
# save the record into biblioitem
$sth=$dbh->prepare("update biblioitems set marc=?,marcxml=? where biblionumber=? and biblioitemnumber=?");
$sth->execute($record->as_usmarc(),$record->as_xml(),$item->{biblionumber},$item->{biblioitemnumber});
- #my $Zconn = C4::Context->Zconn or die "unable to set Zconn";
- z3950_extended_services($Zconn,'update',set_service_options('update'),$record);
- # z3950_extended_services($Zconn,'commit',set_service_options('commit'));
- #zebra_create($item->biblionumber,$record);
+ z3950_extended_services($Zconn,'update',set_service_options('update'),$record);
if ( defined $sth->errstr ) {
$error .= $sth->errstr;
}
$dbh->do('unlock tables');
- # $dbh->disconnect;
}
=head2 REALdelitem($dbh,$itemnum);
return ( $count, @results );
} # sub getbiblio
-=item bibdata
+=head2 bibdata
$data = &bibdata($biblionumber, $type);
return ( $count, @results );
} # sub getitemsbybiblioitem
-=item ItemInfo
+=head2 ItemInfo
@results = &ItemInfo($env, $biblionumber, $type);
return(@results);
}
-=item bibitems
+=head2 bibitems
($count, @results) = &bibitems($biblionumber);
} # sub bibitems
-=item bibitemdata
+=head2 bibitemdata
$itemdata = &bibitemdata($biblioitemnumber);
} # sub bibitemdata
-=item getbibliofromitemnumber
+=head2 getbibliofromitemnumber
$item = &getbibliofromitemnumber($env, $dbh, $itemnumber);
return($data);
}
-=item barcodes
+=head2 barcodes
@barcodes = &barcodes($biblioitemnumber);
}
-=item itemdata
+=head2 itemdata
$item = &itemdata($barcode);
}
-=item itemissues
+=head2 itemissues
@issues = &itemissues($biblioitemnumber, $biblio);
return(@results);
}
-=item getsubject
+=head2 getsubject
($count, $subjects) = &getsubject($biblionumber);
return($i,\@results);
}
-=item getaddauthor
+=head2 getaddauthor
($count, $authors) = &getaddauthor($biblionumber);
}
-=item getsubtitle
+=head2 getsubtitle
($count, $subtitles) = &getsubtitle($biblionumber);
}
-=item getwebsites
+=head2 getwebsites
($count, @websites) = &getwebsites($biblionumber);
return($count, @results);
} # sub getwebsites
-=item getwebbiblioitems
+=head2 getwebbiblioitems
($count, @results) = &getwebbiblioitems($biblionumber);
# $Id$
# $Log$
+# Revision 1.153 2006/02/25 22:39:10 kados
+# Another purely documentation commit. Just changing formatting to ease
+# readability.
+#
# 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