\n";
$form_submit="";
function build_form(){
$criterion=array(
'deg' => "Degree Centrality",
'bic' => "Closeness Centrality Scores, Binary Network Model",
'bib' => "Betweeness Centrality Scores, Binary Network Model",
'syc' => "Closeness Centrality Scores, Symmetrical Weight Strength",
'syb' => "Betweeness Centrality Scores, Symmetrical Weight Strength",
'rwc' => "Closeness Centrality Scores, Random Walk Strength",
'rwb' => "Betweeness Centrality Scores, Random Walk Strength",
);
print "
Co-Authorship Network Values
\n";
print "';
print $GLOBALS['form_top'];
print "";
print $GLOBALS['form_submit'] . "name=\"submit\"/>";
print $GLOBALS['form_end'];
print "Search by Author
";
print "To view the collaboration centrality values of a particular author,
type the author's last name below:";
print "
";
print $GLOBALS['form_top'];
print "Last Name:" . "
";
print "";
print $GLOBALS['form_submit'] . "name=\"search\" id=\"search\" value=\"Search\"/>";
print $GLOBALS['form_end'];
}
function process_form(){
$base="http://econpapers.repec.org/RAS/";
$order['deg']='DESC';
$order['bib']='DESC';
$order['bic']='ASC';
$order['syb']='DESC';
$order['syc']='ASC';
$order['rwb']='DESC';
$order['rwc']='ASC';
$caption['deg']="DEGREE CENTRALITY SCORES";
$caption['bic']="CLOSENESS CENTRALITY SCORES, BINARY NETWORK MODEL";
$caption['bib']="BETWEENESS CENTRALITY SCORES, BINARY NETWORK MODEL";
$caption['syc']="CLOSENESS CENTRALITY SCORES, SYMMETRICAL WEIGHT STRENGTH";
$caption['syb']="BETWEENESS CENTRALITY SCORES, SYMMETRICAL WEIGHT STRENGTH";
$caption['rwc']="CLOSENESS CENTRALITY SCORES, RANDOM WALK STRENGTH";
$caption['rwb']="BETWEENESS CENTRALITY SCORES, RANDOM WALK STRENGTH";
$header['deg']="DEG";
$header['bic']="BIC";
$header['bib']="BIB";
$header['syc']="SYC";
$header['syb']="SYB";
$header['rwc']="RWC";
$header['rwb']="RWB";
//set page limits
$start=$_GET['start'];
$step=20;
$page=$start + $step;
if(!isset($start)){
$start=1;
}
$selected=$_GET['criterion'];
$query="SELECT name, id, $selected FROM nancytable ORDER BY $selected $order[$selected]";
if ($page){
$query .= " LIMIT $start, $step";
}
$result=mysql_query($query);
$error-mysql_error();
if($error){
print "mySQL query:$query
";
print "mySQL error:$error
";
}
print "";
print "$caption[$selected]\n";
print "";
print "RANK | " . "NAME | " .
"ID | " . "$header[$selected] | ";
print "
\n";
$rank=$start;
while($rows=mysql_fetch_array($result)){
$name=$rows['name'];
$id=$rows['id'];
print "";
print "$rank | ";
print "";
print "$name";
print " | ";
print $rows['id'];
print " | ";
print $rows[$selected];
print " |
";
$rank++;
}
print "
";
//set page links
$self = $_SERVER['PHP_SELF'];
$next = $start + $step;
$prev = $start - $step;
//print page links
if($start > 1){
print "";
}
print "";
}
function process_author_form(){
$base="http://econpapers.repec.org/RAS/";
$search_term=$_GET['surname'];
$trimmed=trim($search_term);
print "searching for $search_term
\n";
print "searching for $trimmed
\n";
if ($trimmed == ""){
return "Please enter a search term!
";
exit;
}
$query="SELECT * FROM nancytable";
$result=mysql_query($query);
$error=mysql_error();
if($error){
print "mySQL error: $error
";
}
$result_count=0;
$target_lc=strtolower($trimmmed);
while($row=mysql_fetch_array($result)){
$name=$row['name'];
$name_lc=strtolower($name);
// $target_lc=strtolower($trimmmed);
$id=$row['id'];
print "found $name_lc target $target_lc
\n";
if(levenshtein($name_lc,$target_lc)<3) {
$found[]=$id;
print "found $name_lc close to $target_lc\n";
$result_count++;
}
else {
#print "did not match on $name_lc
\n";
}
}
exit;
print "" . "$name" . "
";
/*
if($result_count > 1){
print "" . "Multiple authors were found with the surname you entered.
Select the correct name from the authors listed below:" . "
";
*/
print $GLOBALS['form_top'];
// print "