# to get something
push @EXPORT, qw(
+ &Get
&GetBiblio
&GetBiblioData
&GetBiblioItemData
return $marc_structure_cache->{$forlibrarian}->{$frameworkcode};
}
+# my $sth = $dbh->prepare(
+# "SELECT COUNT(*) FROM marc_tag_structure WHERE frameworkcode=?");
+# $sth->execute($frameworkcode);
+# my ($total) = $sth->fetchrow;
+# $frameworkcode = "" unless ( $total > 0 );
my $sth = $dbh->prepare(
- "SELECT COUNT(*) FROM marc_tag_structure WHERE frameworkcode=?");
- $sth->execute($frameworkcode);
- my ($total) = $sth->fetchrow;
- $frameworkcode = "" unless ( $total > 0 );
- $sth = $dbh->prepare(
"SELECT tagfield,liblibrarian,libopac,mandatory,repeatable
FROM marc_tag_structure
WHERE frameworkcode=?
=over 4
my $subfieldvalue =get_authorised_value_desc(
- $tag, $subf[$i][0],$subf[$i][1], '', $taglib, $category);
+ $tag, $subf[$i][0],$subf[$i][1], '', $taglib, $category, $opac);
Retrieve the complete description for a given authorised value.
Now takes $category and $value pair too.
my $auth_value_desc =GetAuthorisedValueDesc(
'','', 'DVD' ,'','','CCODE');
+If the optional $opac parameter is set to a true value, displays OPAC descriptions rather than normal ones when they exist.
+
+
=back
=cut
sub GetAuthorisedValueDesc {
- my ( $tag, $subfield, $value, $framework, $tagslib, $category ) = @_;
+ my ( $tag, $subfield, $value, $framework, $tagslib, $category, $opac ) = @_;
my $dbh = C4::Context->dbh;
if (!$category) {
if ( $category ne "" ) {
my $sth =
$dbh->prepare(
- "SELECT lib FROM authorised_values WHERE category = ? AND authorised_value = ?"
+ "SELECT lib, lib_opac FROM authorised_values WHERE category = ? AND authorised_value = ?"
);
$sth->execute( $category, $value );
my $data = $sth->fetchrow_hashref;
- return $data->{'lib'};
+ return ($opac && $data->{'lib_opac'}) ? $data->{'lib_opac'} : $data->{'lib'};
}
else {
return $value; # if nothing is found return the original value
=over 4
-PrepareItemrecordDisplay($itemrecord,$bibnum,$itemumber);
+PrepareItemrecordDisplay($itemrecord,$bibnum,$itemumber,$frameworkcode);
Returns a hash with all the fields for Display a given item data in a template
+The $frameworkcode returns the item for the given frameworkcode, ONLY if bibnum is not provided
+
=back
=cut
sub PrepareItemrecordDisplay {
- my ( $bibnum, $itemnum, $defaultvalues ) = @_;
+ my ( $bibnum, $itemnum, $defaultvalues, $frameworkcode ) = @_;
my $dbh = C4::Context->dbh;
- my $frameworkcode = &GetFrameworkCode( $bibnum );
+ $frameworkcode = &GetFrameworkCode( $bibnum ) if $bibnum;
my ( $itemtagfield, $itemtagsubfield ) =
&GetMarcFromKohaField( "items.itemnumber", $frameworkcode );
my $tagslib = &GetMarcStructure( 1, $frameworkcode );
+ # return nothing if we don't have found an existing framework.
+ return "" unless $tagslib;
my $itemrecord = C4::Items::GetMarcItem( $bibnum, $itemnum) if ($itemnum);
my @loop_data;
my $authorised_values_sth =
}
if ( $tagslib->{$tag}->{$subfield}->{kohafield} eq
'items.itemcallnumber'
- && $defaultvalues->{'callnumber'} )
+ && $defaultvalues && $defaultvalues->{'callnumber'} )
{
my $temp = $itemrecord->field($subfield) if ($itemrecord);
unless ($temp) {
- $value = $defaultvalues->{'callnumber'};
+ $value = $defaultvalues->{'callnumber'} if $defaultvalues;
}
}
if ( ($tagslib->{$tag}->{$subfield}->{kohafield} eq
'items.holdingbranch' ||
$tagslib->{$tag}->{$subfield}->{kohafield} eq
'items.homebranch')
- && $defaultvalues->{'branchcode'} )
+ && $defaultvalues && $defaultvalues->{'branchcode'} )
{
my $temp = $itemrecord->field($subfield) if ($itemrecord);
unless ($temp) {
- $value = $defaultvalues->{branchcode};
+ $value = $defaultvalues->{branchcode} if $defaultvalues;
}
}
if ( $tagslib->{$tag}->{$subfield}->{authorised_value} ) {