gfdnavi 1.3.0.0

data/app/views/finder/_children_details_tr.html.erb

@@ -0,0 +1,196 @@
+<%
+require "multibytes"
+child = children_details_tr
+knowledge = Knowledge.find(:first, :conditions => ["node_id=?", child.id], :user => @user)
+if child.node_type!=3 || !knowledge.comment_on
+  path = child.path
+  (title = child.title ) && title = (title=="NULL" ? nil : truncate(h(title),28))
+  (desc = child.description ) && desc = (desc=="NULL" ? nil : truncate(h(desc),80))
+
+  link = false
+  dl = false
+
+  if child.directory?
+    image = @image_folder
+    if child.has_variable_nodes?(:user=>@user)
+      link = image_tag('tree/anal_viz.png', :alt=>'Anal/Vis',
+      :title=>'Analyze/visualize variables in this folder',
+      :border=>0,:align=>'absmiddle')
+    end
+    if child.entity.downloadable?
+      if child.opendap?
+        dl = path + '.html'  # ad hoc solution : applicable only to opendap
+      elsif @url_prefix
+        dl = data_dl_url(path.sub(/^\//,""))
+      end
+    end
+  elsif child.knowledge?
+    # knowledge icon
+    image = @image_knowledge
+    # [show] knowledge
+    show_knowledge = image_tag('tree/show.png', :alt=>'Show',
+    :title=>'Show knowledges',
+    :border=>0,:align=>'absmiddle')
+  elsif child.variable?
+    image = @image_data
+    link = image_tag('tree/anal_viz.png', :alt=>'Anal/Vis',
+    :title=>'Analyze/visualize this variable',
+    :border=>0, :align=>'absmiddle')
+  elsif child.image?
+    image = @image_image
+    show_image = image_tag('tree/show.png', :alt=>'Show',
+    :title=>'Show images',
+    :border=>0,:align=>'absmiddle')
+  else
+    raise "bug"
+  end
+
+  if @mapsearch
+    details = "<a href=\"#{data_url(:path => path, :format => "html")}\">Details</a>"
+  else
+    if child.class.respond_to?(:site)
+      url = data_url(:path => path.sub(/^\//,""), :format => "html", :site => child.class.site.to_s)
+    else
+      url = data_url(:path => path.sub(/^\//,""), :format => "html")
+    end
+    details = link_to_remote(
+    image_tag('tree/details.png',:alt=>'details',
+    :title=>'Show details',:border=>0,:align=>'absmiddle'),
+    {:update => :details, :url => url, :method => :get},
+    :href => url)
+  end
+%>
+
+<tr>
+  <td>
+<% if link || show_image %>
+    <%= check_box_tag("list[#{path}]") %>
+<% end %>
+  </td>
+  
+  
+  <td nowrap>
+<% if link %>
+    <%= link_to(link, :action => "add_to_list", :path => path, :type => @type) %>
+<% elsif show_knowledge %>
+    <%= link_to_remote(show_knowledge, :update => :details, :url => {:controller => "knowledge", :action => "show_without_layout", :path => path}) %>
+<%
+   elsif show_image
+     url = url_for(:action => :show_images, :path => path)
+%>
+    <%= link_to_remote(show_image, {:update=>:details, :url=>url, :method=>:get}, :href => url) %>
+<% end %>
+  </td>
+
+<% unless @mapsearch %>
+  <td nowrap>
+<% if dl %>
+    <a href="<%= dl %>">
+    <!-- DL -->
+    <%= image_tag('tree/DL.png', :alt=>'DL', :title=>'Download', 
+                  :border=>0, :align=>'absmiddle')
+    %>
+    </a>
+<% end %>
+  </td>
+<% end %>
+        
+<% if @mapsearch %>
+  <td nowrap>
+    <%= @no %><%= child.id %>
+  </td>
+<% end %>
+
+    
+  <td nowrap>
+    <%= details %>
+  </td>
+
+<!-- "knowledge" button  -  search Knowledge from Variable and Image -->
+  <td nowrap>
+  <%  case child.node_type
+      when 1 # Variable
+        var_node = Node.find(:first, :conditions => ["path=?", path], :user => @user)
+        node_relations = NodeRelation.find(:all, :conditions => ["name=? AND reference=?", "based_on", var_node.id])
+        node_ids = node_relations.collect! {|x| x.referenced_by }
+      when 2 # Image
+        img = Image.find(child.id)
+        knowledge_figures = KnowledgeFigure.find(:all, {:conditions => ["image_id = ?", img.id]})
+        knowledge_ids = knowledge_figures.collect! {|kf| kf.knowledge_id}
+        node_ids = knowledge_ids.collect! {|kid| Knowledge.find(:first, :conditions => ["knowledges.id=?", kid], :user => @user).node_id}
+      end
+
+      if (node_ids && node_ids.length > 0)
+        node_ids.uniq!
+   %>
+  <%=  
+          link_to_remote(image_tag('tree/knowledges.png',
+            :alt=>'knowledges',:title=>'knowledge list',:border=>0,:align=>'absmiddle'),:update => :details,
+            :url => {:controller => "knowledge", :action => "list_without_layout", :node_ids => node_ids} )
+   %>
+  <%  end %>
+  </td>
+
+<% unless @mapsearch %>
+  <td nowrap>
+    <%= image %>
+  </td>
+<% end %>
+
+  <td nowrap bgcolor="#f0f0f0">
+    <% if child.knowledge? %>
+      <%= h(child.path.split('/')[-1]) %>
+    <% else %>
+      <%= h(child.name) %>
+    <% end %>
+  </td>
+  
+  <td nowrap>
+    <% if child.knowledge? %>
+      <% knowledge = Knowledge.find(child, :user => @user) %>
+      <%= h(knowledge.title.jleft_w_dots(28)) %>
+    <% else %>
+      <% if title %>
+        <%= title %>
+      <% end %>
+    <% end %>
+  </td>
+  
+  <td nowrap bgcolor="#f0f0f0" align=right>
+    <%= h(Node.size2str(child.size)) %>
+  </td>
+
+  <td nowrap>
+    <%= h(child.mtime.strftime('%Y-%m-%d %H:%M')) %>
+  </td>
+
+  <td nowrap bgcolor="#f0f0f0">
+<% if desc %>
+    <%= desc %>
+<% end %>
+  </td>
+
+   
+<%
+if @mapsearch
+  if @mode == "points" || @mode == "partial"
+%>
+  <td nowrap> 
+<%
+    SpatialAttribute.find(:all, :conditions=>"variable_id=#{child.id}").each do |s|
+      case @mode
+      when "points"
+%>
+    (<%= h( s.longitude_lb ) %>,<%= h( s.latitude_lb ) %>)
+<%    when "partial" %>
+    (<%= h( s.longitude_lb ) %>,<%= h( s.latitude_lb ) %>)-(<%= h( s.longitude_rt ) %>,<%= h( s.latitude_rt ) %>)
+<%
+      end
+    end
+  end
+%>
+  </td>
+<% end %>
+
+</tr>
+<% end %>

data/app/views/finder/create_tree.html.erb

@@ -0,0 +1,15 @@
+<div id="dir_help">
+  <div style="float:right">
+    <%= link_to("clear tree", :action => :clear_tree) %>
+  </div>
+  <%= help_popup( 'dir_tree' ) %>
+</div>
+<div id="dir_tree_float">
+  <%= render :partial => "children" %>
+</div>
+
+<% if @selected_dir %>
+<script>
+  tree.dirSelected('<%=@selected_dir.path%>',true);
+</script>
+<% end %>

data/app/views/finder/flex.html.erb

@@ -0,0 +1,52 @@
+<html lang="en">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+<title>Gfdnavi</title>
+<%= javascript_include_tag "AC_OETags" %>
+<style>
+body { margin: 0px; overflow:hidden }
+</style>
+</head>
+
+<body scroll='no'>
+<script language="JavaScript" type="text/javascript">
+<!--
+		AC_FL_RunContent(
+					"src", "../flex/finder",
+					"width", "100%",
+					"height", "100%",
+					"align", "middle",
+					"id", "finder",
+					"quality", "high",
+					"bgcolor", "#869ca7",
+					"name", "finder",
+					"FlashVars", "uri=<%=@uri_prefix%>",
+					"allowScriptAccess","sameDomain",
+					"type", "application/x-shockwave-flash",
+					"pluginspage", "http://www.adobe.com/go/getflashplayer"
+	);
+// -->
+</script>
+<noscript>
+	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
+			id="finder" width="100%" height="100%"
+			codebase="http://fpdownload.macromedia.com/get/flashplayer/current/swflash.cab">
+			<param name="movie" value="../flex/finder.swf" />
+			<param name="quality" value="high" />
+			<param name="bgcolor" value="#869ca7" />
+			<param name="allowScriptAccess" value="sameDomain" />
+			<param name="FlashVars" value="uri=<%=@uri_prefix%>"/>
+			<embed src="../flex/finder.swf" quality="high" bgcolor="#869ca7"
+				width="100%" height="100%" name="explorer" align="middle"
+				play="true"
+				loop="false"
+				quality="high"
+				allowScriptAccess="sameDomain"
+			        FlashVars="uri=<%=@uri_prefix%>"
+				type="application/x-shockwave-flash"
+				pluginspage="http://www.adobe.com/go/getflashplayer">
+			</embed>
+	</object>
+</noscript>
+</body>
+</html>

data/app/views/finder/index.html.erb

@@ -0,0 +1,47 @@
+
+<p>
+  <%= link_to("Search (Explorer)", :controller => "explorer") %> 
+  &nbsp;
+  <%= link_to("Search (old version)", :controller => "search", :action=>'mapsearch') %>
+</p>
+<br>
+
+<p>
+  <h4>
+    Select from directory tree:
+  </h4>
+</p>
+
+
+<div id="dir">
+  <div id="dir_tree" style="float:left">
+  </div>
+  <div id="dir_details">
+  </div>
+</div>
+
+<script>
+  var hrb = new ResizableBox($('dir_tree'), 300, 200, true);
+  var vrb = new ResizableBox($('dir'), null, 200, false, true, [$('dir_tree'),$('dir_details'),hrb.hbar.element]);
+
+  progressText = new ProgressText();
+
+  tree = new Tree('dir_tree');
+  tree.dirDetailsDivId = 'dir_details';
+  tree.selectedFunction = tree.showDirDetails;
+<% if @path %>
+  tree.create('<%=@path%>');
+<% else %>
+  tree.create();
+<% end %>
+
+</script>
+
+<br/>
+<hr/>
+<br/>
+
+<!-- <h4>Details</h4> -->
+<div id="details_window">
+  <div id="details"></div>
+</div>

data/app/views/finder/show_details.html.erb

@@ -0,0 +1,3 @@
+<% if @path %>
+<%= render(:partial => "children_details") %>
+<% end %>

data/app/views/finder/show_images.html.erb

@@ -0,0 +1,3 @@
+<% @images.each{|path| %>
+  <%= image_tag(data_dl_url(:path => path.sub(/^\//,""))) %>
+<% } %>

data/app/views/function/_edit_form.rhtml

@@ -0,0 +1,106 @@
+<%
+@function.nvars = 1 unless @function.nvars
+fas = @function.function_arguments
+fos = @function.function_outputs
+%>
+
+  <%= error_messages_for 'function' %><br/>
+
+  <h3>Function</h3>
+  <table>
+    <tr>
+      <td><label for="function_name">name</label></td>
+      <td><%= text_field("function", 'name', :size => 10) %></td>
+    </tr>
+    <tr>
+      <td>save directory</td>
+      <td><%= @directory %></td>
+    </tr>
+    <tr>
+      <td><label for="function_description">description</label></td>
+      <td><%= text_area("function", "description", "rows" => 5) %></td>
+    </tr>
+    <tr>
+      <td><label for="function_group_id">group</label></td>
+      <td>
+        <%
+	   options = ["<option selected>only me</option>"]
+	   if @user.super_user?
+	     options.push "<option>everyone</option>"
+           end
+           if @groups
+             options.push('<option disabled>--groups--</option>')
+             options += @groups.collect{|group| 
+                                      "<option>#{h(group.name)}</option>"}
+           end
+         %>
+        <%= select_tag("groups[]", options, {:multiple=>true} ) %>
+<% if @user.super_user? %>
+        <%= link_to("create group", :controller => "group", :action => "create") %>
+<% end %>
+      </td>
+    </tr>
+    <tr>
+      <td><label for="function_nvars">number of input variables</label></td>
+      <td>
+        <%= select("function", "nvars", [1,2,3,4,5], {}, :onchange => "changeInput();") %>
+      </td>
+    </tr>
+    <tr>
+      <td><label for="argument_num">number of arguments</label></td>
+      <td>
+        <%= select_tag("argument_num", [0,1,2,3,4,5].collect{|i| "<option #{"selected='selected'" if i==fas.length}>#{i}</option>"}, :onchange => "changeArgument();") %>
+      </td>
+    </tr>
+    <tr>
+      <td><label for="function_script">script</label></td>
+      <td>
+        {|<span id="argument_args"></span><span id="input_args"></span>|<br/>
+          <%= text_area("function", "script", "rows" => 10) %><br/>
+        }
+      </td>
+    </tr>
+    <tr>
+      <td><label for="output_num">number of output variables</label></td>
+      <td>
+        <%= select_tag("output_num", [1,2,3,4,5].collect{|i| "<option #{"selected='selected'" if i==fos.length}>#{i}</option>"}, :onchange => "changeOutput();") %>
+      </td>
+    </tr>
+  </table>
+
+  <h3>Function Arguments</h3>
+  <div id="arguments_table"></div>
+
+  <h3>Function Outputs</h3>
+  <div id="outputs_table"></div>
+
+
+  <h3>Html for settings</h3>
+  <%= button_to_function("create default html",'new Ajax.Request(gfdnaviUrlRoot+"/function/create_setting_html",{parameters: "narg="+$F("argument_num")+"&"+Form.serialize("arguments_table")})') %>
+  <br/>
+  <div id="setting_html_div">
+    <%= text_area("function", "setting_html", "rows" => 15, "cols" => 80) %>
+  </div>
+  <%= button_to_function("preview",'new Ajax.Updater("preview",gfdnaviUrlRoot+"/analysis/preview",{parameters: Form.serialize("setting_html_div")})') %>
+  <div id="preview"></div>
+  <br/>
+
+
+  <script>
+    changeInput();
+    changeArgument();
+    changeOutput();
+<% vtypes = ['int', 'float', 'string'] %>
+<% fas.each_with_index{|fa,i| %>
+    $('argument_<%=i%>_description').value = '<%=h(fa.description)%>';
+    $('argument_<%=i%>_default').value = '<%=h(fa.default)%>';
+    $('argument_<%=i%>_value_type').selectedIndex = <%=vtypes.index(fa.value_type.name)%>;
+<% } %>
+<% fos.each_with_index{|fo,i| %>
+   $('output_<%=i%>_name').value = '<%=h(fo.name)%>';
+   $('output_<%=i%>_subscript').value = '<%=h(fo.subscript)%>';
+   $('output_<%=i%>_description').value = '<%=h(fo.description)%>';
+<% } %>
+  </script>
+
+  <br/><br/>

data/app/views/function/create.rhtml

@@ -0,0 +1,8 @@
+<h2>Create Function</h2>
+<% form_tag do %>
+
+  <%= render :partial=>"edit_form" %>
+
+  <%= submit_tag("create") %>
+
+<% end %>

data/app/views/function/details.rhtml

@@ -0,0 +1,96 @@
+<h2>Function: <%= h(@func.name) %></h2>
+
+<table border=2>
+  <tr>
+    <th colspan=2>name</th>
+    <td><%= h(@func.name) %></td>
+  </tr>
+  <tr>
+    <th colspan=2>description</th>
+    <td><%= h(@func.description) %></td>
+  </tr>
+<% if @func.owner == @user %>
+  <tr>
+    <th colspan=2>usable to</th>
+    <td><%= if @func.other_readable
+              rgs = Group.find_by_bit_flag(@func.rgroups) 
+              srgs = rgs.length>0 ? '  ('+rgs.collect{|g| g.name}.join(' ')+')' : ''
+              "everyone"+srgs
+	    else
+              ags = Group.find_by_bit_flag(@func.groups_readable)
+              ags.length>0 ? ags.collect{|g| g.name}.join(' ') :  'nobody'
+	    end
+      %></td>
+  </tr>
+<% end %>
+  <tr>
+    <th colspan=2>number of input variables</label></th>
+    <td><%= @func.nvars %></td>
+  </tr>
+  <tr>
+    <th colspan=2>script</th>
+    <td>
+     {|<%= ary0=Array.new;ary1=Array.new;@func.function_arguments.length.times{|i|ary0[i]="arg#{i}"};@func.nvars.times{|i|ary1[i]="gphys#{i}"}; (ary0+ary1).join(", ") %>|
+      <br/>
+      <div style="padding-left:1em">
+        <pre><%= h(@func.script) %></pre>
+      </div>
+      }
+    </td>
+  </tr>
+
+<%
+args = @func.function_arguments
+narg = args.length
+narg.times do |j|
+  arg = args[j]
+%>
+  <tr>
+    <th rowspan=3>argument<%= j %></th>
+    <th>description</th>
+    <td><%= h(arg.description) %></td>
+  </tr>
+  <tr>
+    <th>value type</th>
+    <td><%= h(arg.value_type.name) %></td>
+  </tr>
+  <tr>
+    <th>default</th>
+    <td><%= h(arg.default) %></td>
+  </tr>
+<% end %>
+
+
+<%
+outputs = @func.function_outputs
+nout = outputs.length
+nout.times do |j|
+  output = outputs[j]
+%>
+  <tr>
+    <th rowspan=3>output<%= j %></th>
+    <th>name</th>
+    <td><%= h(output.name) %></td>
+  </tr>
+  <tr>
+    <th>description</th>
+    <td><%= h(output.description) %></td>
+  </tr>
+  <tr>
+    <th>subscript</th>
+    <td><%= h(output.subscript) %></td>
+  </tr>
+<% end %>
+
+
+
+</table>
+
+<br/>
+<br/>
+
+<% if @func.owner == @user %>
+<%= link_to("edit function", :action => "edit", :id => h(@func.name)) %>
+<br/>
+<% end %>
+<%= link_to("back to list", :action => "list") %>