gfdnavi 1.3.0.0

data/app/views/analysis/preview.rhtml

@@ -0,0 +1,3 @@
+<div style="border:solid;padding:1em">
+  <%= @html %>
+</div>

data/app/views/analysis/save.rhtml

@@ -0,0 +1,73 @@
+<h3>Save Form</h3>
+
+<% form_tag(:action => "save") do %>
+
+  <table>
+    <!-- 
+    <tr>
+      <td><label for="save_name">name</label></td>
+      <td><%= text_field_tag("name", @name, :id => "save_name") %></td>
+    </tr>
+      -->
+    <tr>
+      <td><label for="save_path">path</label></td>
+      <td>/usr/<%= h Knowledge.remove_scheme(@user) %>/<%= text_field_tag("path", nil, :id => "save_path") %>.<%= @suffix %></td>
+    </tr>
+    <tr>
+      <td><label for="group">visible to</label></td>
+      <td>
+	 <table>
+	   <tr>
+	     <td><%= check_box_tag("groups[0]", "everyone", true) %>everyone</td>
+	   </tr>
+	   <tr>
+	     <td>
+	       groups:
+	       <%  count = 1
+                   for group in @groups
+                     readable = (2 ** (group.id - 1)) %>
+               <%=   check_box_tag("groups[#{count}]", "#{h group.name}", (readable > 0)) %><%= h group.name %>&nbsp;
+               <%    count += 1
+                   end %>
+	     </td>
+	   </tr>
+	 </table>
+       </td>
+    </tr>
+    <tr>
+      <td><label for="save_description">description</label></td>
+      <td>
+        <textarea rows='5' cols='40' name="description" id="save_description"></textarea>
+      </td>
+    </tr>
+    <tr>
+      <td><label>Attributes</label></td>
+      <td>
+        <table>
+          <thead>
+            <tr>
+              <th>name</th>
+              <th>value</th>
+            </tr>
+          </thead>
+          <tbody id="save_keywords">
+            <tr>
+              <td><%= text_field_tag("keywords[0][name]", nil, :id => "save_keywords_0_name") %></td>
+              <td><%= text_field_tag("keywords[0][value]", nil, :id => "save_keywords_0_value") %></td>
+            </tr>
+          </tbody>
+        </table>
+        <%= link_to_function("add another attribute", "addRowKeyword();") %>
+      </td>
+    </tr>
+  </table>
+  <script>
+    num_keywords = 0
+  </script>
+
+  <br/>
+  <%= hidden_field_tag("type", @type) %>
+  <%= hidden_field_tag("id", @id) %>
+  <%= submit_tag("save") %>
+
+<% end %>

data/app/views/analysis/show_diagram.rhtml

@@ -0,0 +1,42 @@
+<div class="show_diagram_notice">
+  <%= link_to "click here to move to analysis page", :action => :index %>
+</div>
+<nobr>
+  
+<span class="show_diagram_notice">
+  URL of this page :
+</span>
+
+<span class="show_diagram_url">
+  <script type="text/javascript">
+    document.write(location.href)
+  </script>
+  </nobr>
+</span>
+
+<br>
+<nobr>
+<SPAN class=show_diagram_notice>
+    HTML escape ver.
+</SPAN>
+    (good for putting in e-mail)
+<SPAN class=show_diagram_notice>
+  :
+</SPAN>
+<SPAN class="show_diagram_url">
+  <script type="text/javascript">
+      html = location.href
+      html = html.replace(/\[/g,"%5c");
+      html = html.replace(/\]/g,"%5d");
+      document.write(html)
+  </script>
+  
+</SPAN>
+</nobr>
+<br>
+
+<% @diagrams.each do |dg| %>
+<%= image_tag image_path(dg) %>
+<% end %>
+
+

data/app/views/cross/_display_map.rhtml

