%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2000-2003 Sergey Rusakov. All rights reserved. %# This program is free software; you can redistribute it %# and/or modify it under the same terms as Perl itself. %# %# %#---------------------------------------------------------------------------- % $r->header_out("Cache-Control" => "no-cache"); Alerter's frame <%perl> my $event = new ePortal::PopupEvent; my ($message, $messages); $event->restore_where( username => $ePortal->username, unsent => 1); while($event->restore_next) { $messages ++; if ($messages <= 10) { $message .= $event->memo . '\n'; } # delete expires PopupEvents anyway my $ev = new ePortal::PopupEvent; $ev->delete if $ev->restore( $event->id ); } % if ($message) { % } %#=== @metags attr ========================================================= <%attr> Layout => 'Nothing'