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 ".
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',
- -class=>'infobox'},
+ -class=>'infoBox'},
$title)),"\n",
div({-class=>'slideimage',-id=>$name},
a({-href=>".html/$name-static.html",-title=>$title,