--- a/app/soc/views/models/program.py	Sat Aug 01 15:37:58 2009 -0700
+++ b/app/soc/views/models/program.py	Sat Aug 01 15:55:33 2009 -0700
@@ -707,6 +707,10 @@
         items += [(redirects.getListSurveysRedirect(entity, 'program',
             'grading_project_survey'),
             "List Grading Surveys", 'any_access')]
+        # add link to withdraw Student Projects
+        items += [(redirects.getWithdrawRedirect(
+            entity, {'url_name': 'student_project'}),
+            "Withdraw Student Projects", 'any_access')]
 
       except out_of_band.Error:
         pass