Ignore:
Timestamp:
02/19/10 16:24:54 (15 years ago)
Author:
Kris Deugau
Message:

/branches/stable

Finish basic node tracking - add link in header, extend search tool to

handle the appropriate lookup

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/stable/cgi-bin/main.cgi

    r394 r395  
    127127elsif($webvar{action} eq 'finaldelete') {
    128128  finalDelete();
     129}
     130elsif ($webvar{action} eq 'nodesearch') {
     131  open HTML, "<../nodesearch.html";
     132  my $html = join('',<HTML>);
     133  close HTML;
     134
     135  $sth = $ip_dbh->prepare("SELECT node_id, node_name FROM nodes ORDER BY node_type,node_id");
     136  $sth->execute() or print "DEBUG: failed retrieval from nodes: ".$sth->errstr,"<br>\n";
     137  my $nodes = '';
     138  while (my ($nid,$nname) = $sth->fetchrow_array()) {
     139    $nodes .= "<option value='$nid'>$nname</option>\n";
     140  }
     141  $html =~ s/\$\$NODELIST\$\$/$nodes/;
     142
     143  print $html;
    129144}
    130145
Note: See TracChangeset for help on using the changeset viewer.