Add print button

2 files changed, 154 insertions, 146 deletions

diff --git a/abrechenbarkeit.lua b/abrechenbarkeit.lua
index b296e52..fefbaa4 100755
--- a/abrechenbarkeit.lua
+++ b/abrechenbarkeit.lua
@@ -114,6 +114,8 @@ local translations = load_translations({ "en", config.language })
 local stylesheet = io.open("style.css"):read("a")
 local script = io.open("script.js"):read("a")
 
+local can_print = false
+
 local function format(template, params)
     params = params or {}
     if template == nil then return "NIL TEMPLATE" end
@@ -144,23 +146,23 @@ local function format_amount(amount, tag, classes)
 end
 
 local function format_list(list)
-	if list == nil then
-		return nil
-	end
+    if list == nil then
+        return nil
+    end
 
-	local not_first = false
-	local out = ""
-	for _, barcode in pairs(list) do
-		if not_first then
-			out = out .. ", " .. barcode
-		else 
-			out = barcode
-		end
+    local not_first = false
+    local out = ""
+    for _, barcode in pairs(list) do
+        if not_first then
+            out = out .. ", " .. barcode
+        else
+            out = barcode
+        end
 
-		not_first = true
-	end
+        not_first = true
+    end
 
-	return out
+    return out
 end
 
 local function get_user_theme(username)
@@ -225,6 +227,7 @@ local function respond(status, title, body)
                 <a href="/?spus">{+spus}</a>
                 <a href="/?products">{+products}</a>
                 <a href="/?log">{+log}</a>
+                {print_button}
                 <a href="/?about">{+about}</a>
             </nav>
     ]], {
@@ -232,7 +235,9 @@ local function respond(status, title, body)
         style = stylesheet,
         user_style = get_user_theme(path and path:sub(2)),
         script = script,
-        head_extra = config.head_extra or ""
+        head_extra = config.head_extra or "",
+        print_button = can_print and
+            [[<script>document.write('<a href="javascript:print()" style="float:right;">{+print}</a>')</script>]] or ""
     }))
     if config.header ~= nil then
         print(config.header)
@@ -373,24 +378,24 @@ local function r_transaction_post()
     local pcode = data.pcode
     local pcount = tonumber(data.pcount)
     local comment = data.comment
-	local pname = data.pname
-    
+    local pname = data.pname
+
     if pname ~= nil or (pcode ~= nil and pcode ~= "") then
-		-- check if barcode exists
-		if pname == nil then
-			local exists = false
-			for p_name, p_barcode in read_barcodes() do
-				if p_barcode == pcode then
-					exists = true
-					pname = p_name
-				end
-			end
-	        if not exists then
-	            return error_box("{+error.unknown_barcode}")
-	        end
+        -- check if barcode exists
+        if pname == nil then
+            local exists = false
+            for p_name, p_barcode in read_barcodes() do
+                if p_barcode == pcode then
+                    exists = true
+                    pname = p_name
+                end
+            end
+            if not exists then
+                return error_box("{+error.unknown_barcode}")
+            end
         end
-    
-    	-- check if product exists
+
+        -- check if product exists
         local exists = false
         for p_amount, p_user, p_name in read_products() do
             if pname == p_name then
@@ -403,11 +408,11 @@ local function r_transaction_post()
             end
         end
         if not exists then
-            return error_box("{+error.unknown_product}: "..pname)
+            return error_box("{+error.unknown_product}: " .. pname)
         end
     end
 
-	-- for outside money
+    -- for outside money
     user_src = user_src or "@Potential"
     if amount == nil then
         return error_box("{+error.invalid_amount}")
@@ -469,8 +474,8 @@ local function r_user(username)
                 { time = format_duration(os.time() - last_txn), username = urlencode(username) }))
             print([[</div>]])
         end
