SF.net SVN: ledger-smb: [1624] trunk/scripts

[..hidden..]

Revision: 1624
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1624&view=rev
Author:   aurynn_cmd
Date:     2007-09-17 11:01:50 -0700 (Mon, 17 Sep 2007)

Log Message:
-----------
format => 'html' causes the error  Can't locate LedgerSMB/Template/html.pm in @INC .

Changing admin to format => 'HTML'.

Modified Paths:
--------------
    trunk/scripts/admin.pl
    trunk/scripts/customer.pl

Modified: trunk/scripts/admin.pl
===================================================================
--- trunk/scripts/admin.pl	2007-09-17 17:28:29 UTC (rev 1623)
+++ trunk/scripts/admin.pl	2007-09-17 18:01:50 UTC (rev 1624)
@@ -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 @@
         
         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 @@
     
     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 @@
     
     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 @@
     
     my $template = LedgerSMB::Template->new( user => $user, 
 	template => 'admin/edit_group.html', language => $user->{language}, 
-        format => 'html');
+        format => 'HTML');
         
     $template->render($all_roles);
 }

Modified: trunk/scripts/customer.pl
===================================================================
--- trunk/scripts/customer.pl	2007-09-17 17:28:29 UTC (rev 1623)
+++ trunk/scripts/customer.pl	2007-09-17 18:01:50 UTC (rev 1624)
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 
 =pod
 
@@ -22,7 +23,7 @@
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::Customer;
 
-require '../lsmb-request.pl';
+require 'lsmb-request.pl';
 
 =pod
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.