From 456e2a65b3380abc82f79fa04f75d8c0615da140 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 8 Jun 2009 10:02:44 +1200 Subject: [PATCH] bug 3302: removed disused references to opac_electronic Removed routines in C4/NewsChannels.pm that refer to a missing opac_electronic table. Signed-off-by: Chris Cormack Signed-off-by: Galen Charlton --- C4/NewsChannels.pm | 70 ---------------------------------- t/lib/KohaTest/NewsChannels.pm | 5 --- 2 files changed, 75 deletions(-) diff --git a/C4/NewsChannels.pm b/C4/NewsChannels.pm index 59ab124fe5..81c685ec3e 100644 --- a/C4/NewsChannels.pm +++ b/C4/NewsChannels.pm @@ -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__ diff --git a/t/lib/KohaTest/NewsChannels.pm b/t/lib/KohaTest/NewsChannels.pm index 917dfc9847..93065b9aea 100644 --- a/t/lib/KohaTest/NewsChannels.pm +++ b/t/lib/KohaTest/NewsChannels.pm @@ -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 ); -- 2.39.5