- print $IND start_div({-class=>'ibox',-id=>$name,
- -OnClick=>"HideIbox('$name');"}),"\n",
- start_div({-class=>'iboxtitle'}),
- span({-style=>'float: left;'},b("Info for $name")),
- span({-style=>'float: right;'},
- a({-href=>"#",-OnClick=>"HideIbox('$name');"},"Close")),
- br({-clear=>'all'}),"\n",
- end_div,"\n",
- $self->infotable,
- end_div,"\n";
-
- print $IND a({-name=>$i}),"\n",
- start_table({-class=>'slide'}),start_Tr,start_td,"\n",
- div({-class=>'slidetitle',-id=>$name},
- a({-href=>".html/$name-info.html",
- -title=>'Image Info',
- -class=>'infobox'},
- $title)),"\n",
- div({-class=>'slideimage',-id=>$name},
- a({-href=>".html/$name-static.html",-title=>$title,
- -id=>$name,
- -OnClick=>"return run_slideshow(".$i.");"},
- img({-src=>$thumb}))),"\n",
- start_div({-class=>'varimages',-id=>$i});
+
+ print $IND a({-name=>$name}),"\n",
+ start_table({-class=>'slide'}),start_Tr,start_td,"\n";
+ print $IND div({-class=>'slidetitle'},
+ "\n ",a({-href=>".html/$name-info.html",
+ -title=>'Image Info: '.$name,
+ -class=>'infoBox'},
+ $title),"\n"),"\n",
+ start_div({-class=>'slideimage'});
+ if ($self->{-geoloc}) {
+ my ($la,$lo) = @{$self->{-geoloc}};
+ print $IND a({-href=>"http://maps.google.com/".
+ "?q=$la,$lo&ll=$la,$lo",
+ -title=>"$la,$lo",
+ -class=>'geoloc'},
+ div({-class=>'geoloc'},"")),"\n";
+ }
+ print $IND a({-href=>".html/$name-static.html",
+ -title=>$title,
+ -class=>'showImage',
+ -rel=>'i'.$name},
+ img({-src=>$thumb,
+ -class=>'thumbnail',
+ -alt=>$title})),"\n",end_div,
+ start_div({-class=>'varimages',-id=>'i'.$name,-title=>$title}),"\n";