@@ -0,0 +1,201 @@
+<script type="text/javascript">
+
+var select_region;
+var partial_covered=[];
+var points=[];
+
+var marker;
+/*�y�[�W�̓ǂݍ��݂������������ɔ�������C�x���g�n���h�����w��(�C�x���g�������̏����֐����w��)*/
+window.onload = init;
+function init() {
+  map = new GMap2($("map"));
+  map.addControl(new GLargeMapControl());
+  map.addControl(new GScaleControl());
+  map.addControl(new GMapTypeControl());
+  startflg=false;
+  dDrag();
+<% if @start_lon==nil && @previd!=nil then 
+#   qh=QueryHistory.find(:first,:conditions=>["querypath like concat('%',?)",@previd])
+   qh=QueryHistory.find(:first,:conditions=>["queryset_id=? and querytype='space'",@results.qsetid])
+   if qh!=nil then
+    /\[S\]\((.*),(.*)\)-\((.*),(.*)\)/=~qh.description
+         @start_lon=$1.to_f
+         @start_lat=$2.to_f
+         @end_lon=$3.to_f
+         @end_lat=$4.to_f
+   end
+ end %>
+  
+<% if @start_lon!=nil then %>
+  <% if @start_lon.to_f > 180 then
+       slon=180-@start_lon.to_f
+     else 
+       slon=@start_lon.to_f
+     end
+     if @end_lon.to_f > 180 then
+       elon=180-@end_lon.to_f
+     else 
+       elon=@end_lon.to_f
+     end
+  %>
+  
+  $("start_lon").value=<%= slon %>
+  $("end_lon").value=<%= elon %>
+  $("start_lat").value=<%= @start_lat %>
+  $("end_lat").value=<%= @end_lat %>
+    
+  var rectObj;
+  <% if @dateline==1 then %>
+    rectObj = new GLatLngBounds(new GLatLng(<%=@start_lat.to_f%>,<%=elon%>), new GLatLng(<%=@end_lat.to_f%>,<%=slon%>));
+  <% else %>
+    rectObj = new GLatLngBounds(new GLatLng(<%=@start_lat.to_f%>,<%=slon%>), new GLatLng(<%=@end_lat.to_f%>,<%=elon%>));
+  <% end %>
+  var zm = map.getBoundsZoomLevel(rectObj);
+  <% if @dateline==1 then 
+    cntr=((slon+elon)/2)+180;
+    if cntr>180 then
+      cntr = 180-cntr
+    end  
+  %>
+    map.setCenter(new GLatLng(<%=(@end_lat.to_f+@start_lat.to_f)/2 %>,<%= cntr %>), zm, G_NORMAL_MAP);
+  <% else %>
+    map.setCenter(new GLatLng(<%= (@end_lat.to_f+@start_lat.to_f)/2 %>,<%= (slon+elon)/2 %>), zm, G_NORMAL_MAP);  
+  <% end %>
+  var rectBounds = new GLatLngBounds(new GLatLng(<%=@start_lat%>,<%=slon%>),new GLatLng(<%=@end_lat%>,<%=elon%>));
+  select_region = new Rectangle(rectBounds);
+  map.addOverlay(select_region);
+<% else %>
+  map.setCenter(new GLatLng(35.39,139.44),1, G_NORMAL_MAP);
+<% end %>  
+  showpoints();
+  showregions();
+
+}
+
+function modulo(x,y){
+    mod = x % y;
+    if (mod<0){ mod += y}
+    return mod;
+}
+
+function dDrag() {
+   GEvent.clearListeners(map,"mousemove");
+   map.disableDragging();
+   
+   GEvent.addListener(map, "click", function(overlay, point){
+   
+      current_point=new GLatLng(point.x,point.y);
+      
+      if(point.x<0){ point.x=360+point.x; }   
+      if(!startflg){
+        if(select_region){
+          map.removeOverlay(select_region);
+        }
+        start_point=point;
+        $("start_lon").value=point.x;
+        $("start_lat").value=point.y;
+        startflg=true;
+        var rectBounds = new GLatLngBounds(start_point,start_point);
+        select_region = new Rectangle(rectBounds);
+        map.addOverlay(select_region);
+      }else{
+        end_point=point;
+        startflg=false;
+        map.removeOverlay(select_region);
+	mwblon = map.getBounds().getSouthWest().lng(); 
+                 // mwblon = west boundary lon of the map
+        if( modulo(end_point.x-mwblon,360) > modulo(start_point.x-mwblon,360)){
+            sw_point = start_point;
+            ne_point = end_point;
+        }else{
+            sw_point = end_point;
+            ne_point = start_point;
+        }
+        ney = ne_point.y;
+	if (sw_point.y > ney){
+           ne_point.y = sw_point.y;
+           sw_point.y = ney;
+        }
+	latlngbounds =new GLatLngBounds(sw_point,ne_point);
+        select_region = new Rectangle(latlngbounds);
+        map.addOverlay(select_region);
+        $("start_lon").value=sw_point.x;
+        $("start_lat").value=sw_point.y;
+        $("end_lon").value=ne_point.x;
+        $("end_lat").value=ne_point.y;
+      }
+    });
+       
+}
+
+function create_square(slat,slon,elat,elon,col){
+	  var polygon = new GPolygon([
+	    new GLatLng(slat,slon),
+	    new GLatLng(slat,elon),
+	    new GLatLng(elat,elon),
+	    new GLatLng(elat,slon),
+	    new GLatLng(slat,slon)
+	  ], col, 1, 0.6, '#ccccff', 0.1);
+    return polygon;
+}
+
+function create_square2(sp,ep,col){
+  return create_square(sp.lat(),sp.lng(),ep.lat(),ep.lng(),col);
+}
+
+function showregions(obj){
+    var res=$("partial_covered").childNodes;
+    var j=0;
+    for(i=0;i<res.length;i++){
+      if(res[i].id!=undefined){
+        var slon = parseFloat(res[i].childNodes[1].innerHTML);
+        var slat = parseFloat(res[i].childNodes[3].innerHTML);
+        var elon = parseFloat(res[i].childNodes[5].innerHTML);
+        var elat = parseFloat(res[i].childNodes[7].innerHTML);
+	    sp=new GLatLng(slat,slon);
+	    ep=new GLatLng(elat,elon);
+	    partial_covered[j]=create_square2(sp,ep,'#0000ff');
+	    map.addOverlay(partial_covered[j]);
+	    j++;
+      }     
+    }
+}
+
+function show_regions(obj){
+  if(!obj.checked){
+    for(i=0;i<partial_covered.length;i++){
+      map.removeOverlay(partial_covered[i]);
+    }
+  }
+  else{
+    showregions();
+  }
+}
+
+function showpoints(){
+    var res=$("points").childNodes;
+    var j=0;
+    for(i=0;i<res.length;i++){
+      if(res[i].id!=undefined){
+        var lon = parseFloat(res[i].childNodes[1].innerHTML);
+        var lat = parseFloat(res[i].childNodes[3].innerHTML);
+	    pt=new GLatLng(lat,lon);
+	    points[j]=new GMarker(pt);
+	    map.addOverlay(points[j]);
+	    j++;
+      }     
+    }
+}
+
+function show_points(obj){
+  if(!obj.checked){
+    for(i=0;i<points.length;i++){
+      map.removeOverlay(points[i]);
+    }
+  }
+  else{
+    showpoints();
+  }
+}
+
+</script>

