\n"; } print "\n"; if($showlinks == 1) { print "Order links by:\n"; if($lo == "t") { print "Reverse Date Title\n"; } else { $lo = "d"; print "Reverse Date Title\n"; } } if($catid < 0) { #print "Select a category below to start browsing.\n"; print "

\n

\n"; } print "\n"; print "\n\n"; print "

\n"; for($i = 0; $i < count($rows); $i++) { displayCategory($rows[$i]['catid'], $showlinks, 1); # break into two columns if the listing gets large if(count($rows) > 20 && $i == (int) (count($rows) / 2)) { print "

\n"; } } print "

\n"; print "\n"; printfoot(); } function displayCatText($startcat) { extract($GLOBALS); if($startcat < 0) { $col = "parentid"; } else { $col = "catid"; } $query = "select * from category where $col = '$startcat' order by catorder, catname"; $result = mysqli_query($dblink,$query); $i = 0; while($row = mysqli_fetch_array($result)) { $rows[$i++] = $row; } for($i = 0; $i < count($rows); $i++) { displayCategoryText($rows[$i]['catid'], 0, 1); } } function displayCategoryText($catid, $showlinks, $level) { global $dblink, $cat, $lo, $sl, $showpage; $query = "select catname, catnotes from category where catid = '$catid'"; $result = mysqli_query($dblink,$query); $row = mysqli_fetch_array($result); $catname = $row['catname']; $catnotes = $row['catnotes']; if($lo == 't') { $linkorder = "link.title"; } else { $lo = "d"; $linkorder = "link.date desc, title"; } print "$catname; "; } function displayCategory($catid, $showlinks, $level) { global $dblink, $cat, $lo, $sl, $showpage; $query = "select catname, catnotes from category where catid = '$catid'"; $result = mysqli_query($dblink,$query); $row = mysqli_fetch_array($result); $catname = $row['catname']; $catnotes = $row['catnotes']; if($lo == 't') { $linkorder = "link.title"; } else { $lo = "d"; $linkorder = "link.date desc, title"; } if($cat <= 0 && $level == 1) { print ""; } if($level > 1 && $catid > 0) { print "

• \n"; print ""; } else if($cat > 0) { print "

  ---

  \n"; } print "$catname"; if($level > 1 || $cat < 0) { print "\n"; } # if at the top level, only display the name, so return if($cat <= 0) { print "
  \n"; return; } $query = "select * from linkparent where catid = '$catid'"; $result = mysqli_query($dblink,$query); $numrows = mysqli_num_rows($result); if($numrows > 0 && $showlinks == 0) { print " ($numrows)\n"; } if($catnotes != "") { print "
  \n"; print "$catnotes\n

  \n"; } else { print "

  \n"; } if($showlinks == 1) { $query = "select * from type order by typename desc"; $result = mysqli_query($dblink,$query); $j = 0; while($row = mysqli_fetch_assoc($result)) { $types[$j++] = $row; } $cats = parentCats($catid); #if($cats[0]->parentid == -1) #{ for($j = 0; $j < count($types); $j++) { $query = "select * from linkparent, link where linkparent.catid = '$catid' && linkparent.linkid = link.linkid && link.typeid = " . $types[$j]['typeid'] . " && link.available = 1 order by $linkorder"; $result = mysqli_query($dblink,$query); $linkrows = array(); if(mysqli_num_rows($result) > 0) { print "" . $types[$j]['typename'] . "\n

  \n"; #print "

  \n"; $i = 0; while($row = mysqli_fetch_array($result)) { $linkrows[$i++] = $row; } for($i = 0; $i < count($linkrows); $i++) { displayLink($linkrows[$i]['linkid'], $level); } #print "
  \n"; } } #} #else #{ #$query = "select * from linkparent, link where linkparent.catid = '$catid' && linkparent.linkid = link.linkid && link.available = 1 order by $linkorder"; #$result = mysqli_query($dblink,$query); #print "
  \n"; #while($row = mysqli_fetch_array($result)) #{ #displayLink($row['linkid'], $level); #} #print "
  \n"; #} } # get all the child categories and their names $query = "select * from category where parentid = '$catid'"; $result = mysqli_query($dblink,$query); $catchildren = array(); while($row = mysqli_fetch_array($result)) { array_push($catchildren, $row); } # sort the child categories by name usort($catchildren, "catCompare"); reset($catchildren); # display each of them foreach($catchildren as $row) { displayCategory($row['catid'], $showlinks, $level + 1); } if($level > 1) { print "

