From 6a24254d490f3d023728044daba0765f20f6971e Mon Sep 17 00:00:00 2001 From: jeff Date: Tue, 15 Apr 2008 20:47:59 +0000 Subject: (finally) wrap up new tax rate engine (for now) --- httemplate/elements/file-upload.html | 80 +++++++++++++++++++++++++++++++++ httemplate/elements/header-minimal.html | 19 ++++++++ 2 files changed, 99 insertions(+) create mode 100644 httemplate/elements/file-upload.html create mode 100644 httemplate/elements/header-minimal.html (limited to 'httemplate/elements') diff --git a/httemplate/elements/file-upload.html b/httemplate/elements/file-upload.html new file mode 100644 index 000000000..2859a676f --- /dev/null +++ b/httemplate/elements/file-upload.html @@ -0,0 +1,80 @@ + + + + + +% foreach (@field) { + + <% shift @label %> + + +% } +
Debugging: 

+
+<%init>
+my %param = @_;
+
+my $debug = $param{'debug'};
+
+my $callback = $param{'callback'} || "''";
+
+my @label = ();
+if ( ref($param{'label'}) ) {
+  push @label, @{$param{'label'}};
+}else{
+  push @label, $param{'label'};
+}
+
+my @field = ();
+if ( ref($param{'field'}) ) {
+  push @field, @{$param{'field'}};
+}else{
+  push @field, $param{'field'};
+}
+
+
diff --git a/httemplate/elements/header-minimal.html b/httemplate/elements/header-minimal.html
new file mode 100644
index 000000000..f74a9cc62
--- /dev/null
+++ b/httemplate/elements/header-minimal.html
@@ -0,0 +1,19 @@
+%
+%  my($title, $menubar) = ( shift, shift ); #$menubar is unused here though
+%  my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
+%  my $head = @_ ? shift : ''; #$head is for things that go in the  section
+%  my $conf = new FS::Conf;
+%
+
+
+
+  
+    
+      <% $title %>
+    
+    
+    
+     
+    <% $head %>
+  
+  >
-- 
cgit v1.2.1