Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

bug 3302: removed disused references to opac_electronic

Browse source 
Removed routines in C4/NewsChannels.pm that refer to
a missing opac_electronic table.

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Galen Charlton 2009-06-08 10:02:44 +12:00
parent 7bd4980db7
commit 456e2a65b3
2 changed files with 0 additions and 75 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

70
C4/NewsChannels.pm
View file

@ -34,7 +34,6 @@ BEGIN {
&news_channels_categories &get_new_channel_category &del_channels_categories
&add_channel_category &update_channel_category &news_channels_by_category
&add_opac_new &upd_opac_new &del_opac_new &get_opac_new &get_opac_news
&add_opac_electronic &upd_opac_electronic &del_opac_electronic &get_opac_electronic &get_opac_electronics
);
}
@ -347,75 +346,6 @@ sub GetNewsToDisplay {
return \@results;
}
### get electronic databases
sub add_opac_electronic {
my ($title, $edata, $lang,$image,$href,$section) = @_;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("INSERT INTO opac_electronic (title, edata, lang,image,href,section) VALUES (?,?,?,?,?,?)");
$sth->execute($title, $edata, $lang,$image,$href,$section);
$sth->finish;
return 1;
}
sub upd_opac_electronic {
my ($idelectronic, $title, $edata, $lang, $image, $href,$section) = @_;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("UPDATE opac_electronic SET title = ?, edata = ?, lang = ? , image=?, href=? ,section=? WHERE idelectronic = ?");
$sth->execute($title, $edata, $lang, $image,$href ,$section, $idelectronic);
$sth->finish;
return 1;
}
sub del_opac_electronic {
my ($ids) = @_;
if ($ids) {
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("DELETE FROM opac_electronic WHERE idelectronic IN ($ids)");
$sth->execute();
$sth->finish;
return 1;
} else {
return 0;
}
}
sub get_opac_electronic {
my ($idelectronic) = @_;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("SELECT * FROM opac_electronic WHERE idelectronic = ?");
$sth->execute($idelectronic);
my $data = $sth->fetchrow_hashref;
$data->{$data->{'lang'}} = 1;
$data->{$data->{'section'}} = 1;
$sth->finish;
return $data;
}
sub get_opac_electronics {
my ($section, $lang) = @_;
my $dbh = C4::Context->dbh;
my $query = "SELECT *, DATE_FORMAT(timestamp, '%d/%m/%Y') AS newdate FROM opac_electronic";
if ($lang) {
$query.= " WHERE lang = '" .$lang ."' ";
}
if ($section) {
$query.= " and section= '" . $section."' ";
}
$query.= " ORDER BY title ";
my $sth = $dbh->prepare($query);
$sth->execute();
my @opac_electronic;
my $count = 0;
while (my $row = $sth->fetchrow_hashref) {
push @opac_electronic, $row;
$count++;
}
return ($count,\@opac_electronic);
}
1;
__END__

5
t/lib/KohaTest/NewsChannels.pm
View file

@ -29,11 +29,6 @@ sub methods : Test( 1 ) {
get_opac_new
get_opac_news
GetNewsToDisplay
add_opac_electronic
upd_opac_electronic
del_opac_electronic
get_opac_electronic
get_opac_electronics
);
can_ok( $self->testing_class, @methods );