\n

\n"; #print "

\n"; foreach($newlinks as $row) { $rdateofentry = redoDate($row->dateofentry); if($rdateofentry != "") { #print "
• \n"; print formatLink($row, 1, 0); print "\n

  \n"; #print "

\n"; } } #print "

\n

\n"; } else { $output .= "\n"; } #$output .= "\n"; if($num == 0) { print $output; print "\n"; printfoot(); } else { return $output; } } function printfoot() { print "

\n"; } #$output .= " \n"; foreach($noticelinks as $row) { $title = $row->title; #if(strlen($title)>100) #{ #$title = substr($title, 0, 100); #$output .= "url\">$title ..."; #} #else #{ #$output .= "url\">$title"; #} #$output .= " \n"; $output .= "url\">$title"; $output .= "\n($row->source)\n"; #$output .= " \n"; $output .= "\n \n"; } if($num != 0) { $output .= " (more) \n"; } else { $output .= "

\n \n"; } # arguments: object link row, 1 if search results, 1 if compact function formatLink($row, $issearch, $iscompact) { global $showpage, $mdcolwidth, $lo, $sl, $o; $url = getURL($row->url); $output = ""; $output .= "\n\n"; if($url != "" && $issearch) { $output .= ""; } else if($url != "") { $output .= "\n"; } else { $output .= "\n"; } $output .= "\n"; if(!$iscompact) { $rdate = redoDate($row->date); if($rdate != "") $output .= "\n"; if($row->description != "") $output .= "\n"; if($row->author != "") $output .= "\n"; if($row->language != "") $output .= "\n"; if($row->source != "") $output .= "\n"; if($row->subscribe != "") $output .= "\n"; if($row->notes != "") $output .= "\n"; if($row->alturls != "") $output .= "\n"; $rdateofentry = redoDate($row->dateofentry); if($rdateofentry != "") $output .= "\n"; if($issearch) { $categories = getCats($row->linkid); if(!empty($categories)) { $output .= "\n"; } } } $output .= "

Title:		$row->title\n	Title:		$row->title	Title:		$row->title\n
Date of publication:		$rdate
Description/subject:		" . stripslashes($row->description) . "
Author/creator:		" . stripslashes($row->author) . "
Language:		" . stripslashes($row->language) . "
Source/publisher:		" . stripslashes($row->source) . "
Subscribe:		" . stripslashes($row->subscribe) . "
Format/size:		" . linkURLs($row->notes) . "
Alternate URLs:		" . linkURLs($row->alturls) . "
Date of entry/update:		$rdateofentry
		"; if($categories[0][0]->parentid == -1) { $output .= "ML > "; } else if($categories[0][0]->parentid == -2) { $output .= "RR > "; } for($j = 0; $j < count($categories); $j++) { for($i = 0; $i < count($categories[$j]); $i++) { $output .= "catid . "&lo=$o&sl=1\">"; $output .= $categories[$j][$i]->catname . "\n"; if($i < count($categories[$j]) - 1) { $output .= ">\n"; } } $output .= " \n"; } $output .= "

