#!/usr/bin/perl -w $VERSION="CURRENT"; use Switch; # Location vars $CGI_DIR = "cgi-bin/ris"; $DEMO_DIR= "ris"; # Path and other variables $HOME = $ENV{'HOME'}; @INC = (@INC, "$HOME/public_html/$CGI_DIR"); # External functions #require "ris_utils.pl"; #----------------------------------------------------------------------- #----------------------------------------------------------------------- #----------------------------------------------------------------------- #----------------------------------------------------------------------- print "Content-type: text/html\n\n"; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "navigation form\n" ; print("\n"); print "\n" ; #======== end of style settings ============ print "\n"; #======== some javascript functions ============ print "\n"; print "\n" ; #print "

ImgDB

\n"; print "


\n"; print "\n
\n"; #--------------------------------------- #--- form # db=/data4/josecp/cbks/graz01/kd16-1_asc.dbl&dataset=graz01&page=0 print "
\n"; print "
\n"; print "

\n"; print "

\n"; print "

\n"; print "


\n"; print "

\n"; print "


\n"; ## Show retrieval for one method print "

\n"; print "

\n"; print "


\n"; ## Compare retrieval methods print "

Compare to:\n"; print "

\n"; #----- print "
\n"; #print("



\n"); #print("
\n"); #print("

Photo to Upload:

\n"); #print("

\n"); #print("
\n"); #--------------------------------------- # finish html table #--------------------------------------- #print "\n"; print "\n
\n"; #print "\n
\n"; #print "\n
\n"; #print "\n"; #print "\"PageRank\n"; #print "\n
\n"; #print "\n
\n"; print "\n"; #----------------------------------------------------------------------- #-----------------------------------------------------------------------