Index: views.inc
===================================================================
RCS file: /cvs/drupal-contrib/contributions/modules/station/schedule/views.inc,v
retrieving revision 1.19
diff -u -p -r1.19 views.inc
--- views.inc	25 Mar 2008 07:11:28 -0000	1.19
+++ views.inc	19 Apr 2009 20:32:03 -0000
@@ -184,6 +184,13 @@ function station_schedule_views_tables()
         'handler' => 'station_handler_filter_is_scheduled',
         'help' => t("Filter whether the node is on a schedule."),
       ),
+      'may_archive' => array(
+        'name' => t('Station Program: May Archive'),
+        'operator' => 'views_handler_operator_yesno',
+        'handler' => 'station_handler_filter_may_archive',
+        'help' => t("Filter whether the node may be archived."),
+        
+      ),
       'now_playing' => array(
         'name' => t('Station Program: Now playing'),
         'cacheable' => FALSE,
@@ -425,6 +432,20 @@ function station_handler_filter_is_sched
   }
 }
 
+function station_handler_filter_may_archive($op, $filterdata, $filterinfo, &$query) {
+  switch ($op) {
+    case 'handler':
+      $query->ensure_table('station_schedule_item');
+      if ($filterdata['operator']) {
+        $query->add_where('station_schedule_item.may_archive = 1');
+      }
+      else {
+        $query->add_where('station_schedule_item.may_archive = 0');
+      }
+      break;
+  }
+}
+
 function station_handler_filter_now_playing($op, $filterdata, $filterinfo, &$query) {
   switch ($op) {
   case 'handler':