-        
-		print([[<ul class="userforms"><li>
+
+        print([[<ul class="userforms"><li>
         <div class="amount-presets backgroundbox">]])
         for _, type in ipairs({ 1, -1 }) do
             for _, amount in ipairs({ 50, 100, 150, 200, 500, 1000 }) do
@@ -490,45 +495,45 @@ local function r_user(username)
             end
         end
         print("</div></li>")
-        
+
         print(format([[<li><div class="backgroundbox shortcuts">
         	<h3>{+user.shortcuts}</h3>]]))
         local lastcategory = nil
-        	-- user is category; @ is removed for ZSKs
-            for price, category, name in read_products() do
-             	if lastcategory ~= category then
-             		if lastcategory ~= nil then
-             			print("</ul></div></label>")
-             		end
-					print(format([[<label>
+        -- user is category; @ is removed for ZSKs
+        for price, category, name in read_products() do
+            if lastcategory ~= category then
+                if lastcategory ~= nil then
+                    print("</ul></div></label>")
+                end
+                print(format([[<label>
 					<input type="checkbox" hidden />
 					<div>
 					<span class="button amount-ntr">{c}</span>
 					<ul>]], {
-					c = category:gsub("@", ""),
-				}))
+                    c = category:gsub("@", ""),
+                }))
 
-				lastcategory = category
-        	end
+                lastcategory = category
+            end
 
-        	print(format([[<li><form method="POST">
+            print(format([[<li><form method="POST">
         		<input type="text" name="user_dst" value="{!username}" hidden />
         		<input type="number" name="pcount" value="-1" hidden />
-				<input type="text" name="pname" value="{name}" hidden /> 
+				<input type="text" name="pname" value="{name}" hidden />
 				<input class="button amount-ntr" value="{name}
 {+price.amount}" type="submit" />
 			</form></li>]], {
-        		name = name,
-        		username = username,
-        		sign = price >= 0 and "-" or "+",
-		        amount = string.format("%.2f", math.abs(price / 100)),
-		        unit = config.unit or "€",
-        	}))
-		end
-		print("</ul></div></label>")
+                name = name,
+                username = username,
+                sign = price >= 0 and "-" or "+",
+                amount = string.format("%.2f", math.abs(price / 100)),
+                unit = config.unit or "€",
+            }))
+        end
+        print("</ul></div></label>")
 
-		print("</div></li>")
-		print(format([[
+        print("</div></li>")
+        print(format([[
             <li><form class="transaction box backgroundbox {disable_class}" action="" method="POST">
                 <h3>{+user.form.transaction}</h3>
                 <input type="text" name="user_dst" value="{!username}" hidden />
@@ -552,13 +557,13 @@ local function r_user(username)
                 <h3>{+user.form.transfer}</h3>
                 <label for="user_dst">{+field.destination}: </label>
                 <select name="user_dst">]],
-			{ username = username, disable_class = is_special and "disabled" or "" }))
-		local users = get_active_users();
-		for _, u in ipairs(users) do
-			if u.name ~= username then
-				print(format([[<option value="{!name}">{name}</option>]], { name = u.name }))
-			end
-		end
+            { username = username, disable_class = is_special and "disabled" or "" }))
+        local users = get_active_users();
+        for _, u in ipairs(users) do
+            if u.name ~= username then
+                print(format([[<option value="{!name}">{name}</option>]], { name = u.name }))
+            end
+        end
         print(format([[</select>
                 <input type="text" name="user_src" value="{!username}" hidden />
                 <label for="amount">{+field.amount}: </label>
@@ -579,8 +584,8 @@ local function r_user(username)
                 <input type="submit" value="{+user.form.restock.submit}" class="button amount-pos" />
             </form></li>]],
             {
-            	username = username,
-            	disable_class = is_special and "disabled" or "",
+                username = username,
+                disable_class = is_special and "disabled" or "",
             }))
         print("</ul>")
     end)
@@ -591,6 +596,7 @@ local function r_log(filter)
     if method == "POST" then
         notif = r_transaction_post()
     end
+    can_print = true
     return respond(200, "Abrechnungen", function()
         if notif then print(notif) end
         print([[<table class="log"]])
@@ -648,9 +654,9 @@ local function r_log(filter)
 end
 
 local function r_users(show_special, filter_negative)
-	if filter_negative ~= nil then
-		filter_negative = tonumber(filter_negative) or 0
-	end
+    if filter_negative ~= nil then
+        filter_negative = tonumber(filter_negative) or 0
+    end
 
     return respond(200, "Abrechenbarkeit", function()
         local users = get_active_users()
@@ -701,8 +707,8 @@ local function r_users(show_special, filter_negative)
             local is_spu = user.name:sub(1, 1) == "@"
             local filter_out = query.prefix ~= nil and user.name:sub(1, 1):lower() ~= query.prefix
             if is_spu == show_special and
-            	((filter_negative ~= nil and user.balance < filter_negative)
-            	or (filter_negative == nil and (not filter_out))) then
+                ((filter_negative ~= nil and user.balance < filter_negative)
+                    or (filter_negative == nil and (not filter_out))) then
                 print(format([[<li>
                     <a href="/{username_url}">
                         <span class="name">{!username}</span>
@@ -715,31 +721,31 @@ local function r_users(show_special, filter_negative)
                 }))
             end
         end
-        
+
         if filter_negative ~= nil then
-        	table.sort(users, function(a, b)
-        		return a.balance < b.balance
-        	end)
+            table.sort(users, function(a, b)
+                return a.balance < b.balance
+            end)
         end
-        
+
         local inactive_cutoff = os.time() - (tonumber(config.inactive_cutoff) or (30 * 24 * 60 * 60))
         local embezzlement = 0
-        for _, user in ipairs(users) do        
+        for _, user in ipairs(users) do
             if filter_negative or user.time > inactive_cutoff then
-            	show_user(user)
+                show_user(user)
 
-            	if user.name:sub(1,1) ~= "@" then
-					if user.balance < 0 then embezzlement = embezzlement - user.balance end
-            	end
+                if user.name:sub(1, 1) ~= "@" then
+                    if user.balance < 0 then embezzlement = embezzlement - user.balance end
+                end
             end
         end
         print("</ul>")
         if filter_negative ~= nil then
-        	print(format([[<section class="section" style="margin-top: 0">{+users.embezzlement}</section>]], {
-        		amount = format_amount(embezzlement)
-        	}))
+            print(format([[<section class="section" style="margin-top: 0">{+users.embezzlement}</section>]], {
+                amount = format_amount(embezzlement)
+            }))
 
-        	return
+            return
         end
         print(format([[
             <details {oclass}><summary>{+users.inactive_list}</summary><ul class="userlist">
@@ -763,7 +769,7 @@ local function r_products_post()
     local data = form_data()
 
     if data.deletebarcode then
-	    local barcode = data.barcode
+        local barcode = data.barcode
 
         -- remove barcode
         local new_barcodes = io.open("barcodes.new", "w+")
@@ -778,9 +784,9 @@ local function r_products_post()
         new_barcodes:flush()
         new_barcodes:close()
         os.rename("barcodes.new", "barcodes")
-		return
+        return
     end
-    
+
     local name = data.name
     if name == nil or name:match("^" .. matchers.name .. "$") == nil then
         return error_box("{+error.invalid_name}")
@@ -801,31 +807,31 @@ local function r_products_post()
         new_products:close()
         os.rename("products.new", "products")
     elseif data.addbarcode then
-    	-- add barcode
-    	local name = data.name
-    	local barcode = data.barcode
+        -- add barcode
+        local name = data.name
+        local barcode = data.barcode
         if name == nil or name:match(matchers_global.name) == nil then
             return error_box("{+error.invalid_name}")
         end
         if barcode == nil or barcode:match(matchers_global.barcode) == nil then
             return error_box("{+error.invalid_barcode}")
         end
-		local exists = false
-		for _, a_barcode in read_barcodes() do
-			if a_barcode == barcode then
-				exists = true
-			end
-		end
+        local exists = false
+        for _, a_barcode in read_barcodes() do
+            if a_barcode == barcode then
+                exists = true
+            end
+        end
 
-		if exists then
-			return error_box("{+error.invalid_barcode}")
-		end
+        if exists then
+            return error_box("{+error.invalid_barcode}")
+        end
 
-    	local barcodes = io.open("barcodes", "a+")
-    	if barcodes == nil then
-    		return error_box("{+error.open_barcodes}")
-    	end
-    	barcodes:write(string.format("%s,%s\n", name, barcode))
+        local barcodes = io.open("barcodes", "a+")
+        if barcodes == nil then
+            return error_box("{+error.open_barcodes}")
+        end
+        barcodes:write(string.format("%s,%s\n", name, barcode))
         barcodes:flush()
         barcodes:close()
     else
@@ -841,26 +847,26 @@ local function r_products_post()
         if user == nil or user:match(matchers_global.user) == nil then
             return error_box("{+error.invalid_user}")
         end
-		-- add product
+        -- add product
         local new_products = io.open("products.new", "w+")
         if new_products == nil then
             return error_box("{+error.open_new_products}")
         end
-		local wrote = nil
-		-- prepend to any block in the file containing products of the same user
-		-- the shortcuts feature expects this!
+        local wrote = nil
+        -- prepend to any block in the file containing products of the same user
+        -- the shortcuts feature expects this!
         for a_price, a_user, a_name in read_products() do
             if user == a_user and not wrote then
-            	wrote = true
-		        products:write(string.format("%d,%s,%s\n", price, user, name))
+                wrote = true
+                products:write(string.format("%d,%s,%s\n", price, user, name))
             end
 
             new_products:write(string.format("%d,%s,%s\n", a_price, a_user, a_name))
         end
 
-		-- append if not wrote already
-   		if not wrote then
-        	products:write(string.format("%d,%s,%s\n", price, user, name))
+        -- append if not wrote already
+        if not wrote then
+            products:write(string.format("%d,%s,%s\n", price, user, name))
         end
 
         new_products:flush()
@@ -874,6 +880,7 @@ local function r_products()
     if method == "POST" then
         notif = r_products_post()
     end
+    can_print = true
     respond(200, "Abrechenbare Product List", function()
         print(format("<h1>{+products.title}</h1>"))
         if notif then print(notif) end
@@ -895,15 +902,15 @@ local function r_products()
                 <label for="name">{+field.name}: </label>
                 <select type="text" name="name" id="name">
 		]], {
-			currency = config.unit or "€",
+            currency = config.unit or "€",
         }))
         for _, _, name in read_products() do
-			print(format([[<option value="{name}">{name}</option>]], {
-				name = name,
-			}))
-		end
-        
-		print(format([[</select>
+            print(format([[<option value="{name}">{name}</option>]], {
+                name = name,
+            }))
+        end
+
+        print(format([[</select>
                 <label for="barcode">{+field.barcode}: </label>
                 <input type="text" name="barcode" id="barcode" />
                 <input type="submit" value="{+products.form.add.submit}" class="amount-ntr button" />
@@ -914,14 +921,14 @@ local function r_products()
                 <label for="name">{+field.name}: </label>
                 <select type="text" name="name" id="name">
 		]], {
-			currency = config.unit or "€",
+            currency = config.unit or "€",
         }))
         for _, _, name in read_products() do
-			print(format([[<option value="{name}">{!name}</option>]], {
-				name = name,
-			}))
-		end
-		print(format([[</select>
+            print(format([[<option value="{name}">{!name}</option>]], {
+                name = name,
+            }))
+        end
+        print(format([[</select>
                 <input type="submit" value="{+products.form.remove.submit}" class="amount-ntr button" />
             </form>
             <!-- remove barcode  -->
@@ -931,24 +938,24 @@ local function r_products()
                 <label for="barcode">{+field.barcode}: </label>
                 <select type="text" name="barcode" id="barcode">
 		]], {
-			currency = config.unit or "€",
+            currency = config.unit or "€",
         }))
-        
+
         local barcodes = {}
         for name, barcode in read_barcodes() do
-			print(format([[<option value="{barcode}">{!barcode} ({!name})</option>]], {
-				name = name,
-				barcode = barcode,
-			}))
-			if barcodes[name] ~= nil then
-				table.insert(barcodes[name], barcode)
-			else
-				barcodes[name] = {}
-				table.insert(barcodes[name], barcode)				
-			end
-		end
+            print(format([[<option value="{barcode}">{!barcode} ({!name})</option>]], {
+                name = name,
+                barcode = barcode,
+            }))
+            if barcodes[name] ~= nil then
+                table.insert(barcodes[name], barcode)
+            else
+                barcodes[name] = {}
+                table.insert(barcodes[name], barcode)
+            end
+        end
 
-		print(format([[</select>
+        print(format([[</select>
                 <input type="submit" value="{+products.form.remove.submit}" class="amount-ntr button" />
             </form>
             </div>
@@ -977,8 +984,8 @@ local function r_products()
                 user = user,
                 barcodes = format_list(barcodes[name]) or "{+field.not_set}",
             }))
-		end
-        
+        end
+
         print("</table>")
     end)
 end
@@ -1063,7 +1070,7 @@ if path == "/" then
     elseif query.spus then
         return r_users(true, nil)
     elseif query.users and query.export then
-		return r_export_balances()
+        return r_export_balances()
     else
         return r_users(false, query.negative and (query.maximum or 0))
     end
diff --git a/locale/en.ini b/locale/en.ini
index f20e252..0fd1d56 100644
--- a/locale/en.ini
+++ b/locale/en.ini
@@ -79,3 +79,4 @@ error.open_barcodes=Failed to open barcodes file
 error.no_path=No path
 users.inactive_list=Inactive Users
 users.embezzlement=A total of {amount} are currently under embezzlement.
+print=Print
\ No newline at end of file