From cb00bc92d2bdc3222ef033b1d34e270cacc47354 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 5 Jul 2002 01:54:13 +0000
Subject: [PATCH] Added prev/next buttons to USS.

---
 docs/upgrades/upgrade_4.1.0-4.2.0.sql |  2 ++
 lib/WebGUI/Wobject/UserSubmission.pm  | 19 +++++++++++++++++--
 2 files changed, 19 insertions(+), 2 deletions(-)

diff --git a/docs/upgrades/upgrade_4.1.0-4.2.0.sql b/docs/upgrades/upgrade_4.1.0-4.2.0.sql
index 538f02ae2..211f050ef 100644
--- a/docs/upgrades/upgrade_4.1.0-4.2.0.sql
+++ b/docs/upgrades/upgrade_4.1.0-4.2.0.sql
@@ -53,6 +53,8 @@ delete from international where namespace='Article' and internationalId=26;
 insert into international values (578,'WebGUI','English','You have a pending message to approve.');
 insert into international values (579,'WebGUI','English','Your message has been approved.');
 insert into international values (580,'WebGUI','English','Your message has been denied.');
+insert into international values (58,'UserSubmission','English','Previous Submission');
+insert into international values (59,'UserSubmission','English','Next Submission');
 
 
 
diff --git a/lib/WebGUI/Wobject/UserSubmission.pm b/lib/WebGUI/Wobject/UserSubmission.pm
index f01abd449..66aebae8a 100644
--- a/lib/WebGUI/Wobject/UserSubmission.pm
+++ b/lib/WebGUI/Wobject/UserSubmission.pm
@@ -43,7 +43,8 @@ sub _photogalleryView {
         my (@row, $i, $y, $image, $output, $p, $sth, %submission);
         tie %submission, 'Tie::CPHash';
         $sth = WebGUI::SQL->read("select title, image, submissionId, status, userId from UserSubmission_submission
-                where wobjectId=".$_[0]->get("wobjectId")." and (status='Approved' or userId=$session{user}{userId}) order by dateSubmitted desc");
+                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');
 		if ($y == 0) {
@@ -643,7 +644,7 @@ sub www_view {
 
 #-------------------------------------------------------------------
 sub www_viewSubmission {
-	my ($output, %submission, $file, $replies);
+	my ($output, %submission, $file, @data, $replies);
 	tie %submission, 'Tie::CPHash';
 	WebGUI::SQL->write("update UserSubmission_submission set views=views+1 where submissionId=$session{form}{sid}");
 	%submission = WebGUI::SQL->quickHash("select * from UserSubmission_submission where submissionId=$session{form}{sid}");
@@ -661,6 +662,20 @@ sub www_viewSubmission {
 	$output .= '<b>'.WebGUI::International::get(514).':</b> '.$submission{views}.'<br>';
 	$output .= '</td><td rowspan="2" class="tableMenu" nowrap valign="top">';
   #---menu
+	@data = WebGUI::SQL->quickArray("select max(submissionId) from UserSubmission_submission 
+        	where wobjectId=$submission{wobjectId} and submissionId<$submission{submissionId}
+		and (userId=$submission{userId} or status='Approved')");
+        if ($data[0] ne "") {
+        	$output .= '<a href="'.WebGUI::URL::page('func=viewSubmission&sid='.$data[0].'&wid='.
+                	$session{form}{wid}).'">&laquo; '.WebGUI::International::get(58,$namespace).'</a><br>';
+        }
+        @data = WebGUI::SQL->quickArray("select min(submissionId) from UserSubmission_submission 
+                where wobjectId=$submission{wobjectId} and submissionId>$submission{submissionId}
+		and (userId=$submission{userId} or status='Approved')");
+        if ($data[0] ne "") {
+                $output .= '<a href="'.WebGUI::URL::page('func=viewSubmission&sid='.$data[0].'&wid='.
+                        $session{form}{wid}).'">'.WebGUI::International::get(59,$namespace).' &raquo;</a><br>';
+        }
         if ($submission{userId} == $session{user}{userId} || WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove"))) {
                 $output .= '<a href="'.WebGUI::URL::page('func=deleteSubmission&wid='.$session{form}{wid}.'&sid='.
 			$session{form}{sid}).'">'.WebGUI::International::get(37,$namespace).'</a><br>';