\n"; $form_submit=" "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 "
Choose from the menu below to view the collaboration centrality values of RePEc authors as described in " . " A Social Network Analysis of Research Collaboration in the Economics Community" . " by Bakkalbasi and Krichel."; 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 "\n"; print ""; print "" . "" . "" . ""; print "\n"; $rank=$start; while($rows=mysql_fetch_array($result)){ $name=$rows['name']; $id=$rows['id']; print ""; print ""; print ""; $rank++; } print "
$caption[$selected]
RANKNAMEID$header[$selected]
$rank"; print "$name"; print ""; print $rows['id']; print ""; print $rows[$selected]; print "
"; //set page links $self = $_SERVER['PHP_SELF']; $next = $start + $step; $prev = $start - $step; //print page links if($start > 1){ print "
"; print "PREVIOUS"; print "
"; } print "
"; print "NEXT"; 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 "" . "$name" . "
"; } print $GLOBALS['form_submit'] . "name=\"author\"" . "value=\"Submit Selection\"/>"; print $GLOBALS['form_end']; if($result_count = 1){ while($row=mysql_fetch_array($result)){ $name=$row['name']; $id=$row['id']; print "

Collaboration Centrality Values for ". "$name" . "

"; print "
"; print ""; print ""; print "" . "" . "" . "" . "" . "" . ""; print "\n"; print ""; } print "
DEGBIBBICSYBSYCRWBRWC
"; print $row['deg']; print ""; print $row['bib']; print ""; print $row['bic']; print ""; print $row['syb']; print ""; print $row['syc']; print ""; print $row['rwb']; print ""; print $row['rwc']; print "
"; print "
"; } } function process_multiple_results(){ $base="http://econpapers.repec.org/RAS/"; $author=$_GET['names']; $query="SELECT * FROM nancytable WHERE id LIKE \"$author\""; $result=mysql_query($query); $error=mysql_error(); if($error){ print "mySQL error: $error
"; } $result_count=mysql_num_rows($result); while($row=mysql_fetch_array($result)){ $name=$row['name']; $id=$row['id']; print "

Collaboration Centrality Values for ". "$name" . "

"; print "
"; print ""; print ""; print "" . "" . "" . "" . "" . "" . ""; print "\n"; print ""; } print "
DEGBIBBICSYBSYCRWBRWC
"; print $row['deg']; print ""; print $row['bib']; print ""; print $row['bic']; print ""; print $row['syb']; print ""; print $row['syc']; print ""; print $row['rwb']; print ""; print $row['rwc']; print "
"; print "
"; } if(isset($_GET[submit])){ process_form(); } elseif(isset($_GET[search])){ process_author_form(); } elseif(isset($_GET[author])){ process_multiple_results(); } else{ build_form(); } ?>

Valid XHTML 1.0!