knjtasks 0.0.3

data/pages/user_search.rhtml

@@ -0,0 +1,136 @@
+<%
+  print _site.header(_("Search for users")) if !_get["ajaxsearch"]
+  
+  if !_get["ajaxsearch"] or (_get["ajaxsearch"] and _get["choice"] != "dosearch")
+    %>
+      <form method="get"<%if _get["ajaxsearch"]; print " onsubmit=\"return do_ajax_search();\""; end%>>
+      <%=Knj::Web.hiddens([{:name => :show, :value => :user_search}, {:name => :choice, :value => :dosearch}])%>
+      
+      <%
+        if _get["not_in_task_id"]
+          print Knj::Web.hiddens([{:name => :not_in_task_id, :value => _get["not_in_task_id"]}])
+        end
+      %>
+      
+      <%=_site.boxt(_("Enter criteria"), "350px")%>
+        <table class="form" id="formusersearch">
+          <%
+            print Knj::Web.inputs([{
+              :title => _("Name"),
+              :name => :texname,
+              :value => _get["texname"],
+              :descr => _("Enter a part of the name of the user you are looking for.")
+            }])
+          %>
+          <tr>
+            <td colspan="2" class="buttons">
+              <%if _site.has_rank?("admin")%>
+                <input type="button" value="<%=_("Add new")%>" onclick="location.href='?show=user_edit';" />
+              <%end%>
+              <input type="submit" value="<%=_("Search")%>" />
+            </td>
+          </tr>
+        </table>
+      <%=_site.boxb%>
+      
+      </form>
+      
+      <%
+        if _get["ajaxsearch"]
+          %>
+            <br />
+            
+            <div id="divresults">
+              <div class="error"><%=_("Please search...")%></div>
+            </div>
+            
+            <script type="text/javascript">
+              modal_on_opened(function(){
+                $("#texname").focus();
+              });
+            </script>
+          <%
+        end
+      %>
+      
+      <script type="text/javascript">
+        $("#texname").focus();
+        
+        function do_ajax_search(){
+          formdata = forms_inputs_read($("#formusersearch"));
+          
+          urlstr = "clean.rhtml?show=user_search&ajaxsearch=true&choice=dosearch&jscallback=<%=_get['jscallback']%>&"
+          urlstr += $.param(formdata)
+          
+          $.ajax({type: "GET", url: urlstr, complete: function(data){
+            $("#divresults").slideUp("fast", function(){
+              $("#divresults").html(data.responseText);
+              $("#divresults").slideDown("fast");
+            });
+          }});
+          
+          return false;
+        }
+      </script>
+    <%
+  end
+  
+  if _get["choice"] == "dosearch"
+    args = {"orderby" => ["name", "username"]}
+    
+    if _get["texname"].to_s.length > 0
+      args["name_search"] = _get["texname"]
+    end
+    
+    users = _ob.list(:User, args)
+    
+    %>
+      <br />
+      
+      <%=_site.boxt(_("Results"), "350px")%>
+        <table class="list">
+          <thead>
+            <tr>
+              <th><%=_("Name")%></th>
+            </tr>
+          </thead>
+          <tbody>
+            <%
+              count = 0
+              users.each do |user|
+                next if !user.has_view_access?(_site.user)
+                count += 1
+                
+                %>
+                  <tr>
+                    <td>
+                      <%
+                        if _get["jscallback"]
+                          %>
+                            <a href="javascript: <%=_get["jscallback"]%>('<%=user.id%>');"><%=user.name.html%></a>
+                          <%
+                        else
+                          print user.html
+                        end
+                      %>
+                    </td>
+                  </tr>
+                <%
+              end
+              
+              if count <= 0
+                %>
+                  <tr>
+                    <td colspan="1" class="error">
+                      <%=_("No users were found.")%>
+                    </td>
+                  </tr>
+                <%
+              end
+            %>
+          </tbody>
+        </table>
+      <%=_site.boxb%>
+    <%
+  end
+%>

data/pages/user_show.rhtml

