--- loncom/interface/lonpickcourse.pm	2010/03/16 05:11:40	1.94
+++ loncom/interface/lonpickcourse.pm	2010/06/19 01:28:35	1.97
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.94 2010/03/16 05:11:40 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.97 2010/06/19 01:28:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -145,7 +145,8 @@ sub handler {
         my $filterlist = ['domainfilter'];
         # created filter for DCs only
         if ($env{'user.adv'} && $env{'form.domainfilter'} &&
-            exists($env{'user.role.dc./'.$env{'form.domainfilter'}.'/'})) {
+            exists($env{'user.role.dc./'.$env{'form.domainfilter'}.'/'})
+            && $env{'form.form'} ne 'portform') {
             my $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'form.domainfilter'});
             if ($loncaparev ne 'unknown_cmd') {
                 push(@{$filterlist},'createdfilter');
@@ -414,7 +415,7 @@ sub display_matched_courses {
                             if (grep(/^\*$/,@cloneable)) {
                                 $canclone = 1;
                             }
-                            if (grep(/^\*:\Q$env{'form.clonerudom'}\E$/,@cloneable)) {
+                            if (grep(/^\*:\Q$clonerudom\E$/,@cloneable)) {
                                 $canclone = 1;
                             }
                             if (grep(/^\Q$cloneruname\E:\Q$clonerudom\E$/,@cloneable)) {
@@ -535,10 +536,7 @@ sub build_filters {
     } else {
         $formname = $caller;
     }
-    my $onchange;
-    unless ($env{'form.interface'} eq 'textual') {
-        $onchange = 'javascript:updateFilters(this)';
-    }
+    my $onchange = 'javascript:updateFilters(this)';
     my ($domainselectform,$sincefilterform,$createdfilterform,
         $ownerdomselectform,$persondomselectform,$instcodeform,
         $typeselectform,$instcodetitle);
@@ -802,7 +800,7 @@ sub timebased_select_form {
         return &Apache::loncommon::select_form( 
                             $filter->{$item},
                             $item,
-                            (      '-1' => '',
+                            {      '-1' => '',
                                 '86400' => &mt('today'),
                                '604800' => &mt('last week'),
                               '2592000' => &mt('last month'),
@@ -811,7 +809,7 @@ sub timebased_select_form {
                              '31104000' => &mt('last year'),
                     'select_form_order' =>
                            ['-1','86400','604800','2592000','7776000',
-                            '15552000','31104000']));
+                            '15552000','31104000']});
     }
 }