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

Added new collateral management system.

Browse source
This commit is contained in:
JT Smith 2002-11-10 20:09:10 +00:00
parent 0903f05a8f
commit 82b6bd33f8
13 changed files with 654 additions and 437 deletions
Download patch file Download diff file Expand all files Collapse all files

440
lib/WebGUI/Operation/Collateral.pm Normal file
View file

@ -0,0 +1,440 @@
package WebGUI::Operation::Collateral;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use WebGUI::Attachment;
use WebGUI::DateTime;
use WebGUI::HTMLForm;
use WebGUI::Icon;
use WebGUI::International;
use WebGUI::Node;
use WebGUI::Operation::Shared;
use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
use Tie::IxHash;
use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_editCollateral &www_editCollateralSave &www_deleteCollateral
&www_deleteCollateralConfirm &www_listCollateral
&www_deleteFile &www_editCollateralFolder &www_editCollateralFolderSave &www_deleteCollateralFolder
&www_deleteCollateralFolderConfirm);
#-------------------------------------------------------------------
sub _submenu {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
my (%menu);
tie %menu, 'Tie::IxHash';
$menu{WebGUI::URL::page('op=editCollateralFolder&fid=new')} = WebGUI::International::get(758);
$menu{WebGUI::URL::page('op=editCollateral&cid=new&type=image')} = WebGUI::International::get(761);
$menu{WebGUI::URL::page('op=editCollateral&cid=new&type=file')} = WebGUI::International::get(762);
$menu{WebGUI::URL::page('op=editCollateral&cid=new&type=snippet')} = WebGUI::International::get(763);
if ($session{form}{op} eq "editCollateral" || $session{form}{op} eq "deleteCollateral") {
$menu{WebGUI::URL::page('op=editCollateral&cid='.$session{form}{cid})} = WebGUI::International::get(764);
$menu{WebGUI::URL::page('op=deleteCollateral&cid='.$session{form}{cid})} = WebGUI::International::get(765);
}
$menu{WebGUI::URL::page('op=editCollateralFolder')} = WebGUI::International::get(759);
$menu{WebGUI::URL::page('op=deleteCollateralFolder')} = WebGUI::International::get(760);
$menu{WebGUI::URL::page('op=listCollateral')} = WebGUI::International::get(766);
return menuWrapper($_[0],\%menu);
}
#-------------------------------------------------------------------
sub www_deleteCollateral {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
my $output = '<h1>'.WebGUI::International::get(42).'</h1>';
$output .= WebGUI::International::get(774).'<p/><div align="center">';
$output .= '<a href="'.WebGUI::URL::page('op=deleteCollateralConfirm&cid='.$session{form}{cid}).'">'
.WebGUI::International::get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;';
$output .= '<a href="'.WebGUI::URL::page('op=listCollateral').'">'.WebGUI::International::get(45).'</a>';
$output .= '</div>';
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_deleteCollateralConfirm {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
my $node = WebGUI::Node("images",$session{form}{cid});
WebGUI::SQL->write("delete from collateral where collateralId=".$session{form}{cid});
return www_listCollateral();
}
#-------------------------------------------------------------------
sub www_deleteCollateralFolder {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
return WebGUI::Privilege::vitalComponent() unless ($session{scratch}{collateralFolderId} > 999);
my $output = '<h1>'.WebGUI::International::get(42).'</h1>';
$output .= WebGUI::International::get(775).'<p/><div align="center">';
$output .= '<a href="'.WebGUI::URL::page('op=deleteCollateralFolderConfirm').'">'
.WebGUI::International::get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;';
$output .= '<a href="'.WebGUI::URL::page('op=listCollateral').'">'.WebGUI::International::get(45).'</a>';
$output .= '</div>';
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_deleteCollateralFolderConfirm {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
return WebGUI::Privilege::vitalComponent() unless ($session{scratch}{collateralFolderId} > 999);
my ($parent) = WebGUI::SQL->quickArray("select parentId from collateralFolder
where collateralFolderId=".$session{scratch}{collateralFolderId});
WebGUI::SQL->write("update collateral set collateralFolderId=$parent
where collateralFolderId=$session{scratch}{collateralFolderId}");
WebGUI::SQL->write("delete from collateralFolder where collateralFolderId=".$session{scratch}{collateralFolderId});
WebGUI::Session::setScratch("collateralFolderId",$parent);
return www_listCollateral();
}
#-------------------------------------------------------------------
sub www_deleteFile {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
WebGUI::SQL->write("update collateral set filename='' where collateralId=".$session{form}{cid});
return www_editCollateral();
}
#-------------------------------------------------------------------
sub www_editCollateral {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
my ($canEdit, $file, $folderId, $output, $f, $collateral);
if ($session{form}{cid} eq "new") {
$collateral->{collateralType} = $session{form}{type};
$collateral->{collateralId} = "new";
$collateral->{username} = $session{user}{username};
$collateral->{userId} = $session{user}{userId};
$collateral->{parameters} = 'border="0"' if ($session{form}{type} eq "image");
} else {
$collateral = WebGUI::SQL->quickHashRef("select * from collateral where collateralId=".$session{form}{cid});
}
$canEdit = ($collateral->{userId} == $session{user}{userId} || WebGUI::Privilege::isInGroup($session{user}{userId}));
$folderId = $session{scratch}{collateralFolderId} || 0;
$f = WebGUI::HTMLForm->new;
$f->hidden("op","editCollateralSave");
$f->hidden("collateralType",$collateral->{collateralType});
$f->hidden("cid",$collateral->{collateralId});
$f->readOnly(
-label=>WebGUI::International::get(767),
-value=>$collateral->{collateralId}
);
$f->readOnly(
-label=>WebGUI::International::get(388),
-value=>epochToHuman($collateral->{dateUploaded},"%z")
);
$f->readOnly(
-label=>WebGUI::International::get(387),
-value=>$collateral->{username}
);
if ($canEdit) {
$f->text(
-name=>"name",
-value=>$collateral->{name},
-label=>WebGUI::International::get(768)
);
$f->select(
-name=>"collateralFolderId",
-value=>[$folderId],
-label=>WebGUI::International::get(769),
-options=>WebGUI::SQL->buildHashRef("select collateralFolderId,name from collateralFolder order by name")
);
} else {
$f->readOnly(
-label=>WebGUI::International::get(768),
-value=>$collateral->{name}
);
}
if ($collateral->{collateralType} eq "snippet") {
$output .= '<h1>'.WebGUI::International::get(770).'</h1>';
if ($canEdit) {
$f->HTMLArea(
-name=>"parameters",
-value=>$collateral->{parameters},
-label=>WebGUI::International::get(771)
);
} else {
$f->readOnly(
-value=>$collateral->{parameters},
-label=>WebGUI::International::get(771)
);
}
} elsif ($collateral->{collateralType} eq "file") {
$output .= '<h1>'.WebGUI::International::get(772).'</h1>';
if ($canEdit) {
if ($collateral->{filename} ne "") {
$f->readOnly(
-value=>'<a href="'.WebGUI::URL::page('op=deleteFile&cid='
.$collateral->{collateralId}).'">'.WebGUI::International::get(391).'</a>',
-label=>WebGUI::International::get(773)
);
} else {
$f->file(
-name=>"filename",
-label=>WebGUI::International::get(773)
);
}
}
$file = WebGUI::Attachment->new($collateral->{filename},"images",$collateral->{collateralId});
if ($file->getFilename ne "") {
$f->readOnly(
-value=>'<a href="'.$file->getURL.'"><img src="'.$file->getIcon.'" border="0" align="middle" /> '
.$file->getFilename.'</a>'
);
}
} else {
$output .= helpIcon(20);
$output .= '<h1>'.WebGUI::International::get(382).'</h1>';
if ($canEdit) {
if ($collateral->{filename} ne "") {
$f->readOnly(
-value=>'<a href="'.WebGUI::URL::page('op=deleteFile&cid='
.$collateral->{collateralId}).'">'.
WebGUI::International::get(391).'</a>',
-label=>WebGUI::International::get(384)
);
} else {
$f->file(
-name=>"filename",
-label=>WebGUI::International::get(384)
);
}
}
$file = WebGUI::Attachment->new($collateral->{filename},"images",$collateral->{collateralId});
if ($file->getFilename ne "") {
$f->readOnly(
-value=>'<a href="'.$file->getURL.'"><img src="'.$file->getThumbnail.'" border="0" /></a>'
);
}
if ($canEdit) {
$f->textarea(
-name=>"parameters",
-value=>$collateral->{parameters},
-label=>WebGUI::International::get(385)
);
} else {
$f->readOnly(
-label=>WebGUI::International::get(385),
-value=>$collateral->{parameters}
);
}
}
$f->submit if ($canEdit);
$output .= $f->print;
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_editCollateralSave {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
WebGUI::Session::setScratch("collateralFolderId",$session{form}{collateralFolderId});
my ($test, $file, $addFile);
if ($session{form}{cid} eq "new") {
$session{form}{cid} = getNextId("collateralId");
WebGUI::SQL->write("insert into collateral (collateralId,userId,username,collateralType)
values ($session{form}{cid},
$session{user}{userId}, ".quote($session{user}{username}).",
".quote($session{form}{collateralType}).")");
}
$file = WebGUI::Attachment->new("","images",$session{form}{cid});
$file->save("filename");
if ($file->getFilename ne "") {
$addFile = ", filename=".quote($file->getFilename);
$session{form}{name} = $file->getFilename if ($session{form}{name} eq "");
}
$session{form}{name} = "untitled" if ($session{form}{name} eq "");
while (($test) = WebGUI::SQL->quickArray("select name from collateral
where name=".quote($session{form}{name})." and collateralId<>$session{form}{cid}")) {
if ($session{form}{name} =~ /(.*)(\d+$)/) {
$session{form}{name} = $1.($2+1);
} elsif ($test ne "") {
$session{form}{name} .= "2";
}
}
WebGUI::SQL->write("update collateral set name=".quote($session{form}{name}).", parameters="
.quote($session{form}{parameters}).", collateralFolderId=$session{form}{collateralFolderId}, dateUploaded="
.time()." $addFile where collateralId=$session{form}{cid}");
$session{form}{collateralType} = "";
return www_listCollateral();
}
#-------------------------------------------------------------------
sub www_editCollateralFolder {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
my ($output, $f, $folder, $folderId, $constraint);
$output .= '<h1>'.WebGUI::International::get(776).'</h1>';
if ($session{form}{fid} eq "new") {
$folder->{collateralFolderId} = "new";
$folder->{parentId} = $session{scratch}{collateralFolderId} || 0;
} else {
$folderId = $session{scratch}{collateralFolderId} || 0;
$folder = WebGUI::SQL->quickHashRef("select * from collateralFolder where collateralFolderId=$folderId");
$constraint = "where collateralFolderId<>".$folder->{collateralFolderId};
}
$f = WebGUI::HTMLForm->new;
$f->hidden("op","editCollateralFolderSave");
$f->hidden("fid",$session{form}{fid});
$f->readOnly(
-value=>$folder->{collateralFolderId},
-label=>WebGUI::International::get(777)
);
if ($folder->{collateralFolderId} eq "0") {
$f->hidden("parentId",0);
} else {
$f->select(
-name=>"parentId",
-value=>[$folder->{parentId}],
-label=>WebGUI::International::get(769),
-options=>WebGUI::SQL->buildHashRef("select collateralFolderId,name from collateralFolder
$constraint order by name")
);
}
$f->text(
-value=>$folder->{name},
-name=>"name",
-label=>WebGUI::International::get(768)
);
$f->textarea(
-value=>$folder->{description},
-name=>"description",
-label=>WebGUI::International::get(778)
);
$f->submit;
$output .= $f->print;
return _submenu($output);
}
#-------------------------------------------------------------------
sub www_editCollateralFolderSave {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
if ($session{form}{fid} eq "new") {
$session{form}{fid} = getNextId("collateralFolderId");
WebGUI::Session::setScratch("collateralFolderId",$session{form}{fid});
WebGUI::SQL->write("insert into collateralFolder (collateralFolderId) values ($session{form}{fid})");
}
$session{form}{name} = "untitled" if ($session{form}{name} eq "");
while (my ($test) = WebGUI::SQL->quickArray("select name from collateralFolder
where name=".quote($session{form}{name})." and collateralFolderId<>$session{scratch}{collateralFolderId}")) {
if ($session{form}{name} =~ /(.*)(\d+$)/) {
$session{form}{name} = $1.($2+1);
} elsif ($test ne "") {
$session{form}{name} .= "2";
}
}
WebGUI::SQL->write("update collateralFolder set parentId=$session{form}{parentId}, name=".quote($session{form}{name})
.", description=".quote($session{form}{description})
." where collateralFolderId=$session{scratch}{collateralFolderId}");
return www_listCollateral();
}
#-------------------------------------------------------------------
sub www_listCollateral {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
my (%type, %user, $f, $row, $data, $sth, $url, $output, $parent, $p, $thumbnail, $file, $page, $constraints, $folderId);
tie %type, 'Tie::IxHash';
tie %user, 'Tie::IxHash';
%type = (
'-delete-'=>WebGUI::International::get(782),
image=>WebGUI::International::get(779),
file=>WebGUI::International::get(780),
snippet=>WebGUI::International::get(781)
);
%user = (
'-delete-'=>WebGUI::International::get(782),
%{WebGUI::SQL->buildHashRef("select distinct(userId), username from collateral order by username")}
);
$session{form}{keyword} = '-delete-' if (exists $session{form}{keyword} && $session{form}{keyword} eq "");
WebGUI::Session::setScratch("keyword",$session{form}{keyword});
WebGUI::Session::setScratch("collateralUser",$session{form}{collateralUser});
WebGUI::Session::setScratch("collateralType",$session{form}{collateralType});
WebGUI::Session::setScratch("collateralPageNumber",$session{form}{pn});
WebGUI::Session::setScratch("collateralFolderId",$session{form}{fid});
$folderId = $session{scratch}{collateralFolderId} || 0;
$constraints = "collateralFolderId=".$folderId;
$constraints .= " and userId=$session{scratch}{collateralUser}" if ($session{scratch}{collateralUser});
$constraints .= " and collateralType=".quote($session{scratch}{collateralType}) if ($session{scratch}{collateralType});
$constraints .= " and name like ".quote('%'.$session{scratch}{keyword}.'%') if ($session{scratch}{keyword});
$p = WebGUI::Paginator->new(WebGUI::URL::page('op=listCollateral'),[],"",$session{scratch}{collateralPageNumber});
$p->setDataByQuery("select collateralId, name, filename, collateralType, dateUploaded, username
from collateral where $constraints order by name");
$page = $p->getPageData;
$output = helpIcon(49);
$output .= '<h1>'.WebGUI::International::get(757).'</h1>';
$f = WebGUI::HTMLForm->new(1);
$f->hidden("op","listCollateral");
$f->hidden("pn",1);
$f->text(
-name=>"keyword",
-value=>$session{scratch}{keyword},
-size=>15
);
$f->select(
-name=>"collateralUser",
-value=>[$session{scratch}{collateralUser}],
-options=>\%user
);
$f->select(
-name=>"collateralType",
-value=>[$session{scratch}{collateralType}],
-options=>\%type
);
$f->submit(WebGUI::International::get(170));
$output .= '<div align="center">'.$f->print.'</div>';
$output .= '<table align="center" border="1" cellpadding="2" cellspacing="0">';
$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(768).'</td><td class="tableHeader">'
.WebGUI::International::get(783).'</td><td class="tableHeader">'.WebGUI::International::get(387)
.'</td><td class="tableHeader">'.WebGUI::International::get(388).'</td><td class="tableHeader">'
.WebGUI::International::get(784).'</td></tr>';
if ($folderId) {
($parent) = WebGUI::SQL->quickArray("select parentId from collateralFolder
where collateralFolderId=$folderId");
$output .= '<tr><td colspan="5" class="tableData"><a href="'.WebGUI::URL::page('op=listCollateral&fid='
.$parent.'&pn=1')
.'"><img src="'.$session{config}{extras}.'/smallAttachment.gif" border="0">'
.'&nbsp;'.WebGUI::International::get(542).'</a></td></tr>';
}
$sth = WebGUI::SQL->read("select collateralFolderId, name, description from collateralFolder
where parentId=$folderId and collateralFolderId<>0 order by name");
while ($data = $sth->hashRef) {
$output .= '<tr><td class="tableData"><a href="'.WebGUI::URL::page('op=listCollateral&fid='
.$data->{collateralFolderId}.'&pn=1')
.'"><img src="'.$session{config}{extras}.'/smallAttachment.gif" border="0">'
.'&nbsp;'.$data->{name}.'</a></td><td class="tableData" colspan="4">'.$data->{description}.'</td></tr>';
}
$sth->finish;
foreach $row (@$page) {
$url = WebGUI::URL::page('op=editCollateral&cid='.$row->{collateralId}.'&fid='.$folderId);
$output .= '<tr>';
$output .= '<td class="tableData"><a href="'.$url.'">'.$row->{name}.'</a></td>';
$output .= '<td class="tableData">'.$type{$row->{collateralType}}.'</td>';
$output .= '<td class="tableData">'.$row->{username}.'</td>';
$output .= '<td class="tableData">'.epochToHuman($row->{dateUploaded},"%z").'</td>';
if ($row->{filename} ne "" && $row->{collateralType} eq "image") {
$file = WebGUI::Attachment->new($row->{filename},"images",$row->{collateralId});
$thumbnail = '<a href="'.$url.'"><img src="'.$file->getThumbnail.'" border="0" /></a>';
} elsif ($row->{filename} ne "" && $row->{collateralType} eq "file") {
$file = WebGUI::Attachment->new($row->{filename},"images",$row->{collateralId});
$thumbnail = '<a href="'.$url.'"><img src="'.$file->getIcon.'" border="0" /></a>';
} else {
$thumbnail = "";
}
$output .= '<td class="tableData">'.$thumbnail.'</td>';
$output .= '</tr>';
}
$output .= '</table>';
$output .= $p->getBarTraditional;
return _submenu($output);
}
1;

24
lib/WebGUI/Operation/Help.pm
View file

@ -50,21 +50,16 @@ sub _seeAlso {
#-------------------------------------------------------------------
sub www_deleteHelp {
if ($session{user}{userId} != 3) {
return "";
} else {
return "" unless (WebGUI::Privilege::isInGroup(3));
my $output = '<h1>Confirm</h1>Are you sure? Deleting help is never a good idea. <a href="'
.WebGUI::URL::page("op=deleteHelpConfirm&hid=".$session{form}{hid}."&namespace=".$session{form}{namespace})
.'">Yes</a> / <a href="'.WebGUI::URL::page("op=manageHelp").'">No</a><p>';
return $output;
}
}
#-------------------------------------------------------------------
sub www_deleteHelpConfirm {
if ($session{user}{userId} != 3) {
return "";
} else {
return "" unless (WebGUI::Privilege::isInGroup(3));
my ($titleId, $bodyId) = WebGUI::SQL->quickArray("select titleId,bodyId from help where helpId=".$session{form}{hid}."
and namespace=".quote($session{form}{namespace}));
WebGUI::SQL->write("delete from international where internationalId=$titleId
@ -74,14 +69,11 @@ sub www_deleteHelpConfirm {
WebGUI::SQL->write("delete from help where helpId=".$session{form}{hid}."
and namespace=".quote($session{form}{namespace}));
return www_manageHelp();
}
}
#-------------------------------------------------------------------
sub www_editHelp {
if ($session{user}{userId} != 3) {
return "";
} else {
return "" unless (WebGUI::Privilege::isInGroup(3));
my ($output, $f, %data, %help, @seeAlso);
tie %data, 'Tie::IxHash';
tie %help, 'Tie::CPHash';
@ -125,14 +117,11 @@ sub www_editHelp {
$f->submit;
$output .= $f->print;
return $output;
}
}
#-------------------------------------------------------------------
sub www_editHelpSave {
if ($session{user}{userId} != 3) {
return "";
} else {
return "" unless (WebGUI::Privilege::isInGroup(3));
my (@seeAlso);
if ($session{form}{hid} eq "new") {
if ($session{form}{namespace_new} ne "") {
@ -165,12 +154,11 @@ sub www_editHelpSave {
WebGUI::SQL->write("update help set seeAlso=".quote($session{form}{seeAlso})."
where helpId=$session{form}{hid} and namespace=".quote($session{form}{namespace}));
return www_manageHelp();
}
}
#-------------------------------------------------------------------
sub www_exportHelp {
return "" if ($session{user}{userId} != 3);
return "" unless (WebGUI::Privilege::isInGroup(3));
my ($export, $output, %help, $sth);
$export = "#export of WebGUI ".$WebGUI::VERSION." help system.\n\n";
$sth = WebGUI::SQL->read("select * from help");
@ -187,7 +175,7 @@ sub www_exportHelp {
#-------------------------------------------------------------------
sub www_manageHelp {
my ($sth, @help, $output);
if ($session{user}{userId} != 3) {
unless (WebGUI::Privilege::isInGroup(3)) {
return "";
} else {
$output = '<h1>Manage Help</h1>';

387
lib/WebGUI/Operation/Image.pm
View file

@ -1,387 +0,0 @@
package WebGUI::Operation::Image;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use WebGUI::Attachment;
use WebGUI::DateTime;
use WebGUI::HTMLForm;
use WebGUI::Icon;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Template;
use WebGUI::URL;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_editImage &www_editImageSave &www_viewImage &www_deleteImage &www_deleteImageConfirm &www_listImages &www_deleteImageFile &www_editImageGroup &www_editImageGroupSave &www_viewImageGroup &www_deleteImageGroup &www_deleteImageGroupConfirm);
#-------------------------------------------------------------------
sub www_deleteImage {
my ($output);
if (WebGUI::Privilege::isInGroup($session{setting}{imageManagersGroup})) {
$output .= helpIcon(23);
$output .= '<h1>'.WebGUI::International::get(42).'</h1>';
$output .= WebGUI::International::get(392).'<p>';
$output .= '<div align="center"><a href="'.
WebGUI::URL::page('op=deleteImageConfirm&iid='.$session{form}{iid}.'&gid='.$session{form}{gid})
.'">'.WebGUI::International::get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.WebGUI::URL::page('op=listImages&gid='.$session{form}{gid}).'">'.
WebGUI::International::get(45).'</a></div>';
return $output;
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_deleteImageConfirm {
my ($image);
if (WebGUI::Privilege::isInGroup($session{setting}{imageManagersGroup})) {
$image = WebGUI::Attachment->new("","images",$session{form}{iid});
$image->deleteNode;
WebGUI::SQL->write("delete from images where imageId=$session{form}{iid}");
return www_listImages();
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_deleteImageFile {
if (WebGUI::Privilege::isInGroup($session{setting}{imageManagersGroup})) {
WebGUI::SQL->write("update images set filename='' where imageId=$session{form}{iid}");
return www_editImage();
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_editImage {
my ($output, %data, $image, $f, $imageGroupId);
tie %data, 'Tie::CPHash';
if (WebGUI::Privilege::isInGroup($session{setting}{imageManagersGroup})) {
if ($session{form}{iid} eq "new") {
$imageGroupId = $session{form}{gid};
} else {
%data = WebGUI::SQL->quickHash("select * from images where imageId=$session{form}{iid}");
$imageGroupId = $data{imageGroupId};
}
$output = helpIcon(20);
$output .= '<h1>'.WebGUI::International::get(382).'</h1>';
$f = WebGUI::HTMLForm->new;
$f->hidden("op","editImageSave");
$f->hidden("iid",$session{form}{iid});
$f->hidden("gid",$imageGroupId);
$f->readOnly($session{form}{iid},WebGUI::International::get(389));
$f->text("name",WebGUI::International::get(383),$data{name});
if ($data{filename} ne "") {
$f->readOnly('<a href="'.WebGUI::URL::page('op=deleteImageFile&iid='.$data{imageId}).'">'.WebGUI::International::get(391).'</a>',
WebGUI::International::get(384));
} else {
$f->file("filename",WebGUI::International::get(384));
}
$f->textarea("parameters",WebGUI::International::get(385),$data{parameters});
$f->submit;
$output .= $f->print;
if ($data{filename} ne "") {
$image = WebGUI::Attachment->new($data{filename},"images",$data{imageId});
$output .= '<p>'.WebGUI::International::get(390).'<p><img src="'.$image->getURL.'">';
}
return $output;
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_editImageSave {
my ($file, $sqlAdd, $test);
if (WebGUI::Privilege::isInGroup($session{setting}{imageManagersGroup})) {
if ($session{form}{iid} eq "new") {
$session{form}{iid} = getNextId("imageId");
WebGUI::SQL->write("insert into images (imageId) values ($session{form}{iid})");
}
$file = WebGUI::Attachment->new("","images",$session{form}{iid});
$file->save("filename");
if ($file->getFilename) {
$sqlAdd = ", filename=".quote($file->getFilename);
}
while (($test) = WebGUI::SQL->quickArray("select name from images
where name=".quote($session{form}{name})." and imageId<>$session{form}{iid}")) {
if ($session{form}{name} =~ /(.*)(\d+$)/) {
$session{form}{name} = $1.($2+1);
} elsif ($test ne "") {
$session{form}{name} .= "2";
}
}
WebGUI::SQL->write("update images set name=".quote($session{form}{name}).
$sqlAdd.", parameters=".quote($session{form}{parameters}).", userId=$session{user}{userId}, ".
" username=".quote($session{user}{username}).
", imageGroupId=".$session{form}{gid}.
", dateUploaded=".time()." where imageId=$session{form}{iid}");
return www_listImages();
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_listImages {
my ($f, $output, $sth, %data, @row, $image, $p, $i, $search, $search_group,
$isAdmin, $imageGroupId, $isImageManager, $imageGroupParentId);
tie %data, 'Tie::CPHash';
if (WebGUI::Privilege::isInGroup(4)) {
$isImageManager = WebGUI::Privilege::isInGroup($session{setting}{imageManagersGroup});
$isAdmin = WebGUI::Privilege::isInGroup(3);
if($session{form}{gid} ne "") {
$imageGroupId = $session{form}{gid};
} else {
$imageGroupId = 0;
$session{form}{gid} = 0;
}
%data = WebGUI::SQL->quickHash("select parentId,name from imageGroup where imageGroupId=".$imageGroupId);
if($session{form}{pid} ne "") {
$imageGroupParentId = $session{form}{pid};
} elsif($imageGroupId != 0) {
$imageGroupParentId = $data{parentId};
}
$output = helpIcon(26);
$output .= '<h1>'.WebGUI::International::get(393).' - '.$data{name}.'</h1>';
$output .= '<table class="tableData" align="center" width="75%"><tr>';
if($isImageManager) {
$output .= '<td><a href="'.WebGUI::URL::page('op=editImage&iid=new&gid='.$imageGroupId).'">'.WebGUI::International::get(395).'</a>';
$output .= '</td>';
$output .= '<td><a href="'.WebGUI::URL::page('op=editImageGroup&gid=new&pid='.$imageGroupId).'">'.WebGUI::International::get(543).'</a></td>';
}
$f = WebGUI::HTMLForm->new(1);
$f->raw('<td align="right">');
$f->hidden("op","listImages");
$f->text("keyword",'',$session{form}{keyword});
$f->submit(WebGUI::International::get(170));
$f->raw('</td>');
$output .= $f->print;
$output .= '</tr></table><p>';
if ($session{form}{keyword} ne "") {
$search = " where (name like '%".$session{form}{keyword}.
"%' or username like '%".$session{form}{keyword}.
"%' or filename like '%".$session{form}{keyword}."%') ";
$search_group = " where (name like '%".$session{form}{keyword}.
"%' or description like '%".$session{form}{keyword}."%') and imageGroupId>0";
} else {
$search = " where imageGroupId='".$imageGroupId."' ";
$search_group = " where parentId='".$imageGroupId."' and imageGroupId>0 ";
}
# do image groups
if($imageGroupId > 0) { # show previous link
$row[$i] = '<tr class="tableData">';
$row[$i] .= '<td colspan="5"><a href="'.WebGUI::URL::page('op=listImages&gid='.$imageGroupParentId)
.'"><img src="'.$session{config}{extras}.'/smallAttachment.gif" border="0"></a>'
.'&nbsp;<a href="'.WebGUI::URL::page('op=listImages&gid='.$imageGroupParentId)
.'">'.WebGUI::International::get(542).'</a></td>'; # FIXME folder icon
$row[$i] .= '</tr>';
$i++;
}
$sth = WebGUI::SQL->read("select * from imageGroup $search_group order by name");
while (%data = $sth->hash) {
$row[$i] = '<tr class="tableData"><td>';
if ($isImageManager) {
$row[$i] .= deleteIcon('op=deleteImageGroup&gid='.$data{imageGroupId}.'&pid='.$imageGroupId);
$row[$i] .= editIcon('op=editImageGroup&gid='.$data{imageGroupId}.'&pid='.$imageGroupId);
}
$row[$i] .= viewIcon('op=viewImageGroup&gid='.$data{imageGroupId}.'&pid='.$imageGroupId);
$row[$i] .= '</td>';
$row[$i] .= '<td><a href="'.WebGUI::URL::page('op=listImages&gid='.$data{imageGroupId}.'&pid='.$imageGroupId)
.'"><img src="'.$session{config}{extras}.'/smallAttachment.gif" border="0"></a>'
.'&nbsp;<a href="'.WebGUI::URL::page('op=listImages&gid='.$data{imageGroupId}.'&pid='.$imageGroupId)
.'">'.$data{name}.'</a></td>'; # FIXME folder icon
$row[$i] .= '<td>'.$data{description}.'&nbsp;</td>';
$row[$i] .= '<td>&nbsp; </td>';
$row[$i] .= '<td>&nbsp; </td>';
$row[$i] .= '</tr>';
$i++;
}
$sth->finish;
# do images
$sth = WebGUI::SQL->read("select * from images $search order by name");
while (%data = $sth->hash) {
$image = WebGUI::Attachment->new($data{filename},"images",$data{imageId});
$row[$i] = '<tr class="tableData"><td>';
if ($isAdmin || $session{user}{userId} == $data{userId}) {
$row[$i] .= deleteIcon('op=deleteImage&iid='.$data{imageId}.'&gid='.$data{imageGroupId});
$row[$i] .= editIcon('op=editImage&iid='.$data{imageId}.'&gid='.$data{imageGroupId});
}
$row[$i] .= viewIcon('op=viewImage&iid='.$data{imageId}.'&gid='.$data{imageGroupId});
$row[$i] .= '</td>';
$row[$i] .= '<td><a href="'.WebGUI::URL::page('op=viewImage&iid='.$data{imageId}.'&gid='.$data{imageGroupId})
.'"><img src="'.$image->getThumbnail.'" border="0"></a>';
$row[$i] .= '<td>'.$data{name}.'</td>';
$row[$i] .= '<td>'.$data{username}.'</td>';
$row[$i] .= '<td>'.WebGUI::DateTime::epochToHuman($data{dateUploaded},"%M/%D/%y").'</td>';
$row[$i] .= '</tr>';
$i++;
}
$sth->finish;
$p = WebGUI::Paginator->new(WebGUI::URL::page('op=listImages&gid='.$session{form}{gid}),\@row);
$output .= '<table border=1 cellpadding=5 cellspacing=0 align="center">';
$output .= $p->getPage($session{form}{pn});
$output .= '</table>';
$output .= $p->getBarTraditional($session{form}{pn});
return $output;
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_viewImage {
my ($output, %data, $image,$f);
tie %data, 'Tie::CPHash';
if (WebGUI::Privilege::isInGroup(4)) {
%data = WebGUI::SQL->quickHash("select * from images where imageId=$session{form}{iid}");
$image = WebGUI::Attachment->new($data{filename},"images",$data{imageId});
$output .= '<h1>'.WebGUI::International::get(396).'</h1>';
$output .= '<a href="'.WebGUI::URL::page('op=listImages&gid='.$session{form}{gid}).'">'.WebGUI::International::get(397).'</a>';
$f = WebGUI::HTMLForm->new;
$f->readOnly($data{imageId},WebGUI::International::get(389));
$f->readOnly($data{name},WebGUI::International::get(383));
$f->readOnly($data{filename},WebGUI::International::get(384));
$f->readOnly($data{parameters},WebGUI::International::get(385));
$f->readOnly($data{username},WebGUI::International::get(387));
$f->readOnly(WebGUI::DateTime::epochToHuman($data{dateUploaded},"%z %z"),WebGUI::International::get(388));
$output .= $f->print;
$output .= '<p><img src="'.$image->getURL.'">';
return $output;
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_deleteImageGroup {
my ($output);
if (WebGUI::Privilege::isInGroup($session{setting}{imageManagersGroup})) {
$output .= helpIcon(23);
$output .= '<h1>'.WebGUI::International::get(42).'</h1>';
$output .= WebGUI::International::get(544).'<p>';
$output .= '<div align="center"><a href="'.
WebGUI::URL::page('op=deleteImageGroupConfirm&gid='.$session{form}{gid}.'&pid='.$session{form}{pid})
.'">'.WebGUI::International::get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.WebGUI::URL::page('op=listImages&gid='.$session{form}{pid}).'">'.
WebGUI::International::get(45).'</a></div>';
return $output;
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_deleteImageGroupConfirm {
my ($image, %data);
tie %data, 'Tie::CPHash';
if (WebGUI::Privilege::isInGroup($session{setting}{imageManagersGroup})) {
%data = WebGUI::SQL->quickHash("select parentId from imageGroup where imageGroupId=$session{form}{gid}");
WebGUI::SQL->write("update images set imageGroupId=$data{parentId} where imageGroupId=$session{form}{gid}");
WebGUI::SQL->write("update imageGroup set parentId=$data{parentId} where parentId=$session{form}{gid}");
WebGUI::SQL->write("delete from imageGroup where imageGroupId=$session{form}{gid}");
$session{form}{gid}=$session{form}{pid};
return www_listImages();
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_editImageGroup {
my ($output, %data, %parent_data, $image, $f);
tie %data, 'Tie::CPHash';
tie %parent_data, 'Tie::CPHash';
if (WebGUI::Privilege::isInGroup($session{setting}{imageManagersGroup})) {
if ($session{form}{gid} eq "new") {
} else {
%data = WebGUI::SQL->quickHash("select * from imageGroup where imageGroupId=$session{form}{gid}");
}
%parent_data = WebGUI::SQL->quickHash("select name from imageGroup where imageGroupId=$session{form}{pid}");
$output = helpIcon(36);
$output .= '<h1>'.WebGUI::International::get(545).'</h1>';
$f = WebGUI::HTMLForm->new;
$f->hidden("op","editImageGroupSave");
$f->hidden("gid",$session{form}{gid});
$f->hidden("pid",$session{form}{pid}); #FIXME make this dropdown group tree
$f->readOnly($session{form}{gid},WebGUI::International::get(546));
$f->readOnly($parent_data{name},WebGUI::International::get(547));
$f->text("name",WebGUI::International::get(548),$data{name});
$f->text("description",WebGUI::International::get(549),$data{description});
$f->submit;
$output .= $f->print;
return $output;
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_editImageGroupSave {
my ($test);
if (WebGUI::Privilege::isInGroup($session{setting}{imageManagersGroup})) {
if ($session{form}{gid} eq "new") {
$session{form}{gid} = getNextId("imageGroupId");
WebGUI::SQL->write("insert into imageGroup (imageGroupId) values ($session{form}{gid})");
}
while (($test) = WebGUI::SQL->quickArray("select name from imageGroup
where name=".quote($session{form}{name})." and imageGroupId<>$session{form}{gid}")) {
if ($session{form}{name} =~ /(.*)(\d+$)/) {
$session{form}{name} = $1.($2+1);
} elsif ($test ne "") {
$session{form}{name} .= "2";
}
}
WebGUI::SQL->write("update imageGroup set name=".quote($session{form}{name}).
", parentId=".$session{form}{pid}.", description=".quote($session{form}{description}).
" where imageGroupId=$session{form}{gid}");
return www_listImages();
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_viewImageGroup {
my ($output, %data, %parent_data, $image,$f);
tie %data, 'Tie::CPHash';
tie %parent_data, 'Tie::CPHash';
if (WebGUI::Privilege::isInGroup(4)) {
%data = WebGUI::SQL->quickHash("select * from imageGroup where imageGroupId=$session{form}{gid}");
%parent_data = WebGUI::SQL->quickHash("select name from imageGroup where imageGroupId=".$data{parentId});
$output .= '<h1>'.WebGUI::International::get(550).'</h1>';
$output .= '<a href="'.WebGUI::URL::page('op=listImages&gid='.$session{form}{pid}).'">'.WebGUI::International::get(397).'</a>';
$f = WebGUI::HTMLForm->new;
$f->readOnly($data{imageGroupId},WebGUI::International::get(546));
$f->readOnly($parent_data{name},WebGUI::International::get(547));
$f->readOnly($data{name},WebGUI::International::get(548));
$f->readOnly($data{description},WebGUI::International::get(549));
$output .= $f->print;
return $output;
} else {
return WebGUI::Privilege::insufficient();
}
}
1;