FsObj->new(getcwd)->iterate;
-if ($rssobj) {
- my $itemstodel = @{$rssobj->{'rss'}->{'items'}} - 15;
- while ($itemstodel-- > 0) {
- pop(@{$rssobj->{'rss'}->{'items'}})
- }
- $rssobj->{'rss'}->save($rssobj->{'file'});
-}
-
sub help {
print STDERR <<__END__;
$rssobj->{'file'} = $rss;
$rssobj->{'rss'} = new XML::RSS (version=>2);
$rssobj->{'rss'}->parsefile($rss);
+ my $itemstodel = @{$rssobj->{'rss'}->{'items'}} - 15;
+ while ($itemstodel-- > 0) {
+ pop(@{$rssobj->{'rss'}->{'items'}})
+ }
+ $rssobj->{'rss'}->save($rssobj->{'file'});
return $rss;
} else {
print STDERR "There is no $rssfile in this or parent ".
print $IND start_html(-title => $title,
-encoding=>"utf-8",
-head=>$rsslink,
- -style=>{-src=>[$inc."gallery.css"],
- -code=>
-".loading {background: url(".$inc."loading.gif) center no-repeat;}"
- },
+ -style=>{-src=>$inc."gallery.css"},
-script=>[
{-src=>$inc."mootools.js"},
+ {-src=>$inc."overlay.js"},
{-src=>$inc."urlparser.js"},
+ {-src=>$inc."multibox.js"},
{-src=>$inc."slideshow.js"},
{-src=>$inc."gallery.js"},
{-code=>"var incPrefix='$inc';"}
my $i=0+$self->{-parent}->{-numofimgs};
$self->{-parent}->{-numofimgs}++;
- 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',
- -onClick=>"return showIbox('$name');"},
+ -class=>'infoBox'},
$title)),"\n",
div({-class=>'slideimage',-id=>$name},
a({-href=>".html/$name-static.html",-title=>$title,