diff --git a/docs/upgrades/upgrade_3.7.0-3.8.0.sql b/docs/upgrades/upgrade_3.7.0-3.8.0.sql
index f76ec2e79..0154b5d76 100644
--- a/docs/upgrades/upgrade_3.7.0-3.8.0.sql
+++ b/docs/upgrades/upgrade_3.7.0-3.8.0.sql
@@ -56,6 +56,13 @@ delete from widget where namespace='LinkList';
alter table LinkList_link change widgetId wobjectId int not null;
alter table LinkList change widgetId wobjectId int not null;
+insert into wobject (wobjectId, pageId, title, displayTitle, processMacros, description, dateAdded, addedBy, namespace, lastEdited, editedBy, templatePosition, sequenceNumber, startDate, endDate) select widgetId, pageId, title, displayTitle, processMacros, description, dateAdded, addedBy, namespace, lastEdited, editedBy, templatePosition, sequenceNumber, dateAdded, 1336444487 from widget where namespace='DownloadManager';
+delete from widget where namespace='DownloadManager';
+alter table DownloadManager change widgetId wobjectId int not null;
+alter table DownloadManager_file change widgetId wobjectId int not null;
+delete from International where helpId=13 and namespace='DownloadManager';
+INSERT INTO international VALUES (22,'DownloadManager','English','Proceed to add download?');
+
diff --git a/lib/WebGUI/HTMLForm.pm b/lib/WebGUI/HTMLForm.pm
index 291e547a4..967b89f1a 100644
--- a/lib/WebGUI/HTMLForm.pm
+++ b/lib/WebGUI/HTMLForm.pm
@@ -328,7 +328,7 @@ sub file {
=item value
The default value(s) for this form element. This should be passed
- as an array reference.
+ as an array reference. Defaults to "7" (Everyone).
=item size
@@ -359,6 +359,7 @@ sub group {
$name = shift;
$label = shift;
$value = shift;
+ $value = [7] if ($value eq ""); #doing long form otherwise arrayRef didn't work
$size = shift || 1;
$multiple = shift;
$multiple = ' multiple="1" ' if ($multiple);
@@ -1180,7 +1181,7 @@ sub yesNo {
$class = shift;
$name = shift;
$label = shift;
- $value = shift;
+ $value = shift || 0;
$extras = shift;
$subtext = shift;
$output = ''.WebGUI::International::get(2,$namespace).' ';
- $output .= formHeader();
- $output .= WebGUI::Form::hidden("widget",$namespace);
- $output .= WebGUI::Form::hidden("func","addSave");
- $output .= '';
- $output .= tableFormRow(
- WebGUI::International::get(99),
- WebGUI::Form::text("title",20,30,widgetName())
- );
- $output .= tableFormRow(
- WebGUI::International::get(174),
- WebGUI::Form::checkbox("displayTitle",1,1)
- );
- $output .= tableFormRow(
- WebGUI::International::get(175),
- WebGUI::Form::checkbox("processMacros",1,1)
- );
- %hash = WebGUI::Widget::getPositions();
- $output .= tableFormRow(
- WebGUI::International::get(363),
- WebGUI::Form::selectList("templatePosition",\%hash)
- );
- $output .= tableFormRow(
- WebGUI::International::get(85),
- WebGUI::Form::textArea("description",'',50,5,1)
- );
- $output .= tableFormRow(
- WebGUI::International::get(20,$namespace),
- WebGUI::Form::text("paginateAfter",20,30,50)
- );
- $output .= tableFormRow(
- WebGUI::International::get(21,$namespace),
- WebGUI::Form::checkbox("displayThumbnails",1,1)
- );
- $output .= tableFormRow(
- WebGUI::International::get(3,$namespace),
- WebGUI::Form::checkbox("proceed",1,1)
- );
- $output .= formSave();
- $output .= '
';
- return $output;
- } else {
- return WebGUI::Privilege::insufficient();
- }
- return $output;
-}
-
-#-------------------------------------------------------------------
-sub www_addSave {
- my ($widgetId);
- if (WebGUI::Privilege::canEditPage()) {
- $widgetId = create(
- $session{page}{pageId},
- $session{form}{widget},
- $session{form}{title},
- $session{form}{displayTitle},
- $session{form}{description},
- $session{form}{processMacros},
- $session{form}{templatePosition}
- );
- WebGUI::SQL->write("insert into DownloadManager values ($widgetId, '$session{form}{paginateAfter}', '$session{form}{displayThumbnails}')");
- if ($session{form}{proceed} == 1) {
- $session{form}{wid} = $widgetId;
- return www_addDownload();
- } else {
- return "";
- }
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_addDownload {
- my ($output);
- if (WebGUI::Privilege::canEditPage()) {
- $output .= ''.WebGUI::International::get(4,$namespace).' ';
- $output .= formHeader();
- $output .= WebGUI::Form::hidden("wid",$session{form}{wid});
- $output .= WebGUI::Form::hidden("func","addDownloadSave");
- $output .= '';
- $output .= tableFormRow(
- WebGUI::International::get(6,$namespace),
- WebGUI::Form::file("downloadFile")
- );
- $output .= tableFormRow(
- WebGUI::International::get(17,$namespace),
- WebGUI::Form::file("alternateVersion1")
- );
- $output .= tableFormRow(
- WebGUI::International::get(18,$namespace),
- WebGUI::Form::file("alternateVersion2")
- );
- $output .= tableFormRow(
- WebGUI::International::get(5,$namespace),
- WebGUI::Form::text("fileTitle",20,128,WebGUI::International::get(5,$namespace))
- );
- $output .= tableFormRow(
- WebGUI::International::get(8,$namespace),
- WebGUI::Form::text("briefSynopsis",50,256)
- );
- $output .= tableFormRow(
- WebGUI::International::get(7,$namespace),
- WebGUI::Form::groupList("groupToView",2)
- );
- $output .= formSave();
- $output .= '
';
- return $output;
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_addDownloadSave {
- my ($downloadId,$file,$alt1,$alt2,$sequenceNumber);
- if (WebGUI::Privilege::canEditPage()) {
- $downloadId = getNextId("downloadId");
- $file = WebGUI::Attachment->new("",$session{form}{wid},$downloadId);
- $file->save("downloadFile");
- $alt1 = WebGUI::Attachment->new("",$session{form}{wid},$downloadId);
- $alt1->save("alternateVersion1");
- $alt2 = WebGUI::Attachment->new("",$session{form}{wid},$downloadId);
- $alt2->save("alternateVersion2");
- ($sequenceNumber) = WebGUI::SQL->quickArray("select count(*) from DownloadManager_file where widgetId=$session{form}{wid}");
- $sequenceNumber++;
- WebGUI::SQL->write("insert into DownloadManager_file values (".
- $downloadId.
- ", ".$session{form}{wid}.
- ", ".quote($session{form}{fileTitle}).
- ", ".quote($file->getFilename).
- ", '$session{form}{groupToView}'".
- ", ".quote($session{form}{briefSynopsis}).
- ", ".time().
- ", ".$sequenceNumber.
- ", ".quote($alt1->getFilename).
- ", ".quote($alt2->getFilename).
- ")");
- return www_edit();
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_copy {
- if (WebGUI::Privilege::canEditPage()) {
- duplicate($session{form}{wid});
- return "";
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_deleteFile {
- my ($delete);
- if (WebGUI::Privilege::canEditPage()) {
- if ($session{form}{alt} == 1) {
- $delete = "alternateVersion1";
- } elsif ($session{form}{alt} == 2) {
- $delete = "alternateVersion2";
- } else {
- $delete = "downloadFile";
- }
- WebGUI::SQL->write("update DownloadManager_file set $delete='' where downloadId=$session{form}{did}");
- return www_editDownload();
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_deleteDownload {
- my ($output);
- if (WebGUI::Privilege::canEditPage()) {
- $output = ''.WebGUI::International::get(42).' ';
- $output .= WebGUI::International::get(12,$namespace).'';
- $output .= '
';
- return $output;
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_deleteDownloadConfirm {
- my ($output, $file);
- if (WebGUI::Privilege::canEditPage()) {
- $file = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
- $file->deleteNode;
- WebGUI::SQL->write("delete from DownloadManager_file where downloadId=$session{form}{did}");
- _reorderDownloads($session{form}{wid});
- return www_edit();
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_download {
- my (%download, $file);
- tie %download,'Tie::CPHash';
- %download = WebGUI::SQL->quickHash("select * from DownloadManager_file where downloadId=$session{form}{did}");
- if (WebGUI::Privilege::isInGroup($download{groupToView})) {
- if ($session{form}{alternateVersion} == 1) {
- $file = WebGUI::Attachment->new($download{alternateVersion1},
- $session{form}{wid},
- $session{form}{did});
- } elsif ($session{form}{alternateVersion} == 2) {
- $file = WebGUI::Attachment->new($download{alternateVersion2},
- $session{form}{wid},
- $session{form}{did});
- } else {
- $file = WebGUI::Attachment->new($download{downloadFile},
- $session{form}{wid},
- $session{form}{did});
- }
- $session{header}{redirect} = WebGUI::Session::httpRedirect($file->getURL);
- return "";
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_edit {
- my ($output, %data, %hash, @array, $sth, @download);
- tie %data, 'Tie::CPHash';
- tie %hash, 'Tie::IxHash';
- if (WebGUI::Privilege::canEditPage()) {
- %data = getProperties($namespace,$session{form}{wid});
- $output .= helpLink(1,$namespace);
- $output .= ''.WebGUI::International::get(9,$namespace).' ';
- $output .= formHeader();
- $output .= WebGUI::Form::hidden("wid",$session{form}{wid});
- $output .= WebGUI::Form::hidden("func","editSave");
- $output .= '';
- $output .= tableFormRow(
- WebGUI::International::get(99),
- WebGUI::Form::text("title",20,30,$data{title})
- );
- $output .= tableFormRow(
- WebGUI::International::get(174),
- WebGUI::Form::checkbox("displayTitle","1",$data{displayTitle})
- );
- $output .= tableFormRow(
- WebGUI::International::get(175),
- WebGUI::Form::checkbox("processMacros","1",
- $data{processMacros})
- );
- %hash = WebGUI::Widget::getPositions();
- $array[0] = $data{templatePosition};
- $output .= tableFormRow(
- WebGUI::International::get(363),
- WebGUI::Form::selectList("templatePosition",\%hash,\@array)
- );
- $output .= tableFormRow(
- WebGUI::International::get(85),
- WebGUI::Form::textArea("description",$data{description},50,5,1)
- );
- $output .= tableFormRow(
- WebGUI::International::get(20,$namespace),
- WebGUI::Form::text("paginateAfter",20,30,$data{paginateAfter})
- );
- $output .= tableFormRow(
- WebGUI::International::get(21,$namespace),
- WebGUI::Form::checkbox("displayThumbnails","1",$data{displayThumbnails})
- );
- $output .= formSave();
- $output .= '
';
- $output .= ''.WebGUI::International::get(11,$namespace).'
';
- $output .= '
';
- $sth = WebGUI::SQL->read("select downloadId,fileTitle from DownloadManager_file where widgetId='$session{form}{wid}' order by sequenceNumber");
- while (@download = $sth->array) {
- $output .= ''.$download[1].' ';
- }
- $sth->finish;
- $output .= '
';
- return $output;
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_editSave {
- if (WebGUI::Privilege::canEditPage()) {
- update();
- WebGUI::SQL->write("update DownloadManager set paginateAfter='$session{form}{paginateAfter}', displayThumbnails='$session{form}{displayThumbnails}' where widgetId=$session{form}{wid}");
- return "";
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_editDownload {
- my ($output, %download);
- tie %download,'Tie::CPHash';
- if (WebGUI::Privilege::canEditPage()) {
- %download = WebGUI::SQL->quickHash("select * from DownloadManager_file where downloadId='$session{form}{did}'");
- $output .= ''.WebGUI::International::get(10,$namespace).' ';
- $output .= formHeader();
- $output .= WebGUI::Form::hidden("wid",$session{form}{wid});
- $output .= WebGUI::Form::hidden("did",$session{form}{did});
- $output .= WebGUI::Form::hidden("func","editDownloadSave");
- $output .= '';
- if ($download{downloadFile} ne "") {
- $output .= tableFormRow(
- WebGUI::International::get(6,$namespace),
- ''.
- WebGUI::International::get(13,$namespace).'
- ');
- } else {
- $output .= tableFormRow(
- WebGUI::International::get(6,$namespace),
- WebGUI::Form::file("downloadFile")
- );
- }
- if ($download{alternateVersion1} ne "") {
- $output .= tableFormRow(
- WebGUI::International::get(17,$namespace),
- ''.
- WebGUI::International::get(13,$namespace).'
- ');
- } else {
- $output .= tableFormRow(
- WebGUI::International::get(17,$namespace),
- WebGUI::Form::file("alternateVersion1")
- );
- }
- if ($download{alternateVersion2} ne "") {
- $output .= tableFormRow(
- WebGUI::International::get(18,$namespace),
- ''.
- WebGUI::International::get(13,$namespace).'
- ');
- } else {
- $output .= tableFormRow(
- WebGUI::International::get(18,$namespace),
- WebGUI::Form::file("alternateVersion2")
- );
- }
- $output .= tableFormRow(
- WebGUI::International::get(5,$namespace),
- WebGUI::Form::text("fileTitle",20,128,$download{fileTitle})
- );
- $output .= tableFormRow(
- WebGUI::International::get(8,$namespace),
- WebGUI::Form::text("briefSynopsis",50,256,$download{briefSynopsis})
- );
- $output .= tableFormRow(
- WebGUI::International::get(7,$namespace),
- WebGUI::Form::groupList("groupToView",$download{groupToView})
- );
- $output .= formSave();
- $output .= '
';
- return $output;
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_editDownloadSave {
- my ($file, $alt1, $alt2, $sqlAdd);
- if (WebGUI::Privilege::canEditPage()) {
- $file = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
- $file->save("downloadFile");
- if ($file->getFilename ne "") {
- $sqlAdd = ', downloadFile='.quote($file->getFilename);
- }
- $alt1 = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
- $alt1->save("alternateVersion1");
- if ($alt1->getFilename ne "") {
- $sqlAdd .= ', alternateVersion1='.quote($alt1->getFilename);
- }
- $alt2 = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
- $alt2->save("alternateVersion2");
- if ($alt2->getFilename ne "") {
- $sqlAdd = ', alternateVersion2='.quote($alt2->getFilename);
- }
- WebGUI::SQL->write("update DownloadManager_file set ".
- " downloadId=".$session{form}{did}.
- ", widgetId=".$session{form}{wid}.
- ", fileTitle=".quote($session{form}{fileTitle}).
- $sqlAdd.
- ", groupToView='$session{form}{groupToView}'".
- ", briefSynopsis=".quote($session{form}{briefSynopsis}).
- ", dateUploaded=".time().
- " where downloadId=".$session{form}{did}
- );
- return www_edit();
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_moveDownloadDown {
- my (@data, $thisSeq);
- if (WebGUI::Privilege::canEditPage()) {
- ($thisSeq) = WebGUI::SQL->quickArray("select sequenceNumber from DownloadManager_file where downloadId=$session{form}{did}");
- @data = WebGUI::SQL->quickArray("select downloadId from DownloadManager_file where widgetId=$session{form}{wid} and sequenceNumber=$thisSeq+1 group by widgetId");
- if ($data[0] ne "") {
- WebGUI::SQL->write("update DownloadManager_file set sequenceNumber=sequenceNumber+1 where downloadId=$session{form}{did}");
- WebGUI::SQL->write("update DownloadManager_file set sequenceNumber=sequenceNumber-1 where downloadId=$data[0]");
- }
- return www_edit();
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_moveDownloadUp {
- my (@data, $thisSeq);
- if (WebGUI::Privilege::canEditPage()) {
- ($thisSeq) = WebGUI::SQL->quickArray("select sequenceNumber from DownloadManager_file where downloadId=$session{form}{did}");
- @data = WebGUI::SQL->quickArray("select downloadId from DownloadManager_file where widgetId=$session{form}{wid} and sequenceNumber=$thisSeq-1 group by widgetId");
- if ($data[0] ne "") {
- WebGUI::SQL->write("update DownloadManager_file set sequenceNumber=sequenceNumber-1 where downloadId=$session{form}{did}");
- WebGUI::SQL->write("update DownloadManager_file set sequenceNumber=sequenceNumber+1 where downloadId=$data[0]");
- }
- return www_edit();
- } else {
- return WebGUI::Privilege::insufficient();
- }
-}
-
-#-------------------------------------------------------------------
-sub www_view {
- my ($url, @row, $head, $searchForm, $i, $p, $search, %data, @test, $file, $alt1, $alt2, $output, $sth,
- %download, $flag, $sort, $sortDirection);
- tie %download, 'Tie::CPHash';
- tie %data, 'Tie::CPHash';
- %data = getProperties($namespace,$_[0]);
- if (defined %data) {
- $url = WebGUI::URL::page();
- if ($data{displayTitle} == 1) {
- $output .= ''.$data{title}.' ';
- }
- if ($data{description} ne "") {
- $output .= $data{description}.'';
- }
- $searchForm = formHeader();
- $searchForm .= WebGUI::Form::text("keyword",20,50);
- $searchForm .= WebGUI::Form::submit(WebGUI::International::get(170));
- $searchForm .= '';
- $head = '
';
- if ($session{form}{keyword} ne "") {
- $search = " and (fileTitle like '%".$session{form}{keyword}.
- "%' or downloadFile like '%".$session{form}{keyword}.
- "%' or alternateVersion1 like '%".$session{form}{keyword}.
- "%' or alternateVersion2 like '%".$session{form}{keyword}.
- "%' or briefSynopsis like '%".$session{form}{keyword}."%') ";
- $url = WebGUI::URL::append($url,"keyword=".$session{form}{keyword});
- }
- if ($session{form}{sort} ne "") {
- $sort = " order by ".$session{form}{sort};
- $url = WebGUI::URL::append($url,"sort=".$session{form}{sort});
- } else {
- $sort = " order by sequenceNumber";
- }
- if ($session{form}{sortDirection} ne "") {
- $sortDirection = $session{form}{sortDirection};
- $url = WebGUI::URL::append($url,"sortDirection=".$session{form}{sortDirection});
- }
- $head .= '';
- $row[$i] .= ' ';
- if ($data{displayThumbnails}
- && isIn($file->getType, qw(gif jpeg jpg tif tiff png bmp))) {
- $row[$i] .= ' '.
- ''.
- epochToHuman($download{dateUploaded},"%M/%D/%y").' '.
- ''.
- WebGUI::International::get(19,$namespace).'
';
- $output .= $p->getBarTraditional($session{form}{pn});
- if ($data{processMacros} == 1) {
- $output = WebGUI::Macro::process($output);
- }
- }
- return $output;
-}
-
-
-1;
-
-
diff --git a/lib/WebGUI/Wobject.pm b/lib/WebGUI/Wobject.pm
index 0fa0b01b3..8540adaa3 100644
--- a/lib/WebGUI/Wobject.pm
+++ b/lib/WebGUI/Wobject.pm
@@ -406,7 +406,7 @@ sub www_edit {
$f->hidden("wid",$_[0]->get("wobjectId"));
$f->hidden("namespace",$_[0]->get("namespace")) if ($_[0]->get("wobjectId") eq "new");
$f->hidden("func","editSave");
- $f->submit;
+ $f->submit if ($_[0]->get("wobjectId") ne "new");
$f->readOnly($_[0]->get("wobjectId"),WebGUI::International::get(499));
$f->text("title",WebGUI::International::get(99),$title);
$f->yesNo("displayTitle",WebGUI::International::get(174),$displayTitle);
diff --git a/lib/WebGUI/Wobject/DownloadManager.pm b/lib/WebGUI/Wobject/DownloadManager.pm
new file mode 100644
index 000000000..dcc11f98a
--- /dev/null
+++ b/lib/WebGUI/Wobject/DownloadManager.pm
@@ -0,0 +1,453 @@
+package WebGUI::Wobject::DownloadManager;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2002 Plain Black Software.
+#-------------------------------------------------------------------
+# 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 strict;
+use Tie::CPHash;
+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::URL;
+use WebGUI::Utility;
+use WebGUI::Wobject;
+
+our @ISA = qw(WebGUI::Wobject);
+our $namespace = "DownloadManager";
+our $name = WebGUI::International::get(1,$namespace);
+
+
+#-------------------------------------------------------------------
+sub _reorderDownloads {
+ my ($sth, $i, $did);
+ $sth = WebGUI::SQL->read("select downloadId from DownloadManager_file where wobjectId=$_[0] order by sequenceNumber");
+ while (($did) = $sth->array) {
+ WebGUI::SQL->write("update DownloadManager_file set sequenceNumber='$i' where downloadId=$did");
+ $i++;
+ }
+ $sth->finish;
+}
+
+#-------------------------------------------------------------------
+sub duplicate {
+ my ($file, $w, %row, $sth, $newDownloadId);
+ tie %row, 'Tie::CPHash';
+ $w = $_[0]->SUPER::duplicate($_[1]);
+ $w = WebGUI::Wobject::DownloadManager->new({wobjectId=>$w,namespace=>$namespace});
+ $w->set({
+ paginateAfter=>$_[0]->get("paginateAfter"),
+ displayThumbnails=>$_[0]->get("displayThumbnails")
+ });
+ $sth = WebGUI::SQL->read("select * from DownloadManager_file where wobjectId=".$_[0]->get("wobjectId"));
+ while (%row = $sth->hash) {
+ $newDownloadId = getNextId("downloadId");
+ $file = WebGUI::Attachment->new($row{downloadFile},$_[0]->get("wobjectId"),$row{downloadId});
+ $file->copy($w->get("wobjectId"),$newDownloadId);
+ $file = WebGUI::Attachment->new($row{alternateVersion1},$_[0]->get("wobjectId"),$row{downloadId});
+ $file->copy($w->get("wobjectId"),$newDownloadId);
+ $file = WebGUI::Attachment->new($row{alternateVersion2},$_[0]->get("wobjectId"),$row{downloadId});
+ $file->copy($w->get("wobjectId"),$newDownloadId);
+ WebGUI::SQL->write("insert into DownloadManager_file values ($newDownloadId, ".$w->get("wobjectId").", ".
+ quote($row{fileTitle}).", ".quote($row{downloadFile}).", $row{groupToView}, ".
+ quote($row{briefSynopsis}).", $row{dateUploaded}, $row{sequenceNumber}, ".
+ quote($row{alternateVersion1}).", ".quote($row{alternateVersion2}).")");
+ }
+ $sth->finish;
+}
+
+#-------------------------------------------------------------------
+sub new {
+ my ($self, $class, $property);
+ $class = shift;
+ $property = shift;
+ $self = WebGUI::Wobject->new($property);
+ bless $self, $class;
+}
+
+#-------------------------------------------------------------------
+sub purge {
+ WebGUI::SQL->write("delete from DownloadManager_file where wobjectId=$_[0]");
+ $_[0]->SUPER::purge();
+}
+
+#-------------------------------------------------------------------
+sub set {
+ $_[0]->SUPER::set($_[1],[qw(paginateAfter displayThumbnails)]);
+}
+
+#-------------------------------------------------------------------
+sub www_copy {
+ if (WebGUI::Privilege::canEditPage()) {
+ $_[0]->duplicate;
+ return "";
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_deleteFile {
+ my ($delete);
+ if (WebGUI::Privilege::canEditPage()) {
+ if ($session{form}{alt} == 1) {
+ $delete = "alternateVersion1";
+ } elsif ($session{form}{alt} == 2) {
+ $delete = "alternateVersion2";
+ } else {
+ $delete = "downloadFile";
+ }
+ WebGUI::SQL->write("update DownloadManager_file set $delete='' where downloadId=$session{form}{did}");
+ return $_[0]->www_editDownload();
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_deleteDownload {
+ my ($output);
+ if (WebGUI::Privilege::canEditPage()) {
+ $output = ''.WebGUI::International::get(42).' ';
+ $output .= WebGUI::International::get(12,$namespace).'';
+ $output .= '
';
+ return $output;
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_deleteDownloadConfirm {
+ my ($output, $file);
+ if (WebGUI::Privilege::canEditPage()) {
+ $file = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
+ $file->deleteNode;
+ WebGUI::SQL->write("delete from DownloadManager_file where downloadId=$session{form}{did}");
+ _reorderDownloads($session{form}{wid});
+ return $_[0]->www_edit();
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_download {
+ my (%download, $file);
+ tie %download,'Tie::CPHash';
+ %download = WebGUI::SQL->quickHash("select * from DownloadManager_file where downloadId=$session{form}{did}");
+ if (WebGUI::Privilege::isInGroup($download{groupToView})) {
+ if ($session{form}{alternateVersion} == 1) {
+ $file = WebGUI::Attachment->new($download{alternateVersion1},
+ $session{form}{wid},
+ $session{form}{did});
+ } elsif ($session{form}{alternateVersion} == 2) {
+ $file = WebGUI::Attachment->new($download{alternateVersion2},
+ $session{form}{wid},
+ $session{form}{did});
+ } else {
+ $file = WebGUI::Attachment->new($download{downloadFile},
+ $session{form}{wid},
+ $session{form}{did});
+ }
+ $session{header}{redirect} = WebGUI::Session::httpRedirect($file->getURL);
+ return "";
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_edit {
+ my ($output, $f, %hash, @array, $sth, @download, $paginateAfter, $proceed);
+ tie %hash, 'Tie::IxHash';
+ if (WebGUI::Privilege::canEditPage()) {
+ if ($_[0]->get("wobjectId") eq "new") {
+ $proceed = 1;
+ }
+ $output .= helpIcon(1,$namespace);
+ $output .= ''.WebGUI::International::get(9,$namespace).' ';
+ $paginateAfter = $_[0]->get("paginateAfter") || 50;
+ $f = WebGUI::HTMLForm->new;
+ $f->integer("paginateAfter",WebGUI::International::get(20,$namespace),$paginateAfter);
+ $f->yesNo("displayThumbnails",WebGUI::International::get(21,$namespace),$_[0]->get("displayThumbnails"));
+ $f->yesNo("proceed",WebGUI::International::get(22,$namespace),$proceed);
+ $output .= $_[0]->SUPER::www_edit($f->printRowsOnly);
+ unless ($_[0]->get("wobjectId") eq "new") {
+ $output .= ''.WebGUI::International::get(11,$namespace).'
';
+ $sth = WebGUI::SQL->read("select downloadId,fileTitle from DownloadManager_file where wobjectId='$session{form}{wid}' order by sequenceNumber");
+ $output .='
';
+ while (@download = $sth->array) {
+ $output .= ''
+ .deleteIcon('func=deleteDownload&wid='.$session{form}{wid}.'&did='.$download[0])
+ .editIcon('func=editDownload&wid='.$session{form}{wid}.'&did='.$download[0])
+ .moveUpIcon('func=moveDownloadUp&wid='.$session{form}{wid}.'&did='.$download[0])
+ .moveDownIcon('func=moveDownloadDown&wid='.$session{form}{wid}.'&did='.$download[0])
+ .' '.$download[1].'
';
+ }
+ return $output;
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_editSave {
+ if (WebGUI::Privilege::canEditPage()) {
+ $_[0]->SUPER::www_editSave();
+ $_[0]->set({
+ paginateAfter=>$session{form}{paginateAfter},
+ displayThumbnails=>$session{form}{displayThumbnails}
+ });
+ if ($session{form}{proceed}) {
+ $_[0]->www_editDownload();
+ } else {
+ return "";
+ }
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_editDownload {
+ my ($output, %download, $f);
+ tie %download,'Tie::CPHash';
+ if (WebGUI::Privilege::canEditPage()) {
+ if ($session{form}{did} eq "") {
+ $session{form}{did} = "new";
+ }
+ %download = WebGUI::SQL->quickHash("select * from DownloadManager_file where downloadId='$session{form}{did}'");
+ $output .= ''.WebGUI::International::get(10,$namespace).' ';
+ $f = WebGUI::HTMLForm->new;
+ $f->hidden("wid",$_[0]->get("wobjectId"));
+ $f->hidden("did",$session{form}{did});
+ $f->hidden("func","editDownloadSave");
+ $f->text("fileTitle",WebGUI::International::get(5,$namespace),$download{fileTitle});
+ if ($download{downloadFile} ne "") {
+ $f->readOnly(''.WebGUI::International::get(391).
+ ' ',WebGUI::International::get(6,$namespace));
+ } else {
+ $f->file("downloadFile",WebGUI::International::get(6,$namespace));
+ }
+ if ($download{alternateVersion1} ne "") {
+ $f->readOnly(''.
+ WebGUI::International::get(391).' ',WebGUI::International::get(17,$namespace));
+ } else {
+ $f->file("alternateVersion1",WebGUI::International::get(17,$namespace));
+ }
+ if ($download{alternateVersion2} ne "") {
+ $f->readOnly(''.
+ WebGUI::International::get(391).' ',WebGUI::International::get(18,$namespace));
+ } else {
+ $f->file("alernateVersion2",WebGUI::International::get(18,$namespace));
+ }
+ $f->text("briefSynopsis",WebGUI::International::get(8,$namespace),$download{briefSynopsis});
+ $f->group("groupToView",WebGUI::International::get(7,$namespace),[$download{groupToView}]);
+ $f->yesNo("proceed",WebGUI::International::get(22,$namespace));
+ $f->submit;
+ $output .= $f->print;
+ return $output;
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_editDownloadSave {
+ my ($file, $alt1, $alt2, $sqlAdd, $seq);
+ if (WebGUI::Privilege::canEditPage()) {
+ if ($session{form}{did} eq "new") {
+ $session{form}{did} = getNextId("downloadId");
+ ($seq) = WebGUI::SQL->quickArray("select max(sequenceNumber) from DownloadManager_file where wobjectId=".$_[0]->get("wobjectId"));
+ WebGUI::SQL->write("insert into DownloadManager_file (wobjectId,downloadId,sequenceNumber)
+ values (".$_[0]->get("wobjectId").",$session{form}{did},".($seq+1).")");
+ }
+ $file = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
+ $file->save("downloadFile");
+ if ($file->getFilename ne "") {
+ $sqlAdd = ', downloadFile='.quote($file->getFilename);
+ }
+ $alt1 = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
+ $alt1->save("alternateVersion1");
+ if ($alt1->getFilename ne "") {
+ $sqlAdd .= ', alternateVersion1='.quote($alt1->getFilename);
+ }
+ $alt2 = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
+ $alt2->save("alternateVersion2");
+ if ($alt2->getFilename ne "") {
+ $sqlAdd = ', alternateVersion2='.quote($alt2->getFilename);
+ }
+ WebGUI::SQL->write("update DownloadManager_file set ".
+ "fileTitle=".quote($session{form}{fileTitle}).
+ $sqlAdd.
+ ", groupToView='$session{form}{groupToView}'".
+ ", briefSynopsis=".quote($session{form}{briefSynopsis}).
+ ", dateUploaded=".time().
+ " where downloadId=".$session{form}{did}
+ );
+ if ($session{form}{proceed}) {
+ $session{form}{did} = "new";
+ $_[0]->www_editDownload();
+ } else {
+ return $_[0]->www_edit();
+ }
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_moveDownloadDown {
+ my (@data, $thisSeq);
+ if (WebGUI::Privilege::canEditPage()) {
+ ($thisSeq) = WebGUI::SQL->quickArray("select sequenceNumber from DownloadManager_file where downloadId=$session{form}{did}");
+ @data = WebGUI::SQL->quickArray("select downloadId from DownloadManager_file where wobjectId=$session{form}{wid} and sequenceNumber=$thisSeq+1 group by wobjectId");
+ if ($data[0] ne "") {
+ WebGUI::SQL->write("update DownloadManager_file set sequenceNumber=sequenceNumber+1 where downloadId=$session{form}{did}");
+ WebGUI::SQL->write("update DownloadManager_file set sequenceNumber=sequenceNumber-1 where downloadId=$data[0]");
+ }
+ return $_[0]->www_edit();
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_moveDownloadUp {
+ my (@data, $thisSeq);
+ if (WebGUI::Privilege::canEditPage()) {
+ ($thisSeq) = WebGUI::SQL->quickArray("select sequenceNumber from DownloadManager_file where downloadId=$session{form}{did}");
+ @data = WebGUI::SQL->quickArray("select downloadId from DownloadManager_file where wobjectId=$session{form}{wid} and sequenceNumber=$thisSeq-1 group by wobjectId");
+ if ($data[0] ne "") {
+ WebGUI::SQL->write("update DownloadManager_file set sequenceNumber=sequenceNumber-1 where downloadId=$session{form}{did}");
+ WebGUI::SQL->write("update DownloadManager_file set sequenceNumber=sequenceNumber+1 where downloadId=$data[0]");
+ }
+ return $_[0]->www_edit();
+ } else {
+ return WebGUI::Privilege::insufficient();
+ }
+}
+
+#-------------------------------------------------------------------
+sub www_view {
+ my ($url, @row, $head, $searchForm, $i, $p, $search, @test, $file, $alt1, $alt2, $output, $sth,
+ %download, $flag, $sort, $sortDirection);
+ tie %download, 'Tie::CPHash';
+ $url = WebGUI::URL::page();
+ $output = $_[0]->displayTitle;
+ $output .= $_[0]->description;
+ $searchForm = WebGUI::HTMLForm->new(1);
+ $searchForm->text("keyword",'',$session{form}{keyword});
+ $searchForm->submit(WebGUI::International::get(170));
+ $head = '';
+ if ($session{form}{keyword} ne "") {
+ $search = " and (fileTitle like '%".$session{form}{keyword}.
+ "%' or downloadFile like '%".$session{form}{keyword}.
+ "%' or alternateVersion1 like '%".$session{form}{keyword}.
+ "%' or alternateVersion2 like '%".$session{form}{keyword}.
+ "%' or briefSynopsis like '%".$session{form}{keyword}."%') ";
+ $url = WebGUI::URL::append($url,"keyword=".$session{form}{keyword});
+ }
+ if ($session{form}{sort} ne "") {
+ $sort = " order by ".$session{form}{sort};
+ $url = WebGUI::URL::append($url,"sort=".$session{form}{sort});
+ } else {
+ $sort = " order by sequenceNumber";
+ }
+ if ($session{form}{sortDirection} ne "") {
+ $sortDirection = $session{form}{sortDirection};
+ $url = WebGUI::URL::append($url,"sortDirection=".$session{form}{sortDirection});
+ }
+ $head .= '';
+ $row[$i] .= ''.$download{fileTitle}.' · ';
+ if ($_[0]->get("displayThumbnails")
+ && isIn($file->getType, qw(gif jpeg jpg tif tiff png bmp))) {
+ $row[$i] .= ' '.
+ ''.
+ epochToHuman($download{dateUploaded},"%z").' '.
+ ''.
+ WebGUI::International::get(19,$namespace).'
';
+ $output .= $p->getBarTraditional($session{form}{pn});
+ return $_[0]->processMacros($output);
+}
+
+
+1;
+
+