\n"; return $output; } ?> "January", "02"=>"February", "03"=>"March", "04"=>"April", "05"=>"May", "06"=>"June", "07"=>"July", "08"=>"August", "09"=>"September", "10"=>"October", "11"=>"November", "12"=>"December"); if($date != 0) { $day = substr($date, 8, 2); $mon = substr($date, 5, 2); $year = substr($date, 0, 4); # if $day is 0, mktime will go with the end of the previous # month instead of the beginning of the specified month, so # make the $day for mktime 1 if($day == 0) { $mday = 1; } else { $mday = $day; } $date = mktime(0, 0, 0, $mon, $mday, $year); #print "$mon.$mday.$year\n
$date
\n"; if($day == 0 && $mon == 0 && $year > 0) { $dformat = "%Y"; $mydate = $year; } else if($day == 0 && $mon > 0 && $year > 0) { $dformat = "%B %Y"; $mydate = "$months[$mon] $year"; } else if($day > 0 && $mon == 0 && $year > 0) { $dformat = "%d %Y"; $mydate = "$day $year"; } else if($day > 0 && $mon > 0 && $year > 0) { $dformat = "%d %B %Y"; $mydate = "$day $months[$mon] $year"; } $date = strftime($dformat, $date); #if($year < 1970) { return $mydate; } #else { return stripslashes($date); } return $mydate; } return ""; } # sets up URL-ish strings as real links function linkURLs($string) { $string = preg_replace("/\n/", "
", $string); preg_match_all("/((http|https|ftp|gopher):\/\/[^\s]+)/", $string, $matches); for($i = 0; $i < count($matches[0]); $i++) { $url = $matches[0][$i]; if(strlen($url) > 100) { $newurl = substr($url, 0, 99); $newurl .= "..."; } else { $newurl = $url; } $url = preg_replace("/
/", "", $url); $url2 = $url; $url2 = preg_replace("/\?/", "\\?", $url2); $url2 = preg_replace("/\./", "\\.", $url2); $url2 = preg_replace("/\&/", "\\&", $url2); $url2 = preg_replace("/\+/", "\\+", $url2); $url2 = preg_replace("/\#/", "\\\#", $url2); /** There will never be any matches 'cause the $string has only urls but no ahref tags if(!preg_match("/\$newurl/", $string)) { $string = preg_replace("'$url2'", "$newurl", $string); #$string = preg_replace("/$url/", "$newurl", $string); } #$string = "$newurl<\/a>"; */ $string = preg_replace("#$url2#", "$newurl", $string); } return $string; } # extract the URL out of the text function getURL($url) { if(preg_match("/((http|ftp|gopher):\/\/[^\s]+)/", $url, $matches)) { return $matches[1]; } return $url; } function getTopCat($linkid, $parent) { global $dblink; $query = "select catid from linkparent where linkid = '$linkid'"; $result = mysqli_query($dblink, $query); if(mysqli_num_rows($result) < 1) { return 0; } $dbrow = mysqli_fetch_array($result); $catid = $dbrow['catid']; while($catid > 0) { $query = "select parentid from category where catid = '$catid'"; $result = mysqli_query($dblink, $query); $dbrow = mysqli_fetch_array($result); $previd = $catid; $catid = $dbrow['parentid']; } if($parent == 0) { return $previd; } else { return $catid; } } function getTopID($linkid) { global $dblink; } function getCats($linkid) { global $dblink; $rows = array(); $cats = array(); $query = "select category.catname, category.catid, category.parentid from category, linkparent where linkparent.linkid = '$linkid' and category.catid = linkparent.catid"; $result = mysqli_query($dblink, $query); if(mysqli_num_rows($result) > 0) { while($dbrow = mysqli_fetch_object($result)) { array_push($rows, $dbrow); } for($i = 0; $i < count($rows); $i++) { $cats[$i] = parentCats($rows[$i]->catid); /* $cats[$i] = array($rows[$i]); $catid = $rows[$i]->parentid; while($catid > 0) { $query = "select catname, catid, parentid from category where catid = '$catid'"; $result = mysqli_query($dblink, $query); $dbrow = mysqli_fetch_object($result); array_push($cats[$i], $dbrow); $catid = $dbrow->parentid; } $cats[$i] = array_reverse($cats[$i]); */ } } return $cats; } function parentCats($catid) { global $dblink; $query = "select * from category where catid = '$catid'"; $result = mysqli_query($dblink, $query); if(mysqli_num_rows($result) < 1) { return array(); } $cats = array(mysqli_fetch_object($result)); $catid = $cats[0]->parentid; while($catid > 0) { $query = "select catname, catid, parentid from category where catid = '$catid'"; $result = mysqli_query($dblink, $query); $dbrow = mysqli_fetch_object($result); array_push($cats, $dbrow); $catid = $dbrow->parentid; } $cats = array_reverse($cats); return $cats; } function catCompare($a, $b) { if ($a['catorder'] == $b['catorder']) { return strcmp($a['catname'], $b['catname']); } return ($a['catorder'] > $b['catorder']) ? 1 : -1; } function requote($string) { return preg_replace("/\"/", """, $string); } function hlKeywords($string, $keywords) { /* highlighting keywords in search results - yet to be done */ } ?>

The World-Wide Web Virtual Library [WWW VL database || WWW VL search]