# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
use C4::Output;
our ($VERSION,@ISA,@EXPORT);
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
&GetPrinters &GetPrinter
&GetItemTypes &getitemtypeinfo
&GetCcodes
- &GetAuthItemlost
- &GetAuthItembinding
&get_itemtypeinfos_of
&getframeworks &getframeworkinfo
&getauthtypes &getauthtype
return ( $count, @results );
}
-=head2
-
-grab itemlost authorized values
-
-=cut
-
-sub GetAuthItemlost {
- my $itemlost = shift;
- my $count = 0;
- my @results;
- my $dbh = C4::Context->dbh;
- my $sth =
- $dbh->prepare(
- "SELECT * FROM authorised_values ORDER BY authorised_value");
- $sth->execute;
- while ( my $data = $sth->fetchrow_hashref ) {
- if ( $data->{category} eq "ITEMLOST" ) {
- $count++;
- if ( $itemlost eq $data->{'authorised_value'} ) {
- $data->{'selected'} = 1;
- }
- $results[$count] = $data;
-
- #warn "data: $data";
- }
- }
- $sth->finish;
- return ( $count, @results );
-}
-
=head2 getauthtypes
$authtypes = &getauthtypes();
},
{
link_value => 'branch',
- label_value => 'Branches',
+ label_value => 'Libraries',
tags => [ '995', ],
subfield => 'b',
expanded => '1',
},
{
link_value => 'branch',
- label_value => 'Branches',
+ label_value => 'Libraries',
tags => [ '952', ],
subfield => 'b',
expanded => '1',
=cut
+# FIXME - why not use GetAuthorisedValues ??
+#
sub get_notforloan_label_of {
my $dbh = C4::Context->dbh;
=cut
sub GetAuthorisedValues {
- my $category = shift;
+ my ($category,$selected) = @_;
+ my $count = 0;
+ my @results;
my $dbh = C4::Context->dbh;
my $query = "SELECT * FROM authorised_values";
$query .= " WHERE category = '" . $category . "'" if $category;
my $sth = $dbh->prepare($query);
$sth->execute;
- my $data = $sth->fetchall_arrayref({});
- return $data;
+ while (my $data=$sth->fetchrow_hashref) {
+ if ($selected eq $data->{'authorised_value'} ) {
+ $data->{'selected'} = 1;
+ }
+ $results[$count] = $data;
+ $count++;
+ }
+ #my $data = $sth->fetchall_arrayref({});
+ return \@results; #$data;
}
=item fixEncoding