From 9c171016e2643b8f2f514c37621bb22db382ba7e Mon Sep 17 00:00:00 2001
From: aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 17 Sep 2007 18:01:50 +0000
Subject: format => 'html' causes the error  Can't locate
 LedgerSMB/Template/html.pm in @INC .

Changing admin to format => 'HTML'.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1624 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/admin.pl    | 13 +++++++------
 scripts/customer.pl |  3 ++-
 2 files changed, 9 insertions(+), 7 deletions(-)

(limited to 'scripts')

diff --git a/scripts/admin.pl b/scripts/admin.pl
index 55b87a1a..c1706aad 100644
--- a/scripts/admin.pl
+++ b/scripts/admin.pl
@@ -1,6 +1,7 @@
+#!/usr/bin/perl
 package LedgerSMB::Scripts::admin;
 
-require '../lsmb-request.pl';
+require 'lsmb-request.pl';
 
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::Admin;
@@ -20,14 +21,14 @@ sub new_user {
         
         my $template = LedgerSMB::Template->new( user => $user, 
     	template => 'admin/edit_user.html', language => $user->{language}, 
-            format => 'html');
+            format => 'HTML');
     
         $template->render($entity);
     } else {
     
         my $template = LedgerSMB::Template->new( user => $user, 
     	template => 'admin/edit_user.html', language => $user->{language}, 
-            format => 'html');
+            format => 'HTML');
     
         $template->render();
     }
@@ -44,7 +45,7 @@ sub edit_user {
     
     my $template = LedgerSMB::Template->new( user => $user, 
 	template => 'admin/edit_user.html', language => $user->{language}, 
-        format => 'html');
+        format => 'HTML');
     
     $template->render($edited_user, $all_roles);
 }
@@ -59,7 +60,7 @@ sub edit_group {
     
     my $template = LedgerSMB::Template->new( user => $user, 
 	template => 'admin/edit_group.html', language => $user->{language}, 
-        format => 'html');
+        format => 'HTML');
         
     $template->render($all_roles);    
 }
@@ -73,7 +74,7 @@ sub create_group {
     
     my $template = LedgerSMB::Template->new( user => $user, 
 	template => 'admin/edit_group.html', language => $user->{language}, 
-        format => 'html');
+        format => 'HTML');
         
     $template->render($all_roles);
 }
diff --git a/scripts/customer.pl b/scripts/customer.pl
index c89cd5c5..24fb04f6 100644
--- a/scripts/customer.pl
+++ b/scripts/customer.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 
 =pod
 
@@ -22,7 +23,7 @@ package LedgerSMB::Scripts::customer;
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::Customer;
 
-require '../lsmb-request.pl';
+require 'lsmb-request.pl';
 
 =pod
 
-- 
cgit v1.2.3