X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=patroncards%2Fmanage.pl;h=d052f677dfa12c56533a5699e7a2d9e04e045bef;hb=d350f6235c15cea78d3aee7be2e87a06c4bb95b9;hp=7e07139acdbac1f44509f90cb8eb575e9ddd51ae;hpb=cf174a2749f2fda30f33f9029afbb14386cd711d;p=koha_fer diff --git a/patroncards/manage.pl b/patroncards/manage.pl index 7e07139acd..d052f677df 100755 --- a/patroncards/manage.pl +++ b/patroncards/manage.pl @@ -14,9 +14,9 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; use warnings; @@ -28,9 +28,9 @@ use autouse 'Data::Dumper' => qw(Dumper); use C4::Auth qw(get_template_and_user); use C4::Output qw(output_html_with_http_headers); use autouse 'C4::Branch' => qw(get_branch_code_from_name); -use C4::Creators 1.000000; -use C4::Patroncards 1.000000; -use C4::Labels 1.000000; +use C4::Creators; +use C4::Patroncards; +use C4::Labels; my $cgi = new CGI; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( @@ -73,7 +73,7 @@ my $display_columns = { layout => [ # db column => {col label }; my $errstr = ($cgi->param('error') ? $cgi->param('error') : ''); -my $branch_code = ($card_element eq 'batch' ? get_branch_code_from_name($template->param('LoginBranchname')) : ''); +my $branch_code = ($card_element eq 'batch' ? C4::Context->userenv->{'branch'} : ''); if ($op eq 'delete') { my $err = 0;