data/app/views/cross/_result.rhtml

@@ -0,0 +1,205 @@
+<script src="http://maps.google.com/maps?file=api&v=2&key=<%=GFDNAVI_GOOGLE_MAP_KEY%>" type="text/javascript" charset="utf-8"></script>
+<% @qtypecolors={"keyword"=>"#6666ff","space"=>"#66ff66","time"=>"#66ffff"}%>
+<%= javascript_include_tag :defaults %>
+<%= render(:partial=>"style")%>
+<%= javascript_include_tag "mapsearch" %>
+<%= render(:partial=>"display_map") %>
+
+<%= link_to("[Reset]",{:action=>'index'},:target=>'_top')%>
+Query Histories : 
+<div align="center">
+<table border="1" cellspacing="1" cellpadding="1">
+<tr><td rowspan="2" width="200">
+    <div style="width:100%;height:600px;overflow:auto;">
+   <div class="tit" align="center">Query Conditions</div>
+   <% form_tag(:controller=>"cross", :action=>"queryconditions_selection") do %>
+     <% if @queryconditions.size>0 then %>
+      <ul style="width:200px;">
+      <% qcid=0 %>
+      <%  @queryconditions.each{|qc| %>   
+        <li style="font-size:13px;">
+        <% if session[:qcond_selection][qcid]==1 then %>
+        <input type="checkbox" name="qcond_selection_<%= qcid %>" value="1" checked>
+        <% else %>
+        <input type="checkbox" name="qcond_selection_<%= qcid %>" value="1">        
+        <% end %>
+        <%= qc %></li>
+        <% qcid=qcid+1 %>
+      <%  }
+      end
+       %>
+      
+   </ul>
+   <center><%= submit_tag("selection") %></center>
+   <% end %>
+ <div class="tit" align="center">GfdnaviServers</div>
+ <% form_tag(:controller=>"cross", :action=>"get_servers") do %>
+     <% if $servers.size>0 then %>
+     
+ <ul style="width:200px;">
+     <% svid=0 %>
+      <%  $servers.each{|sv| %>   
+        <li style="font-size:13px;">
+        <% if session[:server_selection][svid]==1 then %>
+        <input type="checkbox" name="server_selection_<%= svid %>" value="1" checked>
+        <% else %>
+        <input type="checkbox" name="server_selection_<%= svid %>" value="1">        
+        <% end %>
+        <%= sv %>
+</li>
+        <% svid=svid+1 %>
+      <%  }
+      end
+       %>
+       
+   </ul>
+   <center><%= submit_tag("get") %></center>
+   <% end %>
+
+  <div class="tit">Free Keywords</div>
+   <% form_tag(:controller=>"cross", :action=>"cross_freeword") do %>
+   <%= text_field_tag("freeword",@freeword) %>
+   <%= submit_tag("search") %>
+   <% end %>   
+    <div class="tit">Keyword</div>
+
+<%
+   	keylist = @kw
+
+ 	if keylist.size>0 then
+       i=0
+ %>
+
+<ul> 
+    <% keylist.each{|k|%>
+        
+<li><%= link_to_remote(k,{:url=>{:action=>'get_keyvalue',:keyname=>k}}) %>(<%=@kcnt[i]%>)</li>
+  <ul id="kw_<%=k%>">
+ </ul>
+ <div id="kw_<%=k%>_close" style="display:none"><%= link_to_remote("[CLOSE]",{:url=>{:action=>'del_keyname',:keyname=>k}}) %></div>
+<% i=i+1%>
+<% }end %>
+
+<td>
+  <table><tr><td>
+    <div id="map" style="width:500px;height:350px" align="center"></div>
+    <% form_tag(:controller=>"cross", :action=>"cross_space") do %>
+    SW:(<%= text_field_tag("start_lon",@start_lon,:size=>12) %>,<%= text_field_tag("start_lat",@start_lat,:size=>12) %>)
+    - NE:(<%= text_field_tag("end_lon",@end_lon,:size=>12) %>, <%= text_field_tag("end_lat",@end_lat,:size=>12) %>)  
+    <!-- dateline:<%= text_field_tag("dateline","0",:size=>4) %>-->
+    <%= submit_tag("spatial search") %> 
+    <% end %>          
+   </td>
+   <td width="200px" valign="top">
+   <% if @start_lat!=nil then
+      area=[-70,30,70,330]
+      else
+      area=[@start_lat,@start_lon,@end_lat,@end_lon]
+      end
+   %>
+   <div class="tit2">
+   all covered
+   </div>
+<div id="all_covered" style="font-size:13px;height:80px;overflow:auto;">
+<% if @start_lat==nil then
+      area=[-70,30,70,330]
+   else
+      area=[@start_lat,@start_lon,@end_lat,@end_lon]
+   end
+   i=0
+  @results.all_covered(area[0],area[1],area[2],area[3]).each{ |res| -%>
+  <div id="group_<%=i%>">
+    (<span id="lontitude_lb"><%=res.longitude_lb%></span>,<span id="latitude_lb"><%=res.latitude_lb%></span>)-
+    (<span id="lontitude_rt"><%=res.longitude_rt%></span>,<span id="latitude_rt"><%=res.latitude_rt%></span>) 
+    [<span id="count"><%=res.cnt%></span>]
+  </div>
+  <% i=i+1 %>
+<%}-%>
+</div>   
+
+   <div class="tit2">
+   <input type="checkbox" name="partialcovered" onclick="show_regions(this);" checked>
+   partial covered</div>
+<div id="partial_covered" style="font-size:13px;height:80px;overflow:auto;">
+<% 	i=0
+	%>
+<% @lon_lb.each{ |p|%>
+  <div id="group_<%=i%>">
+    (<span id="lontitude_lb"><%=p%></span>,<span id="latitude_lb"><%=@lat_lb[i]%></span>)-
+    (<span id="lontitude_rt"><%=@lon_rt[i]%></span>,<span id="latitude_rt"><%=@lat_rt[i]%></span>) 
+    [<span id="count"><%=@cnt[i]%></span>]
+  </div>
+  <% i=i+1 %>
+<%}-%>
+</div> 
+</div>
+   <div class="tit2">
+   <input type="checkbox" name="points" onclick="show_points(this);" checked>   
+   point</div>
+<div id="points" style="font-size:13px;height:80px;overflow:auto;">
+<%	i=0
+%>
+
+<% @lon.each{ |p|%>
+ <div id="group_<%=i%>">
+  (<span id="lontitude"><%=p%></span>,<span id="latitude"><%=@lat[i]%></span>) 
+    [<span id="count"><%=@pcnt[i]%></span>]
+  </div>
+  <% i=i+1 %>
+ 
+ <% } %>
+
+
+</div>
+   </td>
+   </tr></table>
+  </td>
+</tr>
+</td></tr>
+
+<tr><td>
+<div style="width:100%;height:200px;overflow:auto;">
+<div class="tit2">** Results **</div>
+ 
+<%i=0%>
+<%# render :partial=>"show_results"%>
+<%@path.each{|p|%>
+<div id="path_<%=i%>">
+
+<%=p%>
+<br>
+<%=@nam[i]%>
+<%=@tit[i] %>
+<%=@desc[i] %>
+<!--<%= render :partial=>"show_result_tree" %>-->
+</div>
+   <%  analviz_tag = image_tag('tree/anal_viz.png', :alt=>'Anal/Vis',
+                   :title=>'Analyze/visualize variables in this folder',
+                   :border=>0,:align=>'absmiddle') %>
+<% if analviz_tag %>
+    <%#= check_box_tag("list[#{@type}][#{@path}]") %>
+    <%= check_box_tag("list[#{@path}]") %>
+<% end %>
+
+<%= link_to(analviz_tag, :controller=>"finder", :action => "add_to_list", :path => p, :type => @type) %>
+ <% details = image_tag('tree/details.png',:alt=>'details', :title=>'Show details',:border=>0,:align=>'absmiddle')%>
+<%= "<a href=\"#{data_url(:path => p, :format => "html")}\">#{details}</a>"
+ %>
+<% i=i+1 %>
+<br>
+<% }%> 
+
+<br>
+<%= image_submit_tag("tree/analyze_visualize_checked_items.png", :alt=>"Analyze/Vizualize checked items", :title=>"Analyze/Vizualize checked items", :border=>0, :align=>"absmiddle", :name => "anal_viz") %>
+   <!--<%# render :partial=>"show_results", :collection=>p %>-->
+</div>
+
+</td></tr>
+
+<tr>
+<td colspan="2">
+<div style="width:700px;height=100%;overflow:auto;">
+</td>
+  </tr>
+</table>
+</div>