[Koha-cvs] koha/opac opac-main.pl

[Robert Lyon]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Robert Lyon <bob_lyon>  06/06/07 04:56:55

Modified files:
        opac           : opac-main.pl 

Log message:
        merging katipo changes...
        
        Added the ability to display all branches opening/closing times on the 
opac
        homepage

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-main.pl?cvsroot=koha&r1=1.21&r2=1.22

Patches:
Index: opac-main.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-main.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- opac-main.pl        21 May 2006 02:19:00 -0000      1.21
+++ opac-main.pl        7 Jun 2006 04:56:55 -0000       1.22
@@ -66,6 +66,32 @@
 if($languages_count > 1){
                $template->param(languages => address@hidden);
 }
+
+my $branchinfo = getbranchinfo();
+my @loop_data =();
+foreach my $branch (@$branchinfo) {
+        my %row =();
+        $row{'branch_name'} = $branch->{'branchname'};
+        $row{'branch_hours'} = $branch->{'branchhours'};
+        $row{'branch_hours'} =~ s^\n^<br />^g;
+        push (@loop_data, \%row);
+    }
+
+sub getbranchinfo {
+        my $dbh = C4::Context->dbh;
+        my $sth;
+        $sth = $dbh->prepare("Select * from branches order by branchcode");
+        $sth->execute();
+    
+        my @results;
+        while(my $data = $sth->fetchrow_hashref) {
+                   push(@results, $data);
+               }
+        $sth->finish;
+        return address@hidden;
+}
+
+
 $template->param(CGIitemtype => $CGIitemtype,
                                suggestion => 
C4::Context->preference("suggestion"),
                                virtualshelves => 
C4::Context->preference("virtualshelves"),
@@ -79,6 +105,7 @@
                                opaclayoutstylesheet => 
C4::Context->preference("opaclayoutstylesheet"),
                                opaccolorstylesheet => 
C4::Context->preference("opaccolorstylesheet"),
                                opaclanguagesdisplay => 
C4::Context->preference("opaclanguagesdisplay"),
+                                branches => address@hidden,
 );
 
 
$template->param('Disable_Dictionary'=>C4::Context->preference("Disable_Dictionary"))
 if (C4::Context->preference("Disable_Dictionary"));