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

Joshua Ferraro jmf at kados.org
Sun May 21 04:19:00 CEST 2006


CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Joshua Ferraro <kados at savannah.gnu.org>	06/05/21 02:19:00

Modified files:
	opac           : opac-main.pl 

Log message:
	syncing dev-week and head

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/opac/opac-main.pl.diff?tr1=1.20&tr2=1.21&r1=text&r2=text

Patches:
Index: koha/opac/opac-main.pl
diff -u koha/opac/opac-main.pl:1.20 koha/opac/opac-main.pl:1.21
--- koha/opac/opac-main.pl:1.20	Fri Jan  6 16:39:42 2006
+++ koha/opac/opac-main.pl	Sun May 21 02:19:00 2006
@@ -17,20 +17,30 @@
 my $query="Select itemtype,description from itemtypes order by description";
 my $sth=$dbh->prepare($query);
 $sth->execute;
-my  @itemtype;
+my  @itemtypeloop;
 my %itemtypes;
 while (my ($value,$lib) = $sth->fetchrow_array) {
-	push @itemtype, $value;
-	$itemtypes{$value}=$lib;
+	my %row =(	value => $value,
+				description => $lib,
+			);
+	push @itemtypeloop, \%row;
 }
-
-my $CGIitemtype=CGI::scrolling_list( -name     => 'value',
-			-values   => \@itemtype,
-			-labels   => \%itemtypes,
-			-size     => 1,
-			-multiple => 0 );
 $sth->finish;
 
+my @branches;
+my @select_branch;
+my %select_branches;
+my $branches = getallbranches();
+my @branchloop;
+foreach my $thisbranch (keys %$branches) {
+        my $selected = 1 if (C4::Context->userenv && ($thisbranch eq C4::Context->userenv->{branch}));
+        my %row =(value => $thisbranch,
+                                selected => $selected,
+                                branchname => $branches->{$thisbranch}->{'branchname'},
+                        );
+        push @branchloop, \%row;
+}
+
 my ($template, $borrowernumber, $cookie)
     = get_template_and_user({template_name => "opac-main.tmpl",
 			     type => "opac",
@@ -61,6 +71,16 @@
 				virtualshelves => C4::Context->preference("virtualshelves"),
 				textmessaging => $borrower->{textmessaging},
 				opaclargeimage => C4::Context->preference("opaclargeimage"),
-                                kohaversion => $kohaVersion
+				LibraryName => C4::Context->preference("LibraryName"),
+				OpacNav => C4::Context->preference("OpacNav"),
+				opaccredits => C4::Context->preference("opaccredits"),
+				opacreadinghistory => C4::Context->preference("opacreadinghistory"),
+				opacsmallimage => C4::Context->preference("opacsmallimage"),
+				opaclayoutstylesheet => C4::Context->preference("opaclayoutstylesheet"),
+				opaccolorstylesheet => C4::Context->preference("opaccolorstylesheet"),
+				opaclanguagesdisplay => C4::Context->preference("opaclanguagesdisplay"),
 );
+
+$template->param('Disable_Dictionary'=>C4::Context->preference("Disable_Dictionary")) if (C4::Context->preference("Disable_Dictionary"));
+
 output_html_with_http_headers $input, $cookie, $template->output;





More information about the Koha-cvs mailing list