@@ -0,0 +1,87 @@
+<%
+  user = _ob.get(:User, _get["user_id"])
+  _hb.alert(_("You do not have access to view this user.")) if !user.has_view_access?(_site.user)
+  
+  print _site.header(sprintf(_("Show user: %s."), user.name.html))
+  
+  if _site.has_rank?("admin")
+    %>
+      <%=_site.boxt(_("Actions"), 450)%>
+        <input type="button" value="<%=_("Edit")%>" onclick="location.href='?show=user_edit&amp;user_id=<%=user.id%>';" />
+      <%=_site.boxb%>
+
+      <br />
+    <%
+  end
+%>
+
+<%=_site.boxt(_("Information"), 450)%>
+  <table class="form">
+    <%
+      print Knj::Web.inputs([{
+        :title => _("Name"),
+        :type => :info,
+        :value => user.name.html,
+        :descr => _("The real name of the user.")
+      },{
+        :title => _("Email"),
+        :type => :info,
+        :value => "<a href=\"mailto:#{user[:email].html}\">#{user[:email].html}</a>",
+        :descr => _("The email of the user.")
+      }])
+    %>
+  </table>
+<%=_site.boxb%>
+
+<br />
+
+<%=_site.boxt(_("Tasks"), 800)%>
+  <table class="list">
+    <thead>
+      <tr>
+        <th><%=_"Task"%></th>
+        <th><%=_"Status"%></th>
+        <th><%=_"Date"%></th>
+        <th><%=_"Project"%></th>
+      </tr>
+    </thead>
+    <tbody>
+      <%
+        tasks = user.tasks("orderby" => [["date_added", "desc"], ["id", "desc"]])
+        
+        count = 0
+        tasks.each do |task|
+          next if !task.has_view_access?(_site.user)
+          count += 1
+          
+          %>
+            <tr>
+              <td>
+                <%=task.html%>
+              </td>
+              <td>
+                <%=task.status_str.html%>
+              </td>
+              <td class="nowrap" style="width: 100px;">
+                <%=task.date_added_str(:time => false)%>
+              </td>
+              <td>
+                <%=task.project_html%>
+              </td>
+            </tr>
+          <%
+        end
+        
+        if count <= 0
+          %>
+            <tr>
+              <td colspan="2" class="error">
+                <%=_("No tasks were found for this user.")%>
+              </td>
+            </tr>
+          <%
+        end
+      %>
+    </tbody>
+  </table>
+<%=_site.boxb%>

data/pages/workstatus.rhtml

