#!/usr/bin/perl -w
$VERSION="CURRENT";
use Switch;
# Location vars
$CGI_DIR = "cgi-bin/ris";
$DEMO_DIR= "ris";
$PUB_PATH="/~josecp";
$IMG_SRC_PATH="$PUB_PATH/src_imgDB";
# Path and other variables
$HOME = $ENV{'HOME'};
@INC = (@INC, "$HOME/public_html/$CGI_DIR");
# External functions
require "ris_utils.pl";
# PARAMETERS
my $NUM_ARTICLES = 10;
my $CELLS = 5;
my $ROWS = 3;
# IMG width and height (GLOBAL vars)
$IMG_W=200;
$IMG_H=180;
# GLOBAL vars
my $TAG_IMG = "image";
my $DB_TOTAL_DOCS = 0;
my $DOC_DIRECTORY = "";
my %ARTICLE_SAMPLE = ();
#-----------------------------------------------------------------------
#-----------------------------------------------------------------------
#-----------------------------------------------------------------------
&populateQueryFields;
# ===============================================================================================
# ===============================================================================================
# ===============================================================================================
# ===============================================================================================
# some GLOBAL vars
$dataset_pub_path="";
$DB=$queryString{"db"};
$DATASET=$queryString{"dataset"};
if ($queryString{"page"} eq "") {
$PAGE=0;
}
else {
$PAGE=$queryString{"page"};
}
%IMAGE_MASTER=();
# NOT NEEDED ?
#$query=$queryString{"query"};
#$mturkID=$queryString{"assignmentId"};
# some LOCAL vars
my ($imglist,$annot_file);
my ($line, $foo);
$imglist="$DB";
$foo="$DB";
$foo=~m/(.*)\/(.*)$/;
$annot_file="$1/annotations";
$dataset_pub_path="$IMG_SRC_PATH/$DATASET/$DATASET";
#-----------------------------------------------------------------------
#-----------------------------------------------------------------------
print "Content-type: text/html\n\n";
print "\n" ;
print "\n" ;
print "\n" ;
## the following line screws up when using the form with IE8
#print "\n" ;
print "\n" ;
print "Browsing ImgDB $DATASET\n" ;
#print("\n");
#print("");
print "\n";
#======== body & table settings ===============
#print " \n" ;
#======== some javascript functions ============
print "\n";
print("\n");
print("\n");
print "\n" ;
#print "
$DATASET
\n";
#print "
INSTRUCTIONS - moving the mouse over the thumbnails should allow you to view a magnified version of the respective image.\n";
#print " Please click on the picture (large or thumbnail) that you're absolutely sure of your choice
\n";
#print "\n
\n";
print "
\n";
## populate the hash array with the images
%IMAGE_MASTER= &create_hash_array_of_image_location($imglist);
@ANNOTATIONS= &read_annotations($annot_file);
$PREVIOUS=$PAGE-($CELLS*$ROWS);
$NEXT=$PAGE+($CELLS*$ROWS);
if ($PREVIOUS<0) {$PREVIOUS=keys(%IMAGE_MASTER)-($CELLS*$ROWS);}
if ($NEXT>=keys(%IMAGE_MASTER)) {$NEXT=0;}
#print ", previous=$PREVIOUS\n";
#print " and next=$NEXT\n";
# ===============================================================
#$PUB_PATH="/~josecp";
#$IMG_SRC_PATH="$PUB_PATH/src_imgDB";
$DB =~ m/(.*)\/(.*)$/;
$test_set=$2;
print "
$DATASET
\n";
#print "
$DATASET ($IMG_SRC_PATH/$DATASET/$test_set)
\n";
print "
\n";
## print (top) previous & next buttons
print "
\n";
print("Previous\n");
print "
\n";
print "
\n";
print("Home\n");
print "
\n";
print "
\n";
print("Next\n");
print "
\n";
#print "
@ANNOTATIONS
\n";
#print "
".$ANNOTATIONS[0]."
\n";
## start pictures table...
print "
\n";
my $col_count=0;
my $threshold = $CELLS-int($CELLS/2);
my $p_class="p1";
#foreach $key ( keys %IMAGE_MASTER ) {
for($i=$PAGE;$i<($PAGE+$CELLS*$ROWS);$i++) {
$key="$i";
if ($key;
## get category information
$tmpCat=$IMAGE_MASTER{$key}{cat};
$class=@ANNOTATIONS[$tmpCat-1];
## formating and displaying the images
$col_count++;
if ($col_count > $threshold) {
$p_class="p2";
}
else {
$p_class="p1";
};
# changed here (remove one comment symbol)
print("