Fixing warnings

This commit is contained in:
Wouter van Oijen 2006-03-17 16:54:50 +00:00
parent a48cfe2189
commit 409dabe02b
3 changed files with 14 additions and 13 deletions

View file

@ -231,8 +231,9 @@ sub view {
$var{"delete.url"} = $self->session->url->page('func=deleteEvent;rid='.$self->getValue("EventsCalendar_recurringId"));
$var{"delete.label"} = $i18n->get(576);
my @others;
my ($start, $garbage) = $self->session->datetime->dayStartEnd($self->get("eventStartDate"));
my ($garbage, $end) = $self->session->datetime->dayStartEnd($self->get("eventEndDate"));
my ($start, $garbage, $end);
($start, $garbage) = $self->session->datetime->dayStartEnd($self->get("eventStartDate"));
($garbage, $end) = $self->session->datetime->dayStartEnd($self->get("eventEndDate"));
my $sth = $self->session->db->read("select assetId from EventsCalendar_event where ((eventStartDate >= $start and eventStartDate <= $end) or (eventEndDate >= $start and eventEndDate <= $end)) and assetId<>".$self->session->db->quote($self->getId));
while (my ($assetId) = $sth->array) {
my $asset = WebGUI::Asset::Event->new($self->session, $assetId);

View file

@ -78,7 +78,7 @@ sub www_editCronJob {
label=>$i18n->get("title"),
hoverHelp=>$i18n->get("title help")
);
my $value = $cron->get("enabled") if defined $cron;
$value = $cron->get("enabled") if defined $cron;
$f->yesNo(
name=>"enabled",
value=>$value,
@ -86,7 +86,7 @@ sub www_editCronJob {
label=>$i18n->get("is enabled"),
hoverHelp=>$i18n->get("is enabled help")
);
my $value = $cron->get("runOnce") if defined $cron;
$value = $cron->get("runOnce") if defined $cron;
$f->yesNo(
name=>"runOnce",
value=>$value,
@ -94,7 +94,7 @@ sub www_editCronJob {
label=>$i18n->get("run once"),
hoverHelp=>$i18n->get("run once help")
);
my $value = $cron->get("workflowId") if defined $cron;
$value = $cron->get("workflowId") if defined $cron;
my $type = "None";
if (defined $cron && $cron->get("className")) {
$type = $cron->get("className");
@ -109,7 +109,7 @@ sub www_editCronJob {
my %priorities = ();
tie %priorities, 'Tie::IxHash';
%priorities = (1=>$i18n->get("high"), 2=>$i18n->get("medium"), 3=>$i18n->get("low"));
my $value = $cron->get("priority") if defined $cron;
$value = $cron->get("priority") if defined $cron;
$f->radioList(
name=>"priority",
vertical=>1,
@ -119,7 +119,7 @@ sub www_editCronJob {
label=>$i18n->get("priority"),
hoverHelp=>$i18n->get("priority help")
);
my $value = $cron->get("minuteOfHour") if defined $cron;
$value = $cron->get("minuteOfHour") if defined $cron;
$f->text(
name=>"minuteOfHour",
value=>$value,
@ -127,7 +127,7 @@ sub www_editCronJob {
label=>$i18n->get("minute of hour"),
hoverHelp=>$i18n->get("minute of hour help")
);
my $value = $cron->get("hourOfDay") if defined $cron;
$value = $cron->get("hourOfDay") if defined $cron;
$f->text(
name=>"hourOfDay",
value=>$value,
@ -135,7 +135,7 @@ sub www_editCronJob {
label=>$i18n->get("hour of day"),
hoverHelp=>$i18n->get("hour of day help")
);
my $value = $cron->get("dayOfMonth") if defined $cron;
$value = $cron->get("dayOfMonth") if defined $cron;
$f->text(
name=>"dayOfMonth",
value=>$value,
@ -143,7 +143,7 @@ sub www_editCronJob {
label=>$i18n->get("day of month"),
hoverHelp=>$i18n->get("day of month help")
);
my $value = $cron->get("monthOfYear") if defined $cron;
$value = $cron->get("monthOfYear") if defined $cron;
$f->text(
name=>"monthOfYear",
value=>$value,
@ -151,7 +151,7 @@ sub www_editCronJob {
label=>$i18n->get("month of year"),
hoverHelp=>$i18n->get("month of year help")
);
my $value = $cron->get("dayOfWeek") if defined $cron;
$value = $cron->get("dayOfWeek") if defined $cron;
$f->text(
name=>"dayOfWeek",
value=>$value,

View file

@ -75,7 +75,7 @@ sub www_editVersionTag {
-value=>$value,
-defaultValue=>"new"
);
my $value = $tag->get("name") if defined $tag;
$value = $tag->get("name") if defined $tag;
$f->text(
-name=>"name",
-label=>$i18n->get("version tag name"),
@ -389,7 +389,7 @@ sub www_manageRevisionsInTag {
<td>'.$by.'</td></tr>';
}
$output .= '</table>'.$p->getBarSimple;
my $tag = $session->db->getRow("assetVersionTag","tagId",$tag->getId);
$tag = $session->db->getRow("assetVersionTag","tagId",$tag->getId);
return $ac->render($output,$i18n->get("revisions in tag").": ".$tag->{name});
}