oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixing warnings

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Asset/Event.pm
View file

@ -231,8 +231,9 @@ sub view {
$var{"delete.url"} = $self->session->url->page('func=deleteEvent;rid='.$self->getValue("EventsCalendar_recurringId")); $var{"delete.url"} = $self->session->url->page('func=deleteEvent;rid='.$self->getValue("EventsCalendar_recurringId"));
$var{"delete.label"} = $i18n->get(576); $var{"delete.label"} = $i18n->get(576);
my @others; my @others;
my ($start, $garbage) = $self->session->datetime->dayStartEnd($self->get("eventStartDate")); my ($start, $garbage, $end);
my ($garbage, $end) = $self->session->datetime->dayStartEnd($self->get("eventEndDate")); ($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)); 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) { while (my ($assetId) = $sth->array) {
my $asset = WebGUI::Asset::Event->new($self->session, $assetId); my $asset = WebGUI::Asset::Event->new($self->session, $assetId);

18
lib/WebGUI/Operation/Cron.pm
View file

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

4
lib/WebGUI/Operation/VersionTag.pm
View file

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