merging katipo changes...

allow the getting of only issuing branches only

diff --git a/circ/selectbranchprinter.pl b/circ/selectbranchprinter.pl
index 7e917f3..23d32a5 100644 (file)
--- a/circ/selectbranchprinter.pl
+++ b/circ/selectbranchprinter.pl
@@ -46,7 +46,7 @@ my $backgroundimage="/images/background-mem.gif";
 # try to get the branch and printer settings from the http....
 my %env;
 my $query=new CGI;
-my $branches=getbranches(\%env);
+my $branches=getbranches('IS');
 my $printers=getprinters(\%env);
 my $branch=$query->param('branch');
 my $printer=$query->param('printer');