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

more oodles of changes.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-15 18:19:44 +00:00
parent 5473560df4
commit f2cccdff9f
27 changed files with 112 additions and 670 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Operation/ActiveSessions.pm
View file

@ -73,7 +73,7 @@ sub www_viewActiveSessions {
$sth->finish;
$p = WebGUI::Paginator->new($session,$session->url->page('op=viewActiveSessions'));
$p->setDataByArrayRef(\@row);
my $i18n = WebGUI::International->new($self->session);
my $i18n = WebGUI::International->new($session);
$output .= '<table border="1" cellpadding="5" cellspacing="0" align="center">';
$output .= '<tr class="tableHeader"><td>'.$i18n->get(428).'</td>';
$output .= '<td>'.$i18n->get(435).'</td>';

8
lib/WebGUI/Operation/Cache.pm
View file

@ -48,7 +48,7 @@ sub _submenu {
my $session = shift;
my $workarea = shift;
my $title = shift;
my $i18n = WebGUI::International->new($self->session);
my $i18n = WebGUI::International->new($session);
$title = $i18n->get($title) if ($title);
my $ac = WebGUI::AdminConsole->new($session,"cache");
if ($session->setting->get("trackPageStatistics")) {
@ -94,14 +94,14 @@ sub www_manageCache {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($output, $data);
my $cache = WebGUI::Cache->new($session,);
my $cache = WebGUI::Cache->new($session);
my $flushURL = $session->url->page('op=flushCache');
my $i18n = WebGUI::International->new($self->session);
my $i18n = WebGUI::International->new($session);
$output .= '<table>';
$output .= '<tr><td align="right" class="tableHeader">'.$i18n->get('cache type').':</td><td class="tableData">'.ref($cache).'</td></tr>';
$output .= '<tr><td align="right" valign="top" class="tableHeader">'.$i18n->get('cache statistics').':</td><td class="tableData"><pre>'.$cache->stats.'</pre></td></tr>';
$output .= '<tr><td align="right" valign="top" class="tableHeader">&nbsp;</td><td class="tableData">'.
WebGUI::Form::button({
WebGUI::Form::button($session,{
value=>$i18n->get("clear cache"),
extras=>qq{onclick="document.location.href='$flushURL';"},
}).

2
lib/WebGUI/Operation/DatabaseLink.pm
View file

@ -133,7 +133,7 @@ sub www_editDatabaseLinkSave {
my $params = {
title=>$session->form->process("title"),
username=>$session->form->process("dbusername"),
identifier=>$session->form->process("dbidentifier")
identifier=>$session->form->process("dbidentifier"),
DSN=>$session->form->process("DSN")
});
if ($session->form->process("dlid") eq "new") {

8
lib/WebGUI/Operation/FormHelpers.pm
View file

@ -38,7 +38,7 @@ sub www_formAssetTree {
$output .= '<a href="'.$child->getUrl("op=formAssetTree;classLimiter=".$session->form->process("classLimiter").";formId="
.$session->form->process("formId")).'">'.$child->get("menuTitle").'</a>'."<br />\n";
}
$session->style->useEmptyStyle("1")
$session->style->useEmptyStyle("1");
return $output;
}
@ -92,7 +92,7 @@ window.opener.tinyMCE.insertLink("^" + "/" + ";" + document.getElementById("url_
next unless $child->canView;
$output .= '<a href="#" onclick="document.getElementById(\'url_formId\').value=\''.$child->get("url").'\'">(&bull;)</a> <a href="'.$child->getUrl("op=richEditPageTree").'">'.$child->get("menuTitle").'</a>'."<br />\n";
}
$session->style->useEmptyStyle("1")
$session->style->useEmptyStyle("1");
return $output.'</fieldset></fieldset>';
}
@ -118,7 +118,7 @@ sub www_richEditImageTree {
}
$output .= '<a href="'.$child->getUrl("op=richEditImageTree").'">'.$child->get("menuTitle").'</a>'."<br />\n";
}
$session->style->useEmptyStyle("1")
$session->style->useEmptyStyle("1");
return $output;
}
@ -127,7 +127,7 @@ sub www_richEditImageTree {
sub www_richEditViewThumbnail {
my $session = shift;
my $image = WebGUI::Asset->newByUrl;
$session->style->useEmptyStyle("1")
$session->style->useEmptyStyle("1");
if ($image->get("className") =~ /WebGUI::Asset::File::Image/) {
my $output = '<div align="center">';
$output .= '<img src="'.$image->getThumbnailUrl.'" border="0" alt="Preview">';

2
lib/WebGUI/Operation/Style.pm
View file

@ -35,7 +35,7 @@ the printableStyleId is used instead of the normal styleId for the page.
sub www_makePrintable {
my $session = shift;
if ($session->form->process("styleId") ne "") {
$session{page}{printableStyleId} = $session->form->process("styleId");
$session->asset->{_properties}{printableStyleTemplateId} = $session->form->process("styleId");
}
$session->style->makePrintable("1")
return "";

2
lib/WebGUI/Operation/Subscription.pm
View file

@ -266,7 +266,7 @@ sub www_editSubscriptionSave {
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
@relevantFields = qw(subscriptionId name price description subscriptionGroup duration executeOnSubscription karma);
WebGUI::Subscription->new($session,$session->form->process("sid"))->set({map {$_ => $session->form->process($_)} @relevantFields);
WebGUI::Subscription->new($session,$session->form->process("sid"))->set({map {$_ => $session->form->process($_)} @relevantFields]);
return www_listSubscriptions();
}

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

@ -299,8 +299,8 @@ sub www_editUser {
$tabform->getTab("account")->raw('<tr><td width="170">&nbsp;</td><td>&nbsp;</td></tr>');
$tabform->getTab("account")->readOnly(value=>$session->form->process("uid"),label=>$i18n->get(378));
$tabform->getTab("account")->readOnly(value=>$u->karma,label=>$i18n->get(537)) if ($session->setting->get("useKarma"));
$tabform->getTab("account")->readOnly(value=$session->datetime->epochToHuman($u->dateCreated,"%z"),label=>$i18n->get(453));
$tabform->getTab("account")->readOnly(value=$session->datetime->epochToHuman($u->lastUpdated,"%z"),label=>$i18n->get(454));
$tabform->getTab("account")->readOnly(value=>$session->datetime->epochToHuman($u->dateCreated,"%z"),label=>$i18n->get(453));
$tabform->getTab("account")->readOnly(value=>$session->datetime->epochToHuman($u->lastUpdated,"%z"),label=>$i18n->get(454));
$tabform->getTab("account")->text(
-name=>"username",
-label=>$i18n->get(50),