@@ -0,0 +1,320 @@
+<%
+  _hb.alert(_("You need to be logged in to view this page.")).back if !_site.user
+  
+  cur_date = Datet.new
+  
+  if _get["choice"] == "dofilter"
+    date_from = Datet.in(_get["texdatefrom"])
+    date_to = Datet.in(_get["texdateto"])
+  else
+    date_from = Datet.new
+    date_from.day = 1
+    
+    date_to = Datet.new
+    date_to.day = date_to.days_in_month
+  end
+  
+  stats = {
+    :date_logs => {},
+    :projects => {},
+    :totals => {:earned => 0, :earned_time => 0, :earned_transport => 0, :transport_length => 0}
+  }
+  
+  sql = "
+    SELECT
+      SUM(TIME_TO_SEC(Timelog.time)) AS time,
+      SUM(TIME_TO_SEC(Timelog.time_transport)) AS time_transport,
+      Timelog.date,
+      Timelog.transport_length,
+      Project.id AS project_id
+    
+    FROM
+      Timelog,
+      Task,
+      Project
+    
+    WHERE
+      Task.id = Timelog.task_id AND
+      Project.id = Task.project_id AND
+      Timelog.date >= '#{_db.date_out(date_from, {:time => false})}' AND
+      Timelog.date <= '#{_db.date_out(date_to, {:time => false})}'
+  "
+  
+  if _get["projects"].to_s.length > 0
+    project_ids = _get["projects"].to_s.split(";")
+    sql += " AND Task.project_id IN (#{Knj::ArrayExt.join(:arr => project_ids, :sep => ",", :surr => "'", :callback => [_db, :esc])})"
+  end
+  
+  sql += "
+    GROUP BY
+      Timelog.id
+    
+    ORDER BY
+      Timelog.date,
+      Timelog.id
+  "
+  
+  _db.q(sql) do |data|
+    date = Datet.in(data[:date])
+    dj = date.day.to_i
+    dm = date.month.to_i
+    dy = date.year.to_i
+    
+    hours = data[:time].to_f / 3600
+    hours_transport = data[:time_transport].to_f / 3600
+    
+    earned_time = hours * 200
+    earned_transport = hours_transport * 200
+    earned_total = earned_time + earned_transport
+    
+    stats[:date_logs][dy] = {} if !stats[:date_logs].has_key?(dy)
+    stats[:date_logs][dy][dm] = {} if !stats[:date_logs][dy].has_key?(dm)
+    stats[:date_logs][dy][dm][dj] = {:time => 0, :time_transport => 0, :transport_length => 0, :earned_total => 0, :earned_time => 0, :earned_transport => 0} if !stats[:date_logs][dy][dm].has_key?(dj)
+    stats[:date_logs][dy][dm][dj][:time] += data[:time].to_i
+    stats[:date_logs][dy][dm][dj][:time_transport] += data[:time_transport].to_i
+    stats[:date_logs][dy][dm][dj][:transport_length] += data[:transport_length].to_i
+    stats[:date_logs][dy][dm][dj][:earned_time] += earned_time
+    stats[:date_logs][dy][dm][dj][:earned_transport] += earned_transport
+    stats[:date_logs][dy][dm][dj][:earned_total] += earned_transport
+    
+    stats[:projects][data[:project_id]] = {:time => 0, :time_transport => 0, :earned_total => 0} if !stats[:projects].has_key?(data[:project_id])
+    stats[:projects][data[:project_id]][:time] += data[:time].to_i
+    stats[:projects][data[:project_id]][:time_transport] += data[:time_transport].to_i
+    stats[:projects][data[:project_id]][:earned_total] += earned_total
+    
+    stats[:totals][:earned] += earned_total
+    stats[:totals][:earned_time] += earned_time
+    stats[:totals][:earned_transport] += earned_transport
+    stats[:totals][:transport_length] += data[:transport_length].to_i
+  end
+  
+  stats[:projects] = stats[:projects].sort do |a, b|
+    ap = _ob.get(:Project, a[0])
+    bp = _ob.get(:Project, b[0])
+    
+    ap.name <=> bp.name
+  end
+  
+  print _site.header(_("Work-status"))
+%>
+
+<form method="get" onsubmit="return do_filter();">
+<%=Knj::Web.hiddens([{:name => :show, :value => :workstatus},{:name => :choice, :value => :dofilter},{:name => :projects}])%>
+
+<%=_site.boxt(_("Enter criteria"), 350)%>
+  <table class="form">
+    <%
+      print Knj::Web.inputs([{
+        :title => _("Date from"),
+        :name => :texdatefrom,
+        :value => date_from.out(:time => false)
+      },{
+        :title => _("Date to"),
+        :name => :texdateto,
+        :value => date_to.out(:time => false)
+      },{
+        :title => _("Project"),
+        :name => :selprojects,
+        :value => nil,
+        :opts => _ob.list_optshash(:Project, {:list_args => {"orderby" => "name"}}),
+        :multiple => true,
+        :size => 15,
+        :values => _get["projects"].to_s.split(";")
+      }])
+    %>
+    <tr>
+      <td colspan="2" class="buttons">
+        <input type="submit" value="<%=_"Filter"%>" />
+      </td>
+    </tr>
+  </table>
+<%=_site.boxb%>
+
+</form>
+
+<script type="text/javascript">
+  function do_filter(){
+    $("input[name=projects]").val(select_values({sel: $("#selprojects"), selected: true, expl: ";"}));
+    return true;
+  }
+</script>
+
+<br />
+
+<%=_site.boxt(_("Results"), 700)%>
+  <table class="list">
+    <thead>
+      <tr>
+        <th><%=_"Date"%></th>
+        <th class="tdr"><%=_"Hours"%></th>
+        <th class="tdr"><%=_"Hours driving"%></th>
+        <th class="tdr"><%=_"Earned"%></th>
+        <th class="tdr"><%=_"Driving earned"%></th>
+        <th class="tdr"><%=_"Driving length"%></th>
+      </tr>
+    </thead>
+    <tbody>
+    <%
+      stats[:date_logs].each do |year, year_data|
+        if date_from.year != date_to.year
+          %>
+            <tr>
+              <td colspan="6">
+                <h2><%=year%></h2>
+              </td>
+            </tr>
+          <%
+        end
+        
+        year_data.each do |month, month_data|
+          month_date = Datet.in("#{year}-#{month}-1")
+          
+          if date_from.year != date_to.year or date_from.month != date_to.month
+            %>
+              <tr>
+                <td colspan="6">
+                  <h3><%=month%></h3>
+                </td>
+              </tr>
+            <%
+          end
+          
+          1.upto(month_date.days_in_month) do |date|
+            date_data = month_data[date.to_i]
+            
+            if date_data
+              hours = date_data[:time].to_f / 3600
+              hours_driving = date_data[:time_transport].to_f / 3600
+              earned = date_data[:earned_time]
+              earned_transport = date_data[:earned_transport]
+              transport_length = date_data[:transport_length]
+            else
+              hours = 0
+              hours_driving = 0
+              earned = 0
+              earned_transport = 0
+              transport_length = 0
+            end
+            
+            cur_date_is = (cur_date.day.to_i == date.to_i and cur_date.year.to_i == year.to_i and cur_date.month.to_i == month.to_i)
+            
+            %>
+              <tr<%if cur_date_is; print " style=\"font-weight: bold;\""; end%>>
+                <td>
+                  <%=date%>
+                </td>
+                <td class="tdr">
+                  <%=Knj::Locales.number_out(hours, 1)%>
+                </td>
+                <td class="tdr">
+                  <%=Knj::Locales.number_out(hours_driving, 1)%>
+                </td>
+                <td class="tdr">
+                  <%=Knj::Locales.number_out(earned, 0)%>
+                </td>
+                <td class="tdr">
+                  <%=Knj::Locales.number_out(earned_transport, 0)%>
+                </td>
+                <td class="tdr">
+                  <%=Knj::Locales.number_out(transport_length, 0)%>
+                </td>
+              </tr>
+            <%
+          end
+        end
+      end
+    %>
+    </tbody>
+  </table>
+<%=_site.boxb%>
+
+<br />
+
+<%=_site.boxt(_("Overview"), 450)%>
+  <table class="form">
+    <%
+      tax_40 = stats[:totals][:earned] * 0.4
+      
+      print Knj::Web.inputs([{
+        :title => _("Hours"),
+        :type => :info,
+        :align => :right,
+        :value => Knj::Locales.number_out(stats[:totals][:earned_time], 2)
+      },{
+        :title => _("Transport"),
+        :type => :info,
+        :align => :right,
+        :value => Knj::Locales.number_out(stats[:totals][:earned_transport], 2)
+      },{
+        :title => _("Total earned"),
+        :type => :info,
+        :align => :right,
+        :value => Knj::Locales.number_out(stats[:totals][:earned], 2)
+      },{
+        :title => _("Tax") + " (40%)",
+        :type => :info,
+        :align => :right,
+        :value => Knj::Locales.number_out(tax_40, 2)
+      },{
+        :title => _("Total after tax"),
+        :type => :info,
+        :align => :right,
+        :value => Knj::Locales.number_out(stats[:totals][:earned].to_f - tax_40.to_f, 2)
+      },{
+        :title => _("Total transport"),
+        :type => :info,
+        :align => :right,
+        :value => _hb.num(stats[:totals][:transport_length], 2)
+      }])
+    %>
+  </table>
+<%=_site.boxb%>
+
+<br />
+
+<%=_site.boxt(_("Projects"), 450)%>
+  <table class="list">
+    <thead>
+      <tr>
+        <th><%=_"Project"%></th>
+        <th class="tdr"><%=_"Hours"%></th>
+        <th class="tdr"><%=_"Transport"%></th>
+        <th class="tdr"><%=_"Earned"%></th>
+      </tr>
+    </thead>
+    <tbody>
+    <%
+      stats[:projects].each do |project_id, project_data|
+        if project_id.to_i > 0
+          project = _ob.get(:Project, project_id)
+        else
+          project = nil
+        end
+        
+        %>
+          <tr>
+            <td>
+              <%
+                if project
+                  print project.html
+                else
+                  print "[#{_("no project")}]"
+                end
+              %>
+            </td>
+            <td class="tdr">
+              <%=Knj::Locales.number_out(project_data[:time].to_f / 3600, 2)%>
+            </td>
+            <td class="tdr">
+              <%=Knj::Locales.number_out(project_data[:earned_transport].to_f, 2)%>
+            </td>
+            <td class="tdr">
+              <%=Knj::Locales.number_out(project_data[:earned_total], 2)%>
+            </td>
+          </tr>
+        <%
+      end
+    %>
+    </tbody>
+  </table>
+<%=_site.boxb%>