_____EoI2_____
}
$stock_view = param('stock_view') || "" ; # default: start with photos 1 through 9
$ad_left = param('ad_left') || param('ad_left_carry') || "" ; # default: nothing selected
if ( ( $ad_left ne "") && ($stock_view eq "") )
{
$ad_number = $ad_left ;
$ad_number =~ s/[^0-9]//g ;
$ad_number =~ s/^0+//g ;
if ( $ad_number <= 12 ) {
$stock_view = "1" ;
} else {
$stock_view = (int(($ad_number-1)/12)*12) + 1 ;
}
}
if ( $stock_view eq "" ) { $stock_view = "1" ; }
# create an array with ads numbered one through ....
# then assign particular source ads to the list of 9 that are there
# determine if one is checked by looking through the array (display the appropriate list)
# create the side links based on the one that is checked
opendir (STOCK_LIST, "./istock") ;
@stock_list = grep(!/^\.\.?$/, readdir(STOCK_LIST)) ;
# pay attention: add a dummy element to front of array so file names match array subscript
unshift(@stock_list,"aa");
closedir (STOCK_LIST) ;
@stock_checked[0,$#stock_list] = "" ;
if ( $ad_left ne "" ) {
# extract the number
$ad_array = substr( $ad_left, 0, 3 );
$stock_checked[$ad_array] = "checked" ;
if ( (($stock_view eq 1) && ($ad_array <= 12 ))
|| (($stock_view gt 1) && ( $ad_array <= $stock_view + 12)
&& ($ad_array >= $stock_view)))
{
$onload = "onLoad=\'swap_image(" . '"' . $ad_left . '","' ;
if ($stock_view eq 1 )
{ $the_num = $ad_array ; }
else { $the_num = $ad_array - $stock_view + 1 ; }
$onload = $onload . sprintf("%d",$the_num) . '","image' . sprintf("%02d",$the_num) ;
$onload = $onload . '")' . "\'" ;
}
}
# now create the navigation list for other photos
# format of links: Photos 013 - 024
| ||||||||||||||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||||||||||||||
