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

Fixed a the perltidy problem.

Browse source
This commit is contained in:
JT Smith 2003-02-06 01:36:40 +00:00
parent 2df4defd5e
commit 3c0d65ac10
3 changed files with 670 additions and 635 deletions
Download patch file Download diff file Expand all files Collapse all files

398
lib/WebGUI/Operation/Group.pm
View file

@ -28,267 +28,271 @@ use WebGUI::SQL;
use WebGUI::URL;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_manageUsersInGroup &www_deleteGroup &www_deleteGroupConfirm &www_editGroup
&www_editGroupSave &www_listGroups &www_emailGroup &www_emailGroupSend &www_manageGroupsInGroup
&www_addGroupsToGroupSave &www_deleteGroupGrouping);
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_manageUsersInGroup &www_deleteGroup &www_deleteGroupConfirm &www_editGroup
&www_editGroupSave &www_listGroups &www_emailGroup &www_emailGroupSend &www_manageGroupsInGroup
&www_addGroupsToGroupSave &www_deleteGroupGrouping);
#-------------------------------------------------------------------
sub _submenu {
tie my %menu, 'Tie::IxHash';
$menu{ WebGUI::URL::page( 'op=editGroup&gid=new' ) } = WebGUI::International::get( 90 );
unless ( $session{ form }{ op } eq 'listGroups'
or $session{ form }{ gid } eq 'new'
or $session{ form }{ op } eq 'deleteGroupConfirm' )
{
$menu{ WebGUI::URL::page( 'op=editGroup&gid=' . $session{ form }{ gid } ) } = WebGUI::International::get( 753 );
$menu{ WebGUI::URL::page( 'op=manageUsersInGroup&gid=' . $session{ form }{ gid } ) } = WebGUI::International::get( 754 );
$menu{ WebGUI::URL::page( 'op=manageGroupsInGroup&gid=' . $session{ form }{ gid } ) } = WebGUI::International::get( 807 );
$menu{ WebGUI::URL::page( 'op=emailGroup&gid=' . $session{ form }{ gid } ) } = WebGUI::International::get( 808 );
$menu{ WebGUI::URL::page( 'op=deleteGroup&gid=' . $session{ form }{ gid } ) } = WebGUI::International::get( 806 );
}
$menu{ WebGUI::URL::page( 'op=listGroups' ) } = WebGUI::International::get( 756 );
return menuWrapper( $_[ 0 ], \%menu );
my ($output, %menu);
tie %menu, 'Tie::IxHash';
$menu{WebGUI::URL::page('op=editGroup&gid=new')} = WebGUI::International::get(90);
unless ($session{form}{op} eq "listGroups"
|| $session{form}{gid} eq "new"
|| $session{form}{op} eq "deleteGroupConfirm") {
$menu{WebGUI::URL::page("op=editGroup&gid=".$session{form}{gid})} = WebGUI::International::get(753);
$menu{WebGUI::URL::page("op=manageUsersInGroup&gid=".$session{form}{gid})} = WebGUI::International::get(754);
$menu{WebGUI::URL::page("op=manageGroupsInGroup&gid=".$session{form}{gid})} = WebGUI::International::get(807);
$menu{WebGUI::URL::page("op=emailGroup&gid=".$session{form}{gid})} = WebGUI::International::get(808);
$menu{WebGUI::URL::page("op=deleteGroup&gid=".$session{form}{gid})} = WebGUI::International::get(806);
}
$menu{WebGUI::URL::page("op=listGroups")} = WebGUI::International::get(756);
return menuWrapper($_[0],\%menu);
}
#-------------------------------------------------------------------
sub www_addGroupsToGroupSave {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my @groups = $session{ cgi }->param( 'groups' );
WebGUI::Grouping::addGroupsToGroups( \@groups, [ $session{ form }{ gid } ] );
return www_manageGroupsInGroup();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my (@groups, $group);
@groups = $session{cgi}->param('groups');
WebGUI::Grouping::addGroupsToGroups(\@groups,[$session{form}{gid}]);
return www_manageGroupsInGroup();
}
#-------------------------------------------------------------------
sub www_deleteGroup {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
return WebGUI::Privilege::vitalComponent() if $session{ form }{ gid } < 26;
my $output = helpIcon( 15 )
. '<h1>' . WebGUI::International::get( 42 ) . '</h1>'
. WebGUI::International::get( 86 ) . '<p>'
. '<div align="center"><a href="' . WebGUI::URL::page( 'op=deleteGroupConfirm&gid=' . $session{ form }{ gid } )
. '">' . WebGUI::International::get( 44 ) . '</a>'
. '&nbsp;&nbsp;&nbsp;&nbsp;<a href="' . WebGUI::URL::page( 'op=listGroups' ) . '">'
. WebGUI::International::get( 45 ) . '</a></div>';
return _submenu( $output );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output);
return WebGUI::Privilege::vitalComponent() if ($session{form}{gid} < 26);
$output .= helpIcon(15);
$output .= '<h1>'.WebGUI::International::get(42).'</h1>';
$output .= WebGUI::International::get(86).'<p>';
$output .= '<div align="center"><a href="'.WebGUI::URL::page('op=deleteGroupConfirm&gid='.$session{form}{gid}).
'">'.WebGUI::International::get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.WebGUI::URL::page('op=listGroups').'">'
.WebGUI::International::get(45).'</a></div>';
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_deleteGroupConfirm {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
return WebGUI::Privilege::vitalComponent() if $session{ form }{ gid } < 26;
my $g = WebGUI::Group->new( $session{ form }{ gid } );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
return WebGUI::Privilege::vitalComponent() if ($session{form}{gid} < 26);
my $g = WebGUI::Group->new($session{form}{gid});
$g->delete;
return www_listGroups();
return www_listGroups();
}
#-------------------------------------------------------------------
sub www_deleteGroupGrouping {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
WebGUI::Grouping::deleteGroupsFromGroups( [ $session{ form }{ delete } ], [ $session{ form }{ gid } ] );
return www_manageGroupsInGroup();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
WebGUI::Grouping::deleteGroupsFromGroups([$session{form}{delete}],[$session{form}{gid}]);
return www_manageGroupsInGroup();
}
#-------------------------------------------------------------------
sub www_editGroup {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my $g = ( $session{ form }{ gid } eq 'new' )
? WebGUI::Group->new( '' )
: WebGUI::Group->new( $session{ form }{ gid } );
my $f = WebGUI::HTMLForm->new;
$f->hidden( 'op', 'editGroupSave' );
$f->hidden( 'gid', $session{ form }{ gid } );
$f->readOnly( $g->groupId, WebGUI::International::get( 379 ) );
$f->text( 'groupName', WebGUI::International::get( 84 ), $g->name );
$f->textarea( 'description', WebGUI::International::get( 85 ), $g->description );
$f->interval( 'expireOffset', WebGUI::International::get( 367 ), WebGUI::DateTime::secondsToInterval( $g->expireOffset ) );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $f, $g);
if ($session{form}{gid} eq "new") {
$g = WebGUI::Group->new("");
} else {
$g = WebGUI::Group->new($session{form}{gid});
}
$output .= helpIcon(17);
$output .= '<h1>'.WebGUI::International::get(87).'</h1>';
$f = WebGUI::HTMLForm->new;
$f->hidden("op","editGroupSave");
$f->hidden("gid",$session{form}{gid});
$f->readOnly($g->groupId,WebGUI::International::get(379));
$f->text("groupName",WebGUI::International::get(84),$g->name);
$f->textarea("description",WebGUI::International::get(85),$g->description);
$f->interval("expireOffset",WebGUI::International::get(367), WebGUI::DateTime::secondsToInterval($g->expireOffset));
$f->yesNo(
-name => 'expireNotify',
-value => $g->expireNotify,
-label => WebGUI::International::get( 865 )
);
-name=>"expireNotify",
-value=>$g->expireNotify,
-label=>WebGUI::International::get(865)
);
$f->integer(
-name => 'expireNotifyOffset',
-value => $g->expireNotifyOffset,
-label => WebGUI::International::get( 864 )
);
$f->textarea(
-name => 'expireNotifyMessage',
-value => $g->expireNotifyMessage,
-label => WebGUI::International::get( 866 )
);
$f->integer(
-name => 'deleteOffset',
-value => $g->deleteOffset,
-label => WebGUI::International::get( 863 )
);
$f->integer( 'karmaThreshold', WebGUI::International::get( 538 ), $g->karmaThreshold ) if $session{ setting }{ useKarma };
-name=>"expireNotifyOffset",
-value=>$g->expireNotifyOffset,
-label=>WebGUI::International::get(864)
);
$f->textarea(
-name=>"expireNotifyMessage",
-value=>$g->expireNotifyMessage,
-label=>WebGUI::International::get(866)
);
$f->integer(
-name=>"deleteOffset",
-value=>$g->deleteOffset,
-label=>WebGUI::International::get(863)
);
if ($session{setting}{useKarma}) {
$f->integer("karmaThreshold",WebGUI::International::get(538),$g->karmaThreshold);
}
$f->text(
-name => 'ipFilter',
-value => $g->ipFilter,
-label => WebGUI::International::get( 857 )
);
-name=>"ipFilter",
-value=>$g->ipFilter,
-label=>WebGUI::International::get(857)
);
$f->submit;
return _submenu( helpIcon( 17 ) . '<h1>' . WebGUI::International::get( 87 ) . '</h1>' . $f->print );
$output .= $f->print;
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_editGroupSave {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my $g = WebGUI::Group->new( $session{ form }{ gid } );
$g->description( $session{ form }{ description } );
$g->name( $session{ form }{ groupName } );
$g->expireOffset( WebGUI::DateTime::intervalToSeconds( $session{ form }{ expireOffset_interval }, $session{ form }{ expireOffset_units } ) );
$g->karmaThreshold( $session{ form }{ karmaThreshold } );
$g->ipFilter( $session{ form }{ ipFilter } );
$g->expireNotify( $session{ form }{ expireNotify } );
$g->expireNotifyOffset( $session{ form }{ expireNotifyOffset } );
$g->expireNotifyMessage( $session{ form }{ expireNotifyMessage } );
$g->deleteOffset( $session{ form }{ deleteOffset } );
return www_listGroups();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my $g = WebGUI::Group->new($session{form}{gid});
$g->description($session{form}{description});
$g->name($session{form}{groupName});
$g->expireOffset(WebGUI::DateTime::intervalToSeconds($session{form}{expireOffset_interval},$session{form}{expireOffset_units}));
$g->karmaThreshold($session{form}{karmaThreshold});
$g->ipFilter($session{form}{ipFilter});
$g->expireNotify($session{form}{expireNotify});
$g->expireNotifyOffset($session{form}{expireNotifyOffset});
$g->expireNotifyMessage($session{form}{expireNotifyMessage});
$g->deleteOffset($session{form}{deleteOffset});
return www_listGroups();
}
#-------------------------------------------------------------------
sub www_emailGroup {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my $f = WebGUI::HTMLForm->new;
$f->hidden( 'op', 'emailGroupSend' );
$f->hidden( 'gid', $session{ form }{ gid } );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output,$f);
$output = '<h1>'.WebGUI::International::get(809).'</h1>';
$f = WebGUI::HTMLForm->new;
$f->hidden("op","emailGroupSend");
$f->hidden("gid",$session{form}{gid});
$f->email(
-name => 'from',
-value => $session{ setting }{ companyEmail },
-label => WebGUI::International::get( 811 )
);
-name=>"from",
-value=>$session{setting}{companyEmail},
-label=>WebGUI::International::get(811)
);
$f->text(
-name => 'subject',
-label => WebGUI::International::get( 229 )
);
-name=>"subject",
-label=>WebGUI::International::get(229)
);
$f->textarea(
-name => 'message',
-label => WebGUI::International::get( 230 ),
-rows => ( 5 + $session{ setting }{ textAreaRows } )
);
$f->submit( WebGUI::International::get( 810 ) );
return _submenu( '<h1>' . WebGUI::International::get( 809 ) . '</h1>' . $f->print );
-name=>"message",
-label=>WebGUI::International::get(230),
-rows=>(5+$session{setting}{textAreaRows})
);
$f->submit(WebGUI::International::get(810));
$output = $f->print;
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_emailGroupSend {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my $sth = WebGUI::SQL->read( "select b.fieldData from groupings a left join userProfileData b
on a.userId=b.userId and b.fieldName='email' where a.groupId=$session{form}{gid}" );
while ( my ( $email ) = $sth->array ) {
next if $email eq '';
WebGUI::Mail::send( $email, $session{ form }{ subject }, $session{ form }{ message }, '', $session{ form }{ from } );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($sth, $email);
$sth = WebGUI::SQL->read("select b.fieldData from groupings a left join userProfileData b
on a.userId=b.userId and b.fieldName='email' where a.groupId=$session{form}{gid}");
while (($email) = $sth->array) {
if ($email ne "") {
WebGUI::Mail::send($email,$session{form}{subject},$session{form}{message},'',$session{form}{from});
}
}
$sth->finish;
return _submenu( WebGUI::International::get( 812 ) );
return _submenu(WebGUI::International::get(812));
}
#-------------------------------------------------------------------
sub www_listGroups {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my $sth = WebGUI::SQL->read( 'select groupId,groupName,description from groups
where groupId<>1 and groupId<>2 and groupId<>7 order by groupName' );
my @row;
while ( my @data = $sth->array ) {
my ( $userCount ) = WebGUI::SQL->quickArray( "select count(*) from groupings where groupId=$data[0]" );
push @row, '<tr>'
. '<td valign="top" class="tableData"><a href="'
. WebGUI::URL::page( 'op=editGroup&gid=' . $data[ 0 ] ) . '">' . $data[ 1 ] . '</td>'
. '<td valign="top" class="tableData">' . $data[ 2 ] . '</td>'
. '<td valign="top" class="tableData">' . $userCount . '</td></tr>'
. '</tr>';
}
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $p, $sth, @data, @row, $i, $userCount);
$output = helpIcon(10);
$output .= '<h1>'.WebGUI::International::get(89).'</h1>';
$sth = WebGUI::SQL->read("select groupId,groupName,description from groups
where groupId<>1 and groupId<>2 and groupId<>7 order by groupName");
while (@data = $sth->array) {
$row[$i] = '<tr>';
$row[$i] .= '<td valign="top" class="tableData"><a href="'
.WebGUI::URL::page('op=editGroup&gid='.$data[0]).'">'.$data[1].'</td>';
$row[$i] .= '<td valign="top" class="tableData">'.$data[2].'</td>';
($userCount) = WebGUI::SQL->quickArray("select count(*) from groupings where groupId=$data[0]");
$row[$i] .= '<td valign="top" class="tableData">'.$userCount.'</td></tr>';
$row[$i] .= '</tr>';
$i++;
}
$sth->finish;
my $p = WebGUI::Paginator->new( WebGUI::URL::page( 'op=listGroups' ), \@row );
my $output = helpIcon( 10 )
. '<h1>' . WebGUI::International::get( 89 ) . '</h1>'
. '<table border=1 cellpadding=5 cellspacing=0 align="center">'
. '<tr><td class="tableHeader">' . WebGUI::International::get( 84 ) . '</td><td class="tableHeader">'
. WebGUI::International::get( 85 ) . '</td><td class="tableHeader">'
. WebGUI::International::get( 748 ) . '</td></tr>'
. $p->getPage( $session{ form }{ pn } )
. '</table>'
. $p->getBarTraditional( $session{ form }{ pn } );
return _submenu( $output );
$p = WebGUI::Paginator->new(WebGUI::URL::page('op=listGroups'),\@row);
$output .= '<table border=1 cellpadding=5 cellspacing=0 align="center">';
$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(84).'</td><td class="tableHeader">'
.WebGUI::International::get(85).'</td><td class="tableHeader">'
.WebGUI::International::get(748).'</td></tr>';
$output .= $p->getPage($session{form}{pn});
$output .= '</table>';
$output .= $p->getBarTraditional($session{form}{pn});
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_manageGroupsInGroup {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my $f = WebGUI::HTMLForm->new;
$f->hidden( 'op', 'addGroupsToGroupSave' );
$f->hidden( 'gid', $session{ form }{ gid } );
my $groups = WebGUI::Grouping::getGroupsInGroup( $session{ form }{ gid } );
push @$groups, $session{ form }{ gid };
$f->group(
-name => 'groups',
-excludeGroups => $groups,
-label => WebGUI::International::get( 605 ),
-size => 5,
-multiple => 1
);
$f->submit;
my $output = '<h1>' . WebGUI::International::get( 813 ) . '</h1><div align="center">'
. $f->print . '</div><p/><table class="tableData" align="center">'
. '<tr class="tableHeader"><td></td><td>' . WebGUI::International::get( 84 ) . '</td></tr>';
my $p = WebGUI::Paginator->new( WebGUI::URL::page( 'op=manageGroupsInGroup' ) );
$p->setDataByQuery( "select a.groupName as name,a.groupId as id from groups a
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $p, $group, $groups, $f);
$output = '<h1>'.WebGUI::International::get(813).'</h1><div align="center">';
$f = WebGUI::HTMLForm->new;
$f->hidden("op","addGroupsToGroupSave");
$f->hidden("gid",$session{form}{gid});
$groups = WebGUI::Grouping::getGroupsInGroup($session{form}{gid});
push(@$groups,$session{form}{gid});
$f->group(
-name=>"groups",
-excludeGroups=>$groups,
-label=>WebGUI::International::get(605),
-size=>5,
-multiple=>1
);
$f->submit;
$output .= $f->print;
$output .= '</div><p/><table class="tableData" align="center">';
$output .= '<tr class="tableHeader"><td></td><td>'.WebGUI::International::get(84).'</td></tr>';
$p = WebGUI::Paginator->new(WebGUI::URL::page('op=manageGroupsInGroup'));
$p->setDataByQuery("select a.groupName as name,a.groupId as id from groups a
left join groupGroupings b on a.groupId=b.groupId
where b.inGroup=$session{form}{gid} order by a.groupName" );
where b.inGroup=$session{form}{gid} order by a.groupName");
$groups = $p->getPageData;
for my $group ( @$groups ) {
foreach $group (@$groups) {
$output .= '<tr><td>'
. deleteIcon( 'op=deleteGroupGrouping&gid=' . $session{ form }{ gid } . '&delete=' . $group->{ id } )
. '</td><td><a href="' . WebGUI::URL::page( 'op=editGroup&gid=' . $group->{ id } )
. '">' . $group->{ name } . '</a></td></tr>';
.deleteIcon('op=deleteGroupGrouping&gid='.$session{form}{gid}.'&delete='.$group->{id})
.'</td><td><a href="'.WebGUI::URL::page('op=editGroup&gid='.$group->{id}).'">'
.$group->{name}.'</a></td></tr>';
}
$output .= '</table>' . $p->getBarTraditional;
return _submenu( $output );
$output .= '</table>';
$output .= $p->getBarTraditional;
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_manageUsersInGroup {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my $output = '<h1>' . WebGUI::International::get( 88 ) . '</h1>';
. '<table align="center" border="1" cellpadding="2" cellspacing="0"><tr><td class="tableHeader">&nbsp;</td><td class="tableHeader">'
. WebGUI::International::get( 50 ) . '</td><td class="tableHeader">'
. WebGUI::International::get( 369 ) . '</td></tr>';
my $sth = WebGUI::SQL->read( "select users.username,users.userId,groupings.expireDate
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $sth, %hash);
tie %hash, 'Tie::CPHash';
$output = '<h1>'.WebGUI::International::get(88).'</h1>';
$output .= '<table align="center" border="1" cellpadding="2" cellspacing="0"><tr><td class="tableHeader">&nbsp;</td>
<td class="tableHeader">'.WebGUI::International::get(50).'</td>
<td class="tableHeader">'.WebGUI::International::get(369).'</td></tr>';
$sth = WebGUI::SQL->read("select users.username,users.userId,groupings.expireDate
from groupings,users where groupings.groupId=$session{form}{gid} and groupings.userId=users.userId
order by users.username" );
tie my %hash, 'Tie::CPHash';
while ( %hash = $sth->hash ) {
$output .= '<tr><td>'
. deleteIcon( 'op=deleteGrouping&uid=' . $hash{ userId } . '&gid=' . $session{ form }{ gid } )
. editIcon( 'op=editGrouping&uid=' . $hash{ userId } . '&gid=' . $session{ form }{ gid } )
. '</td>'
. '<td class="tableData"><a href="' . WebGUI::URL::page( 'op=editUser&uid=' . $hash{ userId } ) . '">'
. $hash{ username } . '</a></td>'
. '<td class="tableData">' . epochToHuman( $hash{ expireDate }, '%z' ) . '</td></tr>';
}
$sth->finish;
$output .= '</table>';
return _submenu( $output );
order by users.username");
while (%hash = $sth->hash) {
$output .= '<tr><td>'
.deleteIcon('op=deleteGrouping&uid='.$hash{userId}.'&gid='.$session{form}{gid})
.editIcon('op=editGrouping&uid='.$hash{userId}.'&gid='.$session{form}{gid})
.'</td>';
$output .= '<td class="tableData"><a href="'.WebGUI::URL::page('op=editUser&uid='.$hash{userId}).'">'
.$hash{username}.'</a></td>';
$output .= '<td class="tableData">'.epochToHuman($hash{expireDate},"%z").'</td></tr>';
}
$sth->finish;
$output .= '</table>';
return _submenu($output);
}
1;
1;

476
lib/WebGUI/Operation/International.pm
View file

@ -24,313 +24,335 @@ use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_listLanguages &www_editLanguage &www_submitTranslation &www_submitTranslationConfirm
&www_deleteLanguage &www_deleteLanguageConfirm &www_addInternationalMessage &www_addInternationalMessageSave
&www_listInternationalMessages &www_editLanguageSave &www_editInternationalMessage
&www_exportTranslation &www_editInternationalMessageSave );
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_listLanguages &www_editLanguage &www_submitTranslation &www_submitTranslationConfirm
&www_deleteLanguage &www_deleteLanguageConfirm &www_addInternationalMessage &www_addInternationalMessageSave
&www_listInternationalMessages &www_editLanguageSave &www_editInternationalMessage
&www_exportTranslation &www_editInternationalMessageSave );
#-------------------------------------------------------------------
sub _export {
tie my %data, 'Tie::CPHash';
%data = WebGUI::SQL->quickHash( 'select * from language where languageId=' . $_[ 0 ] );
my $export = '#Exported from ' . $session{ setting }{ companyName } . ' (http://' . $session{ env }{ SERVER_NAME } . ') by '
. $session{ user }{ username } . ' (' . $session{ user }{ email } . ")\n"
. '#' . $data{ language } . ' translation export for WebGUI ' . $WebGUI::VERSION . ".\n\n"
. "#language\n\n"
. 'delete from language where languageId=' . $_[ 0 ] . ";\n"
. 'insert into language (languageId,language,characterSet,toolbar) values ('
. $data{ languageId } . ', ' . quote( $data{ language } ) . ', ' . quote( $data{ characterSet } ) . ', '
. quote( $data{ toolbar } ) . ");\n"
. "\n#international messages\n\n";
my $sth = WebGUI::SQL->read( 'select * from international where languageId=' . $_[ 0 ] . ' order by lastUpdated desc' );
while ( %data = $sth->hash ) {
$export .= 'delete from international where languageId=' . $_[ 0 ] . ' and namespace='
. quote( $data{ namespace } ) . ' and internationalId=' . $data{ internationalId } . ";\n"
. 'insert into international (internationalId,languageId,namespace,message,lastUpdated) values ('
. $data{ internationalId } . ',' . $data{ languageId } . ',' . quote( $data{ namespace } )
. ',' . quote( $data{ message } ) . ', ' . $data{ lastUpdated } . ");\n";
}
$sth->finish;
my ($sth, %data, $export);
tie %data, 'Tie::CPHash';
%data = WebGUI::SQL->quickHash("select * from language where languageId=".$_[0]);
$export = "#Exported from ".$session{setting}{companyName}." (http://".$session{env}{SERVER_NAME}.") by "
.$session{user}{username}." (".$session{user}{email}.")\n";
$export .= "#".$data{language}." translation export for WebGUI ".$WebGUI::VERSION.".\n\n";
$export .= "#language\n\n";
$export .= "delete from language where languageId=".$_[0].";\n";
$export .= "insert into language (languageId,language,characterSet,toolbar) values ("
.$data{languageId}.", ".quote($data{language}).", ".quote($data{characterSet}).", "
.quote($data{toolbar}).");\n";
$export .= "\n#international messages\n\n";
$sth = WebGUI::SQL->read("select * from international where languageId=".$_[0]." order by lastUpdated desc");
while (%data = $sth->hash) {
$export .= "delete from international where languageId=".$_[0]." and namespace="
.quote($data{namespace})." and internationalId=".$data{internationalId}.";\n";
$export .= "insert into international (internationalId,languageId,namespace,message,lastUpdated) values ("
.$data{internationalId}.",".$data{languageId}.",".quote($data{namespace})
.",".quote($data{message}).", ".$data{lastUpdated}.");\n";
}
$sth->finish;
return $export;
}
#-------------------------------------------------------------------
sub _submenu {
tie my %menu, 'Tie::IxHash';
$menu{ WebGUI::URL::page( 'op=editLanguage&lid=new' ) } = WebGUI::International::get( 584 );
if ( $session{ form }{ lid } == 1 ) {
$menu{ WebGUI::URL::page( 'op=addInternationalMessage&lid=1' ) } = 'Add a new message.';
my (%menu);
tie %menu, 'Tie::IxHash';
$menu{WebGUI::URL::page('op=editLanguage&lid=new')} = WebGUI::International::get(584);
if ($session{form}{lid} == 1) {
$menu{WebGUI::URL::page('op=addInternationalMessage&lid=1')} = "Add a new message.";
}
if ( $session{ form }{ lid } ne 'new' && $session{ form }{ lid } ne '' ) {
$menu{ WebGUI::URL::page( 'op=listInternationalMessages&lid=' . $session{ form }{ lid } ) } =
WebGUI::International::get( 594 );
$menu{ WebGUI::URL::page( 'op=exportTranslation&lid=' . $session{ form }{ lid } ) } = WebGUI::International::get( 718 );
$menu{ WebGUI::URL::page( 'op=submitTranslation&lid=' . $session{ form }{ lid } ) } = WebGUI::International::get( 593 );
$menu{ WebGUI::URL::page( 'op=editLanguage&lid=' . $session{ form }{ lid } ) } = WebGUI::International::get( 598 );
$menu{ WebGUI::URL::page( 'op=deleteLanguage&lid=' . $session{ form }{ lid } ) } = WebGUI::International::get( 791 );
}
$menu{ WebGUI::URL::page( 'op=listLanguages' ) } = WebGUI::International::get( 585 );
return menuWrapper( $_[ 0 ], \%menu );
if ($session{form}{lid} ne "new" && $session{form}{lid} ne "") {
$menu{WebGUI::URL::page('op=listInternationalMessages&lid='.$session{form}{lid})} =
WebGUI::International::get(594);
$menu{WebGUI::URL::page('op=exportTranslation&lid='.$session{form}{lid})} = WebGUI::International::get(718);
$menu{WebGUI::URL::page('op=submitTranslation&lid='.$session{form}{lid})} = WebGUI::International::get(593);
$menu{WebGUI::URL::page('op=editLanguage&lid='.$session{form}{lid})} = WebGUI::International::get(598);
$menu{WebGUI::URL::page("op=deleteLanguage&lid=".$session{form}{lid})} = WebGUI::International::get(791);
}
$menu{WebGUI::URL::page('op=listLanguages')} = WebGUI::International::get(585);
return menuWrapper($_[0],\%menu);
}
#-------------------------------------------------------------------
sub www_addInternationalMessage {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my $output = '<h1>Add English Message</h1>';
my $namespace = $session{ wobject };
$namespace->{ WebGUI } = 'WebGUI';
$namespace = { %{ $namespace }, map { 'Auth/' . $_ => 'Authentication: ' . $session{ authentication }->{ $_ } } keys %{ $session{ authentication } } };
my $f = WebGUI::HTMLForm->new();
$f->hidden( 'lid', 1 );
$f->hidden( 'op', 'addInternationalMessageSave' );
$f->select( 'namespace', $namespace, 'Namespace', [ 'WebGUI' ] );
$f->textarea( 'message', 'Message' );
my ($output,$f,$namespace);
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
$output = '<h1>Add English Message</h1>';
$namespace = $session{wobject};
$namespace->{WebGUI} = 'WebGUI';
$namespace = {%{$namespace}, map {'Auth/'.$_ => 'Authentication: '.$session{authentication}->{$_}} keys(%{$session{authentication}})};
$f = WebGUI::HTMLForm->new();
$f->hidden("lid",1);
$f->hidden("op","addInternationalMessageSave");
$f->select("namespace",$namespace,"Namespace",['WebGUI']);
$f->textarea("message","Message");
$f->submit;
$output .= $f->print;
return _submenu( $output );
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_addInternationalMessageSave {
my ( $nextId ) = WebGUI::SQL->quickArray( 'select max(internationalId) from international where languageId=1
and namespace=' . quote( $session{ form }{ namespace } ) );
my ($nextId);
($nextId) = WebGUI::SQL->quickArray("select max(internationalId) from international where languageId=1
and namespace=".quote($session{form}{namespace}));
$nextId++;
WebGUI::SQL->write( "insert into international (languageId, internationalId, namespace, message, lastUpdated) values
(1,$nextId," . quote( $session{ form }{ namespace } ) . ',' . quote( $session{ form }{ message } ) . ',' . time() . ')' );
return "<b>Message was added with id $nextId.</b>" . www_listInternationalMessages();
WebGUI::SQL->write("insert into international (languageId, internationalId, namespace, message, lastUpdated) values
(1,$nextId,".quote($session{form}{namespace}).",".quote($session{form}{message}).",".time().")");
return "<b>Message was added with id $nextId.</b>".www_listInternationalMessages();
}
#-------------------------------------------------------------------
sub www_deleteLanguage {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
return WebGUI::Privilege::vitalComponent() if $session{ form }{ lid } < 1000 and $session{ form }{ lid } > 0;
my $output = '<h1>' . WebGUI::International::get( 42 ) . '</h1>'
. WebGUI::International::get( 587 ) . '<p>'
. '<div align="center"><a href="'
. WebGUI::URL::page( 'op=deleteLanguageConfirm&lid=' . $session{ form }{ lid } )
. '">' . WebGUI::International::get( 44 ) . '</a>'
. '&nbsp;&nbsp;&nbsp;&nbsp;<a href="' . WebGUI::URL::page( 'op=listLanguages' )
. '">' . WebGUI::International::get( 45 ) . '</a></div>';
return _submenu( $output );
my ($output);
return WebGUI::Privilege::vitalComponent() if ($session{form}{lid} < 1000 && $session{form}{lid} > 0);
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
$output .= '<h1>'.WebGUI::International::get(42).'</h1>';
$output .= WebGUI::International::get(587).'<p>';
$output .= '<div align="center"><a href="'.
WebGUI::URL::page('op=deleteLanguageConfirm&lid='.$session{form}{lid})
.'">'.WebGUI::International::get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.WebGUI::URL::page('op=listLanguages').
'">'.WebGUI::International::get(45).'</a></div>';
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_deleteLanguageConfirm {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
return WebGUI::Privilege::vitalComponent() if $session{ form }{ lid } < 1000 and $session{ form }{ lid } > 0;
WebGUI::SQL->write( 'delete from language where languageId=' . $session{ form }{ lid } );
WebGUI::SQL->write( 'delete from international where languageId=' . $session{ form }{ lid } );
WebGUI::SQL->write( q[delete from userProfileData where fieldName='language' and fieldData=] . $session{ form }{ lid } );
$session{ form }{ lid } = '';
return www_listLanguages();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
return WebGUI::Privilege::vitalComponent() if ($session{form}{lid} < 1000 && $session{form}{lid} > 0);
WebGUI::SQL->write("delete from language where languageId=".$session{form}{lid});
WebGUI::SQL->write("delete from international where languageId=".$session{form}{lid});
WebGUI::SQL->write("delete from userProfileData where fieldName='language' and fieldData=".$session{form}{lid});
$session{form}{lid} = "";
return www_listLanguages();
}
#-------------------------------------------------------------------
sub www_editInternationalMessage {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my ( $language ) = WebGUI::SQL->quickArray( 'select language from language where languageId=' . $session{ form }{ lid } );
my $output = '<h1>' . WebGUI::International::get( 597 ) . '</h1>';
my $f = WebGUI::HTMLForm->new;
$f->readOnly( $session{ form }{ iid }, WebGUI::International::get( 601 ) );
$f->hidden( 'lid', $session{ form }{ lid } );
$f->hidden( 'status', $session{ form }{ status } );
$f->hidden( 'iid', $session{ form }{ iid } );
$f->hidden( 'pn', $session{ form }{ pn } );
$f->hidden( 'namespace', $session{ form }{ namespace } );
$f->hidden( 'op', 'editInternationalMessageSave' );
my ( $message ) = WebGUI::SQL->quickArray( 'select message from international where internationalId=' . $session{ form }{ iid }
. q[ and namespace='] . $session{ form }{ namespace } . q[' and languageId=] . $session{ form }{ lid } );
$f->textarea( 'message', $language, $message );
$f->submit;
( $message ) = WebGUI::SQL->quickArray( 'select message from international where internationalId=' . $session{ form }{ iid }
. q[ and namespace='] . $session{ form }{ namespace } . q[' and languageId=1] );
$f->readOnly( $message, 'English' );
$output .= $f->print;
return _submenu( $output );
my ($output, $message, $f, $language);
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
($language) = WebGUI::SQL->quickArray("select language from language where languageId=".$session{form}{lid});
$output = '<h1>'.WebGUI::International::get(597).'</h1>';
$f = WebGUI::HTMLForm->new;
$f->readOnly($session{form}{iid},WebGUI::International::get(601));
$f->hidden("lid",$session{form}{lid});
$f->hidden("status",$session{form}{status});
$f->hidden("iid",$session{form}{iid});
$f->hidden("pn",$session{form}{pn});
$f->hidden("namespace",$session{form}{namespace});
$f->hidden("op","editInternationalMessageSave");
($message) = WebGUI::SQL->quickArray("select message from international where internationalId=".$session{form}{iid}."
and namespace='".$session{form}{namespace}."' and languageId=".$session{form}{lid});
$f->textarea("message",$language,$message);
$f->submit;
($message) = WebGUI::SQL->quickArray("select message from international where internationalId=".$session{form}{iid}."
and namespace='".$session{form}{namespace}."' and languageId=1");
$f->readOnly($message,"English");
$output .= $f->print;
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_editInternationalMessageSave {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
if ( $session{ form }{ status } eq 'missing' ) {
WebGUI::SQL->write( 'insert into international (message,namespace,languageId,internationalId,lastUpdated) values ('
. quote( $session{ form }{ message } ) . ',' . quote( $session{ form }{ namespace } )
. ',' . $session{ form }{ lid } . ',' . $session{ form }{ iid } . ', ' . time() . ')' );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
if ($session{form}{status} eq "missing") {
WebGUI::SQL->write("insert into international (message,namespace,languageId,internationalId,lastUpdated)
values (".quote($session{form}{message}).",".quote($session{form}{namespace})
.",".$session{form}{lid}.",".$session{form}{iid}.", ".time().")");
} else {
WebGUI::SQL->write("update international set message=".quote($session{form}{message}).", lastUpdated="
.time()." where namespace=".quote($session{form}{namespace})."
and languageId=".$session{form}{lid}." and internationalId=".$session{form}{iid});
}
else {
WebGUI::SQL->write( 'update international set message=' . quote( $session{ form }{ message } )
. ', lastUpdated=' . time() . ' where namespace=' . quote( $session{ form }{ namespace } )
. ' and languageId=' . $session{ form }{ lid } . ' and internationalId=' . $session{ form }{ iid } );
}
return www_listInternationalMessages();
return www_listInternationalMessages();
}
#-------------------------------------------------------------------
sub www_editLanguage {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my $dir = $session{ config }{ extrasPath } . $session{ os }{ slash } . 'toolbar';
opendir my $dh, $dir or WebGUI::ErrorHandler::warn( "Can't open toolbar directory $dir: $!" );
my @files = grep !/^\.\.?$/, readdir $dh;
closedir $dh;
my %options;
@options{ @files } = @files;
tie my %data, 'Tie::CPHash';
if ( $session{ form }{ lid } eq 'new' ) {
$data{ characterSet } = 'ISO-8859-1';
$data{ toolbar } = 'default';
my ($output, $dir, @files, $file, %data, $f, %options);
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
tie %data, 'Tie::CPHash';
$dir = $session{config}{extrasPath}.$session{os}{slash}."toolbar";
opendir (DIR,$dir) or WebGUI::ErrorHandler::warn("Can't open toolbar directory!");
@files = readdir(DIR);
foreach $file (@files) {
if ($file ne ".." && $file ne ".") {
$options{$file} = $file;
}
}
closedir(DIR);
if ($session{form}{lid} eq "new") {
$data{characterSet} = "ISO-8859-1";
$data{toolbar} = "default";
} else {
%data = WebGUI::SQL->quickHash("select * from language where languageId=".$session{form}{lid});
}
else {
%data = WebGUI::SQL->quickHash( 'select * from language where languageId=' . $session{ form }{ lid } );
}
my $f = WebGUI::HTMLForm->new;
$f->readOnly( $session{ form }{ lid }, WebGUI::International::get( 590 ) );
$f->hidden( 'lid', $session{ form }{ lid } );
$f->hidden( 'op', 'editLanguageSave' );
$f->text( 'language', WebGUI::International::get( 591 ), $data{ language } );
$f->text( 'characterSet', WebGUI::International::get( 592 ), $data{ characterSet } );
$f->select( 'toolbar', \%options, WebGUI::International::get( 746 ), [ $data{ toolbar } ] );
$output = '<h1>'.WebGUI::International::get(589).'</h1>';
$f = WebGUI::HTMLForm->new;
$f->readOnly($session{form}{lid},WebGUI::International::get(590));
$f->hidden("lid",$session{form}{lid});
$f->hidden("op","editLanguageSave");
$f->text("language",WebGUI::International::get(591),$data{language});
$f->text("characterSet",WebGUI::International::get(592),$data{characterSet});
$f->select("toolbar",\%options,WebGUI::International::get(746),[$data{toolbar}]);
$f->submit;
return _submenu( '<h1>' . WebGUI::International::get( 589 ) . '</h1>' . $f->print );
$output .= $f->print;
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_editLanguageSave {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
if ( $session{ form }{ lid } eq 'new' ) {
$session{ form }{ lid } = getNextId( 'languageId' );
WebGUI::SQL->write( "insert into language (languageId) values ($session{form}{lid})" );
}
WebGUI::SQL->write( 'update language set language=' . quote( $session{ form }{ language } )
. ', characterSet=' . quote( $session{ form }{ characterSet } ) . ', toolbar=' . quote( $session{ form }{ toolbar } )
. ' where languageId=' . $session{ form }{ lid } );
return www_editLanguage();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
if ($session{form}{lid} eq "new") {
$session{form}{lid} = getNextId("languageId");
WebGUI::SQL->write("insert into language (languageId) values ($session{form}{lid})");
}
WebGUI::SQL->write("update language set language=".quote($session{form}{language}).",
characterSet=".quote($session{form}{characterSet}).", toolbar=".quote($session{form}{toolbar})."
where languageId=".$session{form}{lid});
return www_editLanguage();
}
#-------------------------------------------------------------------
sub www_exportTranslation {
$session{ header }{ mimetype } = 'text/plain';
return _export( $session{ form }{ lid } );
$session{header}{mimetype} = 'text/plain';
return _export($session{form}{lid});
}
#-------------------------------------------------------------------
sub www_listInternationalMessages {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
tie my %data, 'Tie::CPHash';
%data = WebGUI::SQL->quickHash( 'select language from language where languageId=' . $session{ form }{ lid } );
my $missing = '<b>' . WebGUI::International::get( 596 ) . '</b>';
my $outOfDate = '<b>' . WebGUI::International::get( 719 ) . '</b>';
my $ok = WebGUI::International::get( 720 );
my $deprecated = WebGUI::International::get( 723 );
my $output = '<h1>' . WebGUI::International::get( 595 ) . ' (' . $data{ language } . ')</h1>';
my $f = WebGUI::HTMLForm->new( 1 );
$f->hidden( 'op', 'listInternationalMessages' );
$f->hidden( 'lid', $session{ form }{ lid } );
$f->text( 'search', '', $session{ form }{ search } );
$f->submit( 'search' );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $sth, $key, $p, $search, $status,%data, %list, $deprecated, $i, $missing, @row, $f, $outOfDate, $ok);
tie %data, 'Tie::CPHash';
%data = WebGUI::SQL->quickHash("select language from language where languageId=".$session{form}{lid});
$missing = '<b>'.WebGUI::International::get(596).'</b>';
$outOfDate = '<b>'.WebGUI::International::get(719).'</b>';
$ok = WebGUI::International::get(720);
$deprecated = WebGUI::International::get(723);
$output = '<h1>'.WebGUI::International::get(595).' ('.$data{language}.')</h1>';
$f = WebGUI::HTMLForm->new(1);
$f->hidden("op","listInternationalMessages");
$f->hidden("lid",$session{form}{lid});
$f->text("search","",$session{form}{search});
$f->submit("search");
$output .= $f->print;
my $search = ' and message like ' . quote( '%' . $session{ form }{ search } . '%' )
if $session{ form }{ search } ne '';
my $sth = WebGUI::SQL->read( 'select * from international where languageId=' . $session{ form }{ lid } . $search );
my %list;
while ( %data = $sth->hash ) {
@{ $list{ "z-$data{namespace}-$data{internationalId}" } }{ qw[id namespace message lastUpdated status] }
= ( @data{ qw[internationalId namespace message lastUpdated] }, 'deleted' );
if ($session{form}{search} ne "") {
$search = " and message like ".quote("%".$session{form}{search}."%");
}
$sth->finish;
$sth = WebGUI::SQL->read( 'select * from international where languageId=1' );
while ( %data = $sth->hash ) {
my $key = $data{ namespace } . '-' . $data{ internationalId };
if ( $list{ 'z-' . $key } ) {
if ( $list{ 'z-' . $key }{ lastUpdated } < $data{ lastUpdated } ) {
$list{ 'o-' . $key } = delete $list{ 'z-' . $key };
$list{ 'o-' . $key }{ status } = 'updated';
}
else {
$list{ 'q-' . $key } = delete $list{ 'z-' . $key };
$list{ 'q-' . $key }{ status } = 'ok';
$sth = WebGUI::SQL->read("select * from international where languageId=".$session{form}{lid}.$search);
while (%data = $sth->hash) {
$list{"z-".$data{namespace}."-".$data{internationalId}}{id} = $data{internationalId};
$list{"z-".$data{namespace}."-".$data{internationalId}}{namespace} = $data{namespace};
$list{"z-".$data{namespace}."-".$data{internationalId}}{message} = $data{message};
$list{"z-".$data{namespace}."-".$data{internationalId}}{lastUpdated} = $data{lastUpdated};
$list{"z-".$data{namespace}."-".$data{internationalId}}{status} = "deleted";
}
$sth->finish;
$sth = WebGUI::SQL->read("select * from international where languageId=1");
while (%data = $sth->hash) {
$key = $data{namespace}."-".$data{internationalId};
if ($session{form}{search} ne "") {
if ($list{"z-".$key}) {
if ($list{"z-".$key}{lastUpdated} < $data{lastUpdated}) {
$list{"o-".$key} = $list{"z-".$key};
delete($list{"z-".$key});
$list{"o-".$key}{status} = "updated";
} else {
$list{"q-".$key} = $list{"z-".$key};
delete($list{"z-".$key});
$list{"q-".$key}{status} = "ok";
}
}
} else {
unless ($list{"z-".$key}) {
$list{"a-".$key}{namespace} = $data{namespace};
$list{"a-".$key}{id} = $data{internationalId};
$list{"a-".$key}{status} = "missing";
} else {
if ($list{"z-".$key}{lastUpdated} < $data{lastUpdated}) {
$list{"o-".$key} = $list{"z-".$key};
delete($list{"z-".$key});
$list{"o-".$key}{status} = "updated";
} else {
$list{"q-".$key} = $list{"z-".$key};
delete($list{"z-".$key});
$list{"q-".$key}{status} = "ok";
}
}
}
elsif ( $session{ form }{ search } eq '' ) {
@{ $list{ 'a-' . $key } }{ qw[namespace id status] }
= ( @data{ qw[namespace internationalId] }, 'missing' );
}
}
$sth->finish;
my @row;
for my $key ( sort keys %list ) {
my $status = $ok;
if ( $list{ $key }{ status } eq 'updated' ) {
}
$sth->finish;
foreach $key (sort {$a cmp $b} keys %list) {
if ($list{$key}{status} eq "updated") {
$status = $outOfDate;
}
elsif ( $list{ $key }{ status } eq 'missing' ) {
} elsif ($list{$key}{status} eq "missing") {
$status = $missing;
}
elsif ( $list{ $key }{ status } eq 'deleted' ) {
} elsif ($list{$key}{status} eq "deleted") {
$status = $deprecated;
} else {
$status = $ok;
}
push @row, '<tr valign="top"><td nowrap="1">' . $status . '</td><td>'
. editIcon( 'op=editInternationalMessage&lid=' . $session{ form }{ lid }
. '&iid=' . $list{ $key }{ id } . '&namespace=' . $list{ $key }{ namespace } . '&pn=' . $session{ form }{ pn }
. '&status=' . $list{ $key }{ status } ) . '</td><td>' . $list{ $key }{ namespace } . '</td><td>'
. $list{ $key }{ id } . '</td><td>' . $list{ $key }{ message } . "</td></tr>\n";
}
my $p = WebGUI::Paginator->new( WebGUI::URL::page( 'op=listInternationalMessages&lid=' . $session{ form }{ lid } ), \@row, 100 );
$output .= $p->getBarTraditional( $session{ form }{ pn } )
. '<table style="font-size: 11px;" width="100%">'
. '<tr><td class="tableHeader">' . WebGUI::International::get( 434 ) . '</td><td class="tableHeader">'
. WebGUI::International::get( 575 ) . '</td><td class="tableHeader">' . WebGUI::International::get( 721 )
. '</td><td class="tableHeader">' . WebGUI::International::get( 722 )
. '</td><td class="tableHeader" width="100%">' . WebGUI::International::get( 230 ) . '</td></tr>'
. $p->getPage( $session{ form }{ pn } )
. '</table>'
. $p->getBarTraditional( $session{ form }{ pn } );
return _submenu( $output );
$row[$i] = '<tr valign="top"><td nowrap="1">'.$status."</td><td>"
.editIcon('op=editInternationalMessage&lid='.$session{form}{lid}
.'&iid='.$list{$key}{id}.'&namespace='.$list{$key}{namespace}.'&pn='.$session{form}{pn}
."&status=".$list{$key}{status})."</td><td>".$list{$key}{namespace}."</td><td>"
.$list{$key}{id}."</td><td>".$list{$key}{message}."</td></tr>\n";
$i++;
}
$p = WebGUI::Paginator->new(WebGUI::URL::page('op=listInternationalMessages&lid='.$session{form}{lid}),\@row,100);
$output .= $p->getBarTraditional($session{form}{pn});
$output .= '<table style="font-size: 11px;" width="100%">';
$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(434).'</td><td class="tableHeader">'.
WebGUI::International::get(575).'</td><td class="tableHeader">'.WebGUI::International::get(721)
.'</td><td class="tableHeader">'.WebGUI::International::get(722)
.'</td><td class="tableHeader" width="100%">'.WebGUI::International::get(230).'</td></tr>';
$output .= $p->getPage($session{form}{pn});
$output .= '</table>';
$output .= $p->getBarTraditional($session{form}{pn});
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_listLanguages {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
tie my %data, 'Tie::CPHash';
my $output = '<h1>' . WebGUI::International::get( 586 ) . '</h1>';
my $sth = WebGUI::SQL->read( 'select languageId,language from language where languageId<>1 order by language' );
while ( %data = $sth->hash ) {
$output .= '<a href="' . WebGUI::URL::page( 'op=editLanguage&lid=' . $data{ languageId } ) . '">' . $data{ language } . '<br>';
my ($output, $sth, %data);
tie %data, 'Tie::CPHash';
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
$output = '<h1>'.WebGUI::International::get(586).'</h1>';
$sth = WebGUI::SQL->read("select languageId,language from language where languageId<>1 order by language");
while (%data = $sth->hash) {
$output .= '<a href="'.WebGUI::URL::page("op=editLanguage&lid=".$data{languageId}).'">'.$data{language}.'<br>';
}
$sth->finish;
return _submenu( $output );
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_submitTranslation {
my $output = '<h1>' . WebGUI::International::get( 42 ) . '</h1>'
. WebGUI::International::get( 588 ) . '<p>'
. '<div align="center"><a href="'
. WebGUI::URL::page( 'op=submitTranslationConfirm&lid=' . $session{ form }{ lid } )
. '">' . WebGUI::International::get( 44 ) . '</a>'
. '&nbsp;&nbsp;&nbsp;&nbsp;<a href="' . WebGUI::URL::page( 'op=listLanguages' )
. '">' . WebGUI::International::get( 45 ) . '</a></div>';
return _submenu( $output );
my ($output);
$output .= '<h1>'.WebGUI::International::get(42).'</h1>';
$output .= WebGUI::International::get(588).'<p>';
$output .= '<div align="center"><a href="'.
WebGUI::URL::page('op=submitTranslationConfirm&lid='.$session{form}{lid})
.'">'.WebGUI::International::get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.WebGUI::URL::page('op=listLanguages').
'">'.WebGUI::International::get(45).'</a></div>';
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_submitTranslationConfirm {
WebGUI::Mail::send( 'info@plainblack.com', 'International Message Submission', _export( $session{ form }{ lid } ) );
WebGUI::Mail::send("info\@plainblack.com","International Message Submission",_export($session{form}{lid}));
return www_editLanguage();
}
1;

431
lib/WebGUI/Operation/ProfileSettings.pm
View file

@ -22,298 +22,307 @@ use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
our @ISA = qw(Exporter);
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_deleteProfileCategoryConfirm &www_deleteProfileFieldConfirm &www_editProfileCategorySave &www_editProfileFieldSave &www_deleteProfileCategory &www_deleteProfileField &www_editProfileCategory &www_editProfileField &www_moveProfileCategoryDown &www_moveProfileCategoryUp &www_moveProfileFieldDown &www_moveProfileFieldUp &www_editProfileSettings);
#-------------------------------------------------------------------
sub _reorderCategories {
my $sth = WebGUI::SQL->read( 'select profileCategoryId from userProfileCategory order by sequenceNumber' );
my $i = 1;
while ( my ( $id ) = $sth->array ) {
WebGUI::SQL->write( q[update userProfileCategory set sequenceNumber='] . $i++ . q[' where profileCategoryId=] . $id );
}
$sth->finish;
my ($sth, $i, $id);
$sth = WebGUI::SQL->read("select profileCategoryId from userProfileCategory order by sequenceNumber");
while (($id) = $sth->array) {
$i++;
WebGUI::SQL->write("update userProfileCategory set sequenceNumber='$i' where profileCategoryId=$id");
}
$sth->finish;
}
#-------------------------------------------------------------------
sub _reorderFields {
my ( $sth, $i, $id );
my $sth = WebGUI::SQL->read( 'select fieldName from userProfileField where profileCategoryId=' . quote( $_[ 0 ] ) . ' order by sequenceNumber' );
my $i = 1;
while ( my ( $id ) = $sth->array ) {
WebGUI::SQL->write( q[update userProfileField set sequenceNumber='] . $i++ . q[' where fieldName=] . quote( $id ) );
}
$sth->finish;
my ($sth, $i, $id);
$sth = WebGUI::SQL->read("select fieldName from userProfileField where profileCategoryId=".quote($_[0])." order by sequenceNumber");
while (($id) = $sth->array) {
$i++;
WebGUI::SQL->write("update userProfileField set sequenceNumber='$i' where fieldName=".quote($id));
}
$sth->finish;
}
#-------------------------------------------------------------------
sub _submenu {
tie my %menu, 'Tie::IxHash';
$menu{ WebGUI::URL::page( 'op=editProfileCategory' ) } = WebGUI::International::get( 490 );
$menu{ WebGUI::URL::page( 'op=editProfileField' ) } = WebGUI::International::get( 491 );
if ( ( $session{ form }{ op } eq 'editProfileField' and $session{ form }{ fid } ne 'new' ) or $session{ form }{ op } eq 'deleteProfileField' ) {
$menu{ WebGUI::URL::page( 'op=editProfileField&fid=' . $session{ form }{ fid } ) } = WebGUI::International::get( 787 );
$menu{ WebGUI::URL::page( 'op=deleteProfileField&fid=' . $session{ form }{ fid } ) } = WebGUI::International::get( 788 );
my (%menu);
tie %menu, 'Tie::IxHash';
$menu{WebGUI::URL::page("op=editProfileCategory")} = WebGUI::International::get(490);
$menu{WebGUI::URL::page("op=editProfileField")} = WebGUI::International::get(491);
if (($session{form}{op} eq "editProfileField" && $session{form}{fid} ne "new") || $session{form}{op} eq "deleteProfileField") {
$menu{WebGUI::URL::page('op=editProfileField&fid='.$session{form}{fid})} = WebGUI::International::get(787);
$menu{WebGUI::URL::page('op=deleteProfileField&fid='.$session{form}{fid})} = WebGUI::International::get(788);
}
if ( ( $session{ form }{ op } eq 'editProfileCategory' and $session{ form }{ cid } ne 'new' ) or $session{ form }{ op } eq 'deleteProfileCategory' ) {
$menu{ WebGUI::URL::page( 'op=editProfileCategory&cid=' . $session{ form }{ cid } ) } = WebGUI::International::get( 789 );
$menu{ WebGUI::URL::page( 'op=deleteProfileCategory&cid=' . $session{ form }{ cid } ) } = WebGUI::International::get( 790 );
}
$menu{ WebGUI::URL::page( 'op=editProfileSettings' ) } = WebGUI::International::get( 492 );
$menu{ WebGUI::URL::page( 'op=manageSettings' ) } = WebGUI::International::get( 4 );
return menuWrapper( $_[ 0 ], \%menu );
if (($session{form}{op} eq "editProfileCategory" && $session{form}{cid} ne "new") || $session{form}{op} eq "deleteProfileCategory") {
$menu{WebGUI::URL::page('op=editProfileCategory&cid='.$session{form}{cid})} = WebGUI::International::get(789);
$menu{WebGUI::URL::page('op=deleteProfileCategory&cid='.$session{form}{cid})} = WebGUI::International::get(790);
}
$menu{WebGUI::URL::page("op=editProfileSettings")} = WebGUI::International::get(492);
$menu{WebGUI::URL::page('op=manageSettings')} = WebGUI::International::get(4);
return menuWrapper($_[0],\%menu);
}
#-------------------------------------------------------------------
sub www_deleteProfileCategory {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
return WebGUI::Privilege::vitalComponent() if $session{ form }{ cid } < 1000;
my $output = '<h1>' . WebGUI::International::get( 42 ) . '</h1>'
. WebGUI::International::get( 466 ) . '<p>'
. '<div align="center"><a href="' . WebGUI::URL::page( 'op=deleteProfileCategoryConfirm&cid='
. $session{ form }{ cid } ) . '">' . WebGUI::International::get( 44 ) . '</a>'
. '&nbsp;&nbsp;&nbsp;&nbsp;<a href="' . WebGUI::URL::page( 'op=editProfileSettings' ) . '">'
. WebGUI::International::get( 45 ) . '</a></div>';
return _submenu( $output );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output);
return WebGUI::Privilege::vitalComponent() if ($session{form}{cid} < 1000);
$output = '<h1>'.WebGUI::International::get(42).'</h1>';
$output .= WebGUI::International::get(466).'<p>';
$output .= '<div align="center"><a href="'.WebGUI::URL::page('op=deleteProfileCategoryConfirm&cid='.$session{form}{cid}).
'">'.WebGUI::International::get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.WebGUI::URL::page('op=editProfileSettings').'">'.
WebGUI::International::get(45).'</a></div>';
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_deleteProfileCategoryConfirm {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
return WebGUI::Privilege::vitalComponent() if $session{ form }{ cid } < 1000;
WebGUI::SQL->write( "delete from userProfileCategory where profileCategoryId=$session{form}{cid}" );
WebGUI::SQL->write( "update userProfileField set profileCategoryId=1 where profileCategoryId=$session{form}{cid}" );
return www_editProfileSettings();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
return WebGUI::Privilege::vitalComponent() if ($session{form}{cid} < 1000);
WebGUI::SQL->write("delete from userProfileCategory where profileCategoryId=$session{form}{cid}");
WebGUI::SQL->write("update userProfileField set profileCategoryId=1 where profileCategoryId=$session{form}{cid}");
return www_editProfileSettings();
}
#-------------------------------------------------------------------
sub www_deleteProfileField {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my ( $protected ) = WebGUI::SQL->quickArray( 'select protected from userProfileField where fieldname=' . quote( $session{ form }{ fid } ) );
return WebGUI::Privilege::vitalComponent() if $protected;
my $output = '<h1>' . WebGUI::International::get( 42 ) . '</h1>'
. WebGUI::International::get( 467 ) . '<p>'
. '<div align="center"><a href="' . WebGUI::URL::page( 'op=deleteProfileFieldConfirm&fid=' . $session{ form }{ fid } )
. '">' . WebGUI::International::get( 44 ) . '</a>'
. '&nbsp;&nbsp;&nbsp;&nbsp;<a href="' . WebGUI::URL::page( 'op=editProfileSettings' ) . '">'
. WebGUI::International::get( 45 ) . '</a></div>';
return _submenu( $output );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output,$protected);
($protected) = WebGUI::SQL->quickArray("select protected from userProfileField where fieldname=".quote($session{form}{fid}));
return WebGUI::Privilege::vitalComponent() if ($protected);
$output = '<h1>'.WebGUI::International::get(42).'</h1>';
$output .= WebGUI::International::get(467).'<p>';
$output .= '<div align="center"><a href="'.WebGUI::URL::page('op=deleteProfileFieldConfirm&fid='.$session{form}{fid}).
'">'.WebGUI::International::get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.WebGUI::URL::page('op=editProfileSettings').'">'.
WebGUI::International::get(45).'</a></div>';
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_deleteProfileFieldConfirm {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my ( $protected ) = WebGUI::SQL->quickArray( 'select protected from userProfileField where fieldname=' . quote( $session{ form }{ fid } ) );
return WebGUI::Privilege::vitalComponent() if $protected;
WebGUI::SQL->write( 'delete from userProfileField where fieldName=' . quote( $session{ form }{ fid } ) );
WebGUI::SQL->write( 'delete from userProfileData where fieldName=' . quote( $session{ form }{ fid } ) );
return www_editProfileSettings();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($protected);
($protected) = WebGUI::SQL->quickArray("select protected from userProfileField where fieldname=".quote($session{form}{fid}));
return WebGUI::Privilege::vitalComponent() if ($protected);
WebGUI::SQL->write("delete from userProfileField where fieldName=".quote($session{form}{fid}));
WebGUI::SQL->write("delete from userProfileData where fieldName=".quote($session{form}{fid}));
return www_editProfileSettings();
}
#-------------------------------------------------------------------
sub www_editProfileCategory {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
tie my %data, 'Tie::CPHash';
my $f = WebGUI::HTMLForm->new;
$f->hidden( 'op', 'editProfileCategorySave' );
if ( $session{ form }{ cid } ) {
$f->hidden( 'cid', $session{ form }{ cid } );
$f->readOnly( $session{ form }{ cid }, WebGUI::International::get( 469 ) );
%data = WebGUI::SQL->quickHash( "select * from userProfileCategory where profileCategoryId=$session{form}{cid}" );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $f, %data);
tie %data, 'Tie::CPHash';
$output = '<h1>'.WebGUI::International::get(468).'</h1>';
$f = WebGUI::HTMLForm->new;
$f->hidden("op","editProfileCategorySave");
if ($session{form}{cid}) {
$f->hidden("cid",$session{form}{cid});
$f->readOnly($session{form}{cid},WebGUI::International::get(469));
%data = WebGUI::SQL->quickHash("select * from userProfileCategory where profileCategoryId=$session{form}{cid}");
} else {
$f->hidden("cid","new");
}
else {
$f->hidden( 'cid', 'new' );
}
$f->text( 'categoryName', WebGUI::International::get( 470 ), $data{ categoryName } );
$f->text("categoryName",WebGUI::International::get(470),$data{categoryName});
$f->submit;
return _submenu( '<h1>' . WebGUI::International::get( 468 ) . '</h1>' . $f->print );
$output .= $f->print;
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_editProfileCategorySave {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
$session{ form }{ categoryName } = 'Unamed' if $session{ form }{ categoryName } eq '' or $session{ form }{ categoryName } eq q[''];
my $test = eval $session{ form }{ categoryName };
$session{ form }{ categoryName } = "'$session{form}{categoryName}'" if $test eq '';
if ( $session{ form }{ cid } eq 'new' ) {
my $categoryId = getNextId( 'profileCategoryId' );
my ( $sequenceNumber ) = WebGUI::SQL->quickArray( 'select max(sequenceNumber) from userProfileCategory' );
WebGUI::SQL->write( "insert into userProfileCategory values ($categoryId, " . quote( $session{ form }{ categoryName } )
. ', ' . $sequenceNumber + 1 . ')' );
}
else {
WebGUI::SQL->write( 'update userProfileCategory set categoryName=' . quote( $session{ form }{ categoryName } )
. " where profileCategoryId=$session{form}{cid}" );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($categoryId, $sequenceNumber, $test);
$session{form}{categoryName} = 'Unamed' if ($session{form}{categoryName} eq "" || $session{form}{categoryName} eq "''");
$test = eval($session{form}{categoryName});
$session{form}{categoryName} = "'".$session{form}{categoryName}."'" if ($test eq "");
if ($session{form}{cid} eq "new") {
$categoryId = getNextId("profileCategoryId");
($sequenceNumber) = WebGUI::SQL->quickArray("select max(sequenceNumber) from userProfileCategory");
WebGUI::SQL->write("insert into userProfileCategory values ($categoryId, ".quote($session{form}{categoryName}).",
".($sequenceNumber+1).")");
} else {
WebGUI::SQL->write("update userProfileCategory set categoryName=".quote($session{form}{categoryName})." where
profileCategoryId=$session{form}{cid}");
}
return www_editProfileSettings();
}
#-------------------------------------------------------------------
sub www_editProfileField {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
tie my %data, 'Tie::CPHash';
my $f = WebGUI::HTMLForm->new;
$f->hidden( 'op', 'editProfileFieldSave' );
if ( $session{ form }{ fid } ) {
$f->hidden( 'fid', $session{ form }{ fid } );
$f->readOnly( $session{ form }{ fid }, WebGUI::International::get( 470 ) );
%data = WebGUI::SQL->quickHash( 'select * from userProfileField where fieldName=' . quote( $session{ form }{ fid } ) );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $f, %data, %hash, $key);
tie %data, 'Tie::CPHash';
$output = '<h1>'.WebGUI::International::get(471).'</h1>';
$f = WebGUI::HTMLForm->new;
$f->hidden("op","editProfileFieldSave");
if ($session{form}{fid}) {
$f->hidden("fid",$session{form}{fid});
$f->readOnly($session{form}{fid},WebGUI::International::get(470));
%data = WebGUI::SQL->quickHash("select * from userProfileField where fieldName=".quote($session{form}{fid}));
} else {
$f->hidden("new",1);
$f->text("fid",WebGUI::International::get(470));
}
else {
$f->hidden( 'new', 1 );
$f->text( 'fid', WebGUI::International::get( 470 ) );
}
$f->text( 'fieldLabel', WebGUI::International::get( 472 ), $data{ fieldLabel } );
$f->yesNo( 'visible', WebGUI::International::get( 473 ), $data{ visible } );
$f->yesNo( 'required', WebGUI::International::get( 474 ), $data{ required } );
tie my %hash, 'Tie::IxHash';
my %hash = (
'text' => WebGUI::International::get( 475 ),
'textarea' => WebGUI::International::get( 476 ),
'HTMLArea' => WebGUI::International::get( 477 ),
'url' => WebGUI::International::get( 478 ),
'date' => WebGUI::International::get( 479 ),
'email' => WebGUI::International::get( 480 ),
'phone' => WebGUI::International::get( 481 ),
'integer' => WebGUI::International::get( 482 ),
'yesNo' => WebGUI::International::get( 483 ),
'select' => WebGUI::International::get( 484 )
);
$f->selectList( 'dataType', \%hash, WebGUI::International::get( 486 ), [ $data{ dataType } ] );
untie %hash;
$f->textarea( 'dataValues', WebGUI::International::get( 487 ), $data{ dataValues } );
$f->textarea( 'dataDefault', WebGUI::International::get( 488 ), $data{ dataDefault } );
$f->text("fieldLabel",WebGUI::International::get(472),$data{fieldLabel});
$f->yesNo("visible",WebGUI::International::get(473),$data{visible});
$f->yesNo("required",WebGUI::International::get(474),$data{required});
tie %hash, 'Tie::IxHash';
%hash = ( 'text'=>WebGUI::International::get(475),
'textarea'=>WebGUI::International::get(476),
'HTMLArea'=>WebGUI::International::get(477),
'url'=>WebGUI::International::get(478),
'date'=>WebGUI::International::get(479),
'email'=>WebGUI::International::get(480),
'phone'=>WebGUI::International::get(481),
'integer'=>WebGUI::International::get(482),
'yesNo'=>WebGUI::International::get(483),
'select'=>WebGUI::International::get(484)
);
$f->select("dataType",\%hash,WebGUI::International::get(486),[$data{dataType}]);
$f->textarea("dataValues",WebGUI::International::get(487),$data{dataValues});
$f->textarea("dataDefault",WebGUI::International::get(488),$data{dataDefault});
tie %hash, 'Tie::CPHash';
%hash = WebGUI::SQL->buildHash( 'select profileCategoryId,categoryName from userProfileCategory order by categoryName' );
for my $key ( keys %hash ) {
$hash{ $key } = eval $hash{ $key };
%hash = WebGUI::SQL->buildHash("select profileCategoryId,categoryName from userProfileCategory order by categoryName");
foreach $key (keys %hash) {
$hash{$key} = eval $hash{$key};
}
$f->select( 'profileCategoryId', \%hash, WebGUI::International::get( 489 ), [ $data{ profileCategoryId } ] );
$f->submit;
return _submenu( '<h1>' . WebGUI::International::get( 471 ) . '</h1>' . $f->print );
$f->select("profileCategoryId",\%hash,WebGUI::International::get(489),[$data{profileCategoryId}]);
$f->submit;
$output .= $f->print;
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_editProfileFieldSave {
return WebGUI::Privilege::adminOnly() unless ( WebGUI::Privilege::isInGroup( 3 ) );
$session{ form }{ fieldLabel } = 'Unamed' if $session{ form }{ fieldLabel } eq '' or $session{ form }{ fieldLabel } eq q[''];
my $test = eval $session{ form }{ fieldLabel };
$session{ form }{ fieldLabel } = "'$session{form}{fieldLabel}'" if $test eq '';
if ( $session{ form }{ new } ) {
my ( $fieldName ) = WebGUI::SQL->quickArray( 'select count(*) from userProfileField where fieldName='
. quote( $session{ form }{ fid } ) );
$session{ form }{ fid } .= '2' if $fieldName;
my ( $sequenceNumber ) = WebGUI::SQL->quickArray( "select max(sequenceNumber)
from userProfileField where profileCategoryId=$session{form}{profileCategoryId}" );
WebGUI::SQL->write( 'insert into userProfileField (fieldName, sequenceNumber, protected) values ('
. quote( $session{ form }{ fid } ) . ', ' . $sequenceNumber + 1 . ', 0)' );
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($sequenceNumber, $fieldName, $test);
$session{form}{fieldLabel} = 'Unamed' if ($session{form}{fieldLabel} eq "" || $session{form}{fieldLabel} eq "''");
$test = eval($session{form}{fieldLabel});
$session{form}{fieldLabel} = "'".$session{form}{fieldLabel}."'" if ($test eq "");
if ($session{form}{new}) {
($fieldName) = WebGUI::SQL->quickArray("select count(*) from userProfileField
where fieldName=".quote($session{form}{fid}));
if ($fieldName) {
$session{form}{fid} .= '2';
}
($sequenceNumber) = WebGUI::SQL->quickArray("select max(sequenceNumber)
from userProfileField where profileCategoryId=$session{form}{profileCategoryId}");
WebGUI::SQL->write("insert into userProfileField (fieldName, sequenceNumber, protected)
values (".quote($session{form}{fid}).", ".($sequenceNumber+1).", 0)");
}
WebGUI::SQL->write( 'update userProfileField set
fieldLabel=' . quote( $session{ form }{ fieldLabel } ) . ",
WebGUI::SQL->write("update userProfileField set
fieldLabel=".quote($session{form}{fieldLabel}).",
visible='$session{form}{visible}',
required='$session{form}{required}',
dataType=" . quote( $session{ form }{ dataType } ) . ',
dataValues=' . quote( $session{ form }{ dataValues } ) . ',
dataDefault=' . quote( $session{ form }{ dataDefault } ) . ',
profileCategoryId=' . quote( $session{ form } {profileCategoryId } ) . '
where fieldName=' . quote( $session{ form }{ fid } ) );
dataType=".quote($session{form}{dataType}).",
dataValues=".quote($session{form}{dataValues}).",
dataDefault=".quote($session{form}{dataDefault}).",
profileCategoryId=".quote($session{form}{profileCategoryId})."
where fieldName=".quote($session{form}{fid}));
return www_editProfileSettings();
}
#-------------------------------------------------------------------
sub www_editProfileSettings {
return WebGUI::Privilege::adminOnly() unless ( WebGUI::Privilege::isInGroup( 3 ) );
my $output = helpIcon( 22 )
. '<h1>' . WebGUI::International::get( 308 ) . '</h1>';
my $a = WebGUI::SQL->read( 'select * from userProfileCategory order by sequenceNumber' );
tie my %category, 'Tie::CPHash';
while ( %category = $a->hash ) {
$output .= deleteIcon( 'op=deleteProfileCategory&cid=' . $category{ profileCategoryId } )
. editIcon( 'op=editProfileCategory&cid=' . $category{ profileCategoryId } )
. moveUpIcon( 'op=moveProfileCategoryUp&cid=' . $category{ profileCategoryId } )
. moveDownIcon( 'op=moveProfileCategoryDown&cid=' . $category{ profileCategoryId } )
. ' <b>'
. eval $category{ categoryName }
. '</b><br>';
my $b = WebGUI::SQL->read( "select * from userProfileField where
profileCategoryId=$category{profileCategoryId} order by sequenceNumber" );
tie my %field, 'Tie::CPHash';
while ( %field = $b->hash ) {
$output .= '&nbsp;' x 5
. deleteIcon( 'op=deleteProfileField&fid=' . $field{ fieldName } )
. editIcon( 'op=editProfileField&fid=' . $field{ fieldName } )
. moveUpIcon( 'op=moveProfileFieldUp&fid=' . $field{ fieldName } )
. moveDownIcon( 'op=moveProfileFieldDown&fid=' . $field{ fieldName } )
. ' '
. eval $field{ fieldLabel }
. '<br>';
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $a, %category, %field, $b);
tie %category, 'Tie::CPHash';
tie %field, 'Tie::CPHash';
$output = helpIcon(22);
$output .= '<h1>'.WebGUI::International::get(308).'</h1>';
$a = WebGUI::SQL->read("select * from userProfileCategory order by sequenceNumber");
while (%category = $a->hash) {
$output .= deleteIcon('op=deleteProfileCategory&cid='.$category{profileCategoryId});
$output .= editIcon('op=editProfileCategory&cid='.$category{profileCategoryId});
$output .= moveUpIcon('op=moveProfileCategoryUp&cid='.$category{profileCategoryId});
$output .= moveDownIcon('op=moveProfileCategoryDown&cid='.$category{profileCategoryId});
$output .= ' <b>';
$output .= eval $category{categoryName};
$output .= '</b><br>';
$b = WebGUI::SQL->read("select * from userProfileField where
profileCategoryId=$category{profileCategoryId} order by sequenceNumber");
while (%field = $b->hash) {
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
$output .= deleteIcon('op=deleteProfileField&fid='.$field{fieldName});
$output .= editIcon('op=editProfileField&fid='.$field{fieldName});
$output .= moveUpIcon('op=moveProfileFieldUp&fid='.$field{fieldName});
$output .= moveDownIcon('op=moveProfileFieldDown&fid='.$field{fieldName});
$output .= ' ';
$output .= eval $field{fieldLabel};
$output .= '<br>';
}
$b->finish;
}
$a->finish;
return _submenu( $output );
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_moveProfileCategoryDown {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my ( $thisSeq ) = WebGUI::SQL->quickArray( "select sequenceNumber from userProfileCategory where profileCategoryId=$session{form}{cid}" );
my ( $id ) = WebGUI::SQL->quickArray( "select profileCategoryId from userProfileCategory where sequenceNumber=$thisSeq+1" );
if ( $id ne '' ) {
WebGUI::SQL->write( "update userProfileCategory set sequenceNumber=sequenceNumber+1 where profileCategoryId=$session{form}{cid}" );
WebGUI::SQL->write( "update userProfileCategory set sequenceNumber=sequenceNumber-1 where profileCategoryId=$id" );
_reorderCategories();
}
return www_editProfileSettings();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($id, $thisSeq);
($thisSeq) = WebGUI::SQL->quickArray("select sequenceNumber from userProfileCategory where profileCategoryId=$session{form}{cid}");
($id) = WebGUI::SQL->quickArray("select profileCategoryId from userProfileCategory where sequenceNumber=$thisSeq+1");
if ($id ne "") {
WebGUI::SQL->write("update userProfileCategory set sequenceNumber=sequenceNumber+1 where profileCategoryId=$session{form}{cid}");
WebGUI::SQL->write("update userProfileCategory set sequenceNumber=sequenceNumber-1 where profileCategoryId=$id");
_reorderCategories();
}
return www_editProfileSettings();
}
#-------------------------------------------------------------------
sub www_moveProfileCategoryUp {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my ( $thisSeq ) = WebGUI::SQL->quickArray( "select sequenceNumber from userProfileCategory where profileCategoryId=$session{form}{cid}" );
my ( $id ) = WebGUI::SQL->quickArray( "select profileCategoryId from userProfileCategory where sequenceNumber=$thisSeq-1" );
if ( $id ne '' ) {
WebGUI::SQL->write( "update userProfileCategory set sequenceNumber=sequenceNumber-1 where profileCategoryId=$session{form}{cid}" );
WebGUI::SQL->write( "update userProfileCategory set sequenceNumber=sequenceNumber+1 where profileCategoryId=$id" );
_reorderCategories();
}
return www_editProfileSettings();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($id, $thisSeq);
($thisSeq) = WebGUI::SQL->quickArray("select sequenceNumber from userProfileCategory where profileCategoryId=$session{form}{cid}");
($id) = WebGUI::SQL->quickArray("select profileCategoryId from userProfileCategory where sequenceNumber=$thisSeq-1");
if ($id ne "") {
WebGUI::SQL->write("update userProfileCategory set sequenceNumber=sequenceNumber-1 where profileCategoryId=$session{form}{cid}");
WebGUI::SQL->write("update userProfileCategory set sequenceNumber=sequenceNumber+1 where profileCategoryId=$id");
_reorderCategories();
}
return www_editProfileSettings();
}
#-------------------------------------------------------------------
sub www_moveProfileFieldDown {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my ( $thisSeq, $profileCategoryId ) = WebGUI::SQL->quickArray( 'select sequenceNumber,profileCategoryId from userProfileField where fieldName=' . quote( $session{ form }{ fid } ) );
my ( $id ) = WebGUI::SQL->quickArray( "select fieldName from userProfileField where profileCategoryId=$profileCategoryId and sequenceNumber=$thisSeq+1" );
if ( $id ne '' ) {
WebGUI::SQL->write( 'update userProfileField set sequenceNumber=sequenceNumber+1 where fieldName=' . quote( $session{ form }{ fid } ) );
WebGUI::SQL->write( 'update userProfileField set sequenceNumber=sequenceNumber-1 where fieldName=' . quote( $id ) );
_reorderFields( $profileCategoryId );
}
return www_editProfileSettings();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($id, $thisSeq, $profileCategoryId);
($thisSeq,$profileCategoryId) = WebGUI::SQL->quickArray("select sequenceNumber,profileCategoryId from userProfileField where fieldName=".quote($session{form}{fid}));
($id) = WebGUI::SQL->quickArray("select fieldName from userProfileField where profileCategoryId=$profileCategoryId and sequenceNumber=$thisSeq+1");
if ($id ne "") {
WebGUI::SQL->write("update userProfileField set sequenceNumber=sequenceNumber+1 where fieldName=".quote($session{form}{fid}));
WebGUI::SQL->write("update userProfileField set sequenceNumber=sequenceNumber-1 where fieldName=".quote($id));
_reorderFields($profileCategoryId);
}
return www_editProfileSettings();
}
#-------------------------------------------------------------------
sub www_moveProfileFieldUp {
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my ( $thisSeq, $profileCategoryId ) = WebGUI::SQL->quickArray( 'select sequenceNumber,profileCategoryId from userProfileField where fieldName=' . quote( $session{ form }{ fid } ) );
my ( $id ) = WebGUI::SQL->quickArray( "select fieldName from userProfileField where profileCategoryId=$profileCategoryId and sequenceNumber=$thisSeq-1" );
if ( $id ne '' ) {
WebGUI::SQL->write( 'update userProfileField set sequenceNumber=sequenceNumber-1 where fieldName=' . quote( $session{ form }{ fid } ) );
WebGUI::SQL->write( 'update userProfileField set sequenceNumber=sequenceNumber+1 where fieldName=' . quote( $id ) );
_reorderFields( $profileCategoryId );
}
return www_editProfileSettings();
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($id, $thisSeq, $profileCategoryId);
($thisSeq,$profileCategoryId) = WebGUI::SQL->quickArray("select sequenceNumber,profileCategoryId from userProfileField where fieldName=".quote($session{form}{fid}));
($id) = WebGUI::SQL->quickArray("select fieldName from userProfileField where profileCategoryId=$profileCategoryId and sequenceNumber=$thisSeq-1");
if ($id ne "") {
WebGUI::SQL->write("update userProfileField set sequenceNumber=sequenceNumber-1 where fieldName=".quote($session{form}{fid}));
WebGUI::SQL->write("update userProfileField set sequenceNumber=sequenceNumber+1 where fieldName=".quote($id));
_reorderFields($profileCategoryId);
}
return www_editProfileSettings();
}
1;
1;