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

Added Photo Gallery view to USS.

Browse source
This commit is contained in:
JT Smith 2002-05-27 21:49:04 +00:00
parent 65de4c1ddf
commit b4efa6686a
2 changed files with 73 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Attachment.pm
View file

@ -138,6 +138,20 @@ sub copy {
} }
$a->close; $a->close;
} }
if (isIn($_[0]->getType,qw(jpg jpeg gif png tif tiff bmp))) {
$a = FileHandle->new($_[0]->{_node}->getPath.'/thumb-'.$_[0]->getFilename,"r");
$b = FileHandle->new(">".$newNode->getPath.'/thumb-'.$_[0]->getFilename);
if (defined $a) {
binmode($a);
$b = FileHandle->new(">".$newNode->getPath.'/thumb-'.$_[0]->getFilename);
if (defined $b) {
binmode($b);
cp($a,$b);
$b->close;
}
$a->close;
}
}
} }

68
lib/WebGUI/Wobject/UserSubmission.pm
View file

@ -53,6 +53,51 @@ sub _canEditMessage {
} }
} }
#-------------------------------------------------------------------
sub _photogalleryView {
my (@row, $i, $y, $image, $output, $p, $sth, %submission, $responses);
tie %submission, 'Tie::CPHash';
$sth = WebGUI::SQL->read("select * from UserSubmission_submission
where wobjectId=".$_[0]->get("wobjectId")." and (status='Approved' or userId=$session{user}{userId}) order by dateSubmitted desc");
while (%submission = $sth->hash) {
$submission{title} = WebGUI::HTML::filter($submission{title},'all');
($responses) = WebGUI::SQL->quickArray("select count(*) from discussion
where wobjectId=".$_[0]->get("wobjectId")." and subId=$submission{submissionId}");
if ($y == 0) {
$row[$i] .= '<td>';
}
$row[$i] .= '<td align="center" class="tableData">';
if ($_[0]->get("displayThumbnails")) {
$image = WebGUI::Attachment->new($submission{image},$_[0]->get("wobjectId"),$submission{submissionId});
$row[$i] .= '<a href="'.WebGUI::URL::page('wid='.$_[0]->get("wobjectId").'&func=viewSubmission&sid='
.$submission{submissionId}).'"><img src="'.$image->getThumbnail.'" border="0"/></a><br/>';
}
$row[$i] .= '<a href="'.WebGUI::URL::page('wid='.$_[0]->get("wobjectId").'&func=viewSubmission&sid='
.$submission{submissionId}).'">'.$submission{title}.'</a>';
if ($submission{userId} == $session{user}{userId}) {
$row[$i] .= ' ('.$submissionStatus{$submission{status}}.')';
}
$row[$i] .= '</td>';
if ($y == 2) {
$row[$i] .= '</tr>';
$y = -1;
}
$i++;
$y++;
}
$sth->finish;
if (WebGUI::Privilege::isInGroup($_[0]->get("groupToContribute"))) {
$output .= '<a href="'.WebGUI::URL::page('func=editSubmission&sid=new&wid='.$_[0]->get("wobjectId")).'">'
.WebGUI::International::get(20,$namespace).'</a><p/>';
}
$output .= '<table width="100%" cellpadding=2 cellspacing=1 border=0>';
$p = WebGUI::Paginator->new(WebGUI::URL::page(),\@row,$_[0]->get("submissionsPerPage"));
$output .= $p->getPage($session{form}{pn});
$output .= '</table>';
$output .= $p->getBarTraditional($session{form}{pn});
return $output;
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub _traditionalView { sub _traditionalView {
my (@row, $i, $image, $output, $p, $sth, %submission); my (@row, $i, $image, $output, $p, $sth, %submission);
@ -133,7 +178,7 @@ sub _weblogView {
$sth->finish; $sth->finish;
if (WebGUI::Privilege::isInGroup($_[0]->get("groupToContribute"))) { if (WebGUI::Privilege::isInGroup($_[0]->get("groupToContribute"))) {
$output .= '<a href="'.WebGUI::URL::page('func=editSubmission&sid=new&wid='.$_[0]->get("wobjectId")).'">' $output .= '<a href="'.WebGUI::URL::page('func=editSubmission&sid=new&wid='.$_[0]->get("wobjectId")).'">'
.WebGUI::International::get(20,$namespace).'</a>'; .WebGUI::International::get(20,$namespace).'</a><p/>';
} }
$output .= '<table width="100%" cellpadding=2 cellspacing=1 border=0>'; $output .= '<table width="100%" cellpadding=2 cellspacing=1 border=0>';
$p = WebGUI::Paginator->new(WebGUI::URL::page(),\@row,$_[0]->get("submissionsPerPage")); $p = WebGUI::Paginator->new(WebGUI::URL::page(),\@row,$_[0]->get("submissionsPerPage"));
@ -145,7 +190,8 @@ sub _weblogView {
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub duplicate { sub duplicate {
my ($sth, $file, @row, $newSubmissionId, $w); my ($sth, $file, %row, $newSubmissionId, $w);
tie %row, 'Tie::CPHash';
$w = $_[0]->SUPER::duplicate($_[1]); $w = $_[0]->SUPER::duplicate($_[1]);
$w = WebGUI::Wobject::UserSubmission->new({wobjectId=>$w,namespace=>$namespace}); $w = WebGUI::Wobject::UserSubmission->new({wobjectId=>$w,namespace=>$namespace});
$w->set({ $w->set({
@ -161,14 +207,16 @@ sub duplicate {
groupToModerate=>$_[0]->get("groupToModerate") groupToModerate=>$_[0]->get("groupToModerate")
}); });
$sth = WebGUI::SQL->read("select * from UserSubmission_submission where wobjectId=".$_[0]->get("wobjectId")); $sth = WebGUI::SQL->read("select * from UserSubmission_submission where wobjectId=".$_[0]->get("wobjectId"));
while (@row = $sth->array) { while (%row = $sth->hash) {
$newSubmissionId = getNextId("submissionId"); $newSubmissionId = getNextId("submissionId");
$file = WebGUI::Attachment->new($row[8],$_[0]->get("wobjectId"),$row[1]); $file = WebGUI::Attachment->new($row{image},$_[0]->get("wobjectId"),$row{submissionId});
$file->copy($w->get("wobjectId"),$newSubmissionId);
$file = WebGUI::Attachment->new($row{attachment},$_[0]->get("wobjectId"),$row{submissionId});
$file->copy($w->get("wobjectId"),$newSubmissionId); $file->copy($w->get("wobjectId"),$newSubmissionId);
WebGUI::SQL->write("insert into UserSubmission_submission values (".$w->get("wobjectId").", $newSubmissionId, ". WebGUI::SQL->write("insert into UserSubmission_submission values (".$w->get("wobjectId").", $newSubmissionId, ".
quote($row[2]).", $row[3], ".quote($row[4]).", '$row[5]', ".quote($row[6]).", ". quote($row{title}).", $row{dateSubmitted}, ".quote($row{username}).", '$row{userId}', ".quote($row{content}).", ".
quote($row[7]).", ".quote($row[8]).", '$row[9]', '$row[10]')"); quote($row{image}).", ".quote($row{attachment}).", '$row{status}', '$row{convertCarriageReturns}')");
WebGUI::Discussion::duplicate($_[0]->get("wobjectId"),$w->get("wobjectId"),$row[0],$newSubmissionId); WebGUI::Discussion::duplicate($_[0]->get("wobjectId"),$w->get("wobjectId"),$row{submissionId},$newSubmissionId);
} }
$sth->finish; $sth->finish;
} }
@ -534,8 +582,8 @@ sub www_showMessage {
$html .= '<a href="'.WebGUI::URL::page().'">'.WebGUI::International::get(28,$namespace).'</a><br>'; $html .= '<a href="'.WebGUI::URL::page().'">'.WebGUI::International::get(28,$namespace).'</a><br>';
$html .= '</tr><tr><td class="tableData">'; $html .= '</tr><tr><td class="tableData">';
$html .= $message{message}.'<p>'; $html .= $message{message}.'<p>';
$html .= WebGUI::Discussion::showThreads();
$html .= '</td></tr></table>'; $html .= '</td></tr></table>';
$html .= WebGUI::Discussion::showThreads();
} else { } else {
$html = WebGUI::International::get(402); $html = WebGUI::International::get(402);
} }
@ -550,6 +598,8 @@ sub www_view {
$output = $_[0]->processMacros($output); $output = $_[0]->processMacros($output);
if ($_[0]->get("layout") eq "weblog") { if ($_[0]->get("layout") eq "weblog") {
$output .= $_[0]->_weblogView; $output .= $_[0]->_weblogView;
} elsif ($_[0]->get("layout") eq "photogallery") {
$output .= $_[0]->_photogalleryView;
} else { } else {
$output .= $_[0]->_traditionalView; $output .= $_[0]->_traditionalView;
} }
@ -608,10 +658,10 @@ sub www_viewSubmission {
$file = WebGUI::Attachment->new($submission{attachment},$session{form}{wid},$session{form}{sid}); $file = WebGUI::Attachment->new($submission{attachment},$session{form}{wid},$session{form}{sid});
$output .= $file->box; $output .= $file->box;
} }
$output .= '</td></tr></table>';
if ($_[0]->get("allowDiscussion")) { if ($_[0]->get("allowDiscussion")) {
$output .= WebGUI::Discussion::showThreads(); $output .= WebGUI::Discussion::showThreads();
} }
$output .= '</td></tr></table>';
return $output; return $output;
} }