--- loncom/interface/lonpickcourse.pm	2006/11/09 22:18:28	1.55
+++ loncom/interface/lonpickcourse.pm	2007/10/06 04:32:49	1.65
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.55 2006/11/09 22:18:28 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.65 2007/10/06 04:32:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,7 +35,6 @@ use Apache::loncoursedata;
 use Apache::lonnet;
 use Apache::lonlocal;
 use Apache::longroup;
-use lib '/home/httpd/lib/perl/';
 use LONCAPA;
 
 sub handler {
@@ -55,7 +54,7 @@ sub handler {
     my ($type,$title,$jscript,$multelement,$multiple,$roleelement,
         $lastaction,$autosubmit,$submitopener);
 
-    # Get course type - Course or Non-standard course.
+    # Get course type - Course or Non-standard Course.
     $type = $env{'form.type'};
     if (!defined($env{'form.type'})) {
         $type = 'Course';
@@ -79,7 +78,7 @@ sub handler {
 
     my $onlyown = 0;
     # if called to assign course-based portfolio access control
-    if ((($env{'form.form'} eq 'portform') && ($env{'user.adv'}))) {
+    if ((($env{'form.form'} eq 'portform') && (!$env{'user.adv'}))) {
         $onlyown = 1;
     }
 
@@ -108,13 +107,14 @@ sub handler {
 
     # print javascript functions for choosing a course 
     if ($env{'form.gosearch'} || $onlyown) {
-        $r->print(&gochoose_javascript($type,$autosubmit,$lastaction));
+        $r->print(&gochoose_javascript($type,$multiple,$autosubmit,$lastaction));
     }
     $r->print('<script type="text/javascript">'.$jscript.'</script>');
     $r->print($submitopener);
 
 # ------------------------------------------ Display of filters to limit search
-    my (%filter,%list);
+    my $filter = {};
+    my $action = '/adm/pickcourse';
     if (!$onlyown) {
         my $filterlist = ['domainfilter','descriptfilter',
                           'instcodefilter','ownerfilter',
@@ -125,13 +125,13 @@ sub handler {
             push(@{$filterlist},'coursefilter');
         }
         $r->print(&build_filters($filterlist,$type,$roleelement,$multelement,
-                                 \%filter,\%list));
+                                 $filter,$action));
     }
 
 # ---------------------------------------------------------------- Get the data
     if ($env{'form.gosearch'} || $onlyown) {
-        my %courses = &search_courses($r,$type,$onlyown,\%filter);
-        &display_matched_courses($r,$type,$multiple,%courses);
+        my %courses = &search_courses($r,$type,$onlyown,$filter);
+        &display_matched_courses($r,$type,$multiple,$action,%courses);
     }
     $r->print(&Apache::loncommon::end_page());
     return OK;
@@ -166,8 +166,7 @@ function setSections() {
 }
 
 sub display_matched_courses {
-    my ($r,$type,$multiple,%courses) = @_;
-    my $action = '/adm/pickcourse';
+    my ($r,$type,$multiple,$action,%courses) = @_;
     if ($env{'form.form'} eq 'portform') {
         $action = '/adm/portfolio';
     }
@@ -176,7 +175,9 @@ sub display_matched_courses {
     my $numcourses = keys(%courses);
     foreach my $course (keys(%courses)) {
         my $descr;
-        if ($courses{$course} =~ m/^([^:]*):/i) {
+        if (ref($courses{$course}) eq 'HASH') {
+            $descr = $courses{$course}{'description'};
+        } elsif ($courses{$course} =~ m/^([^:]*):/i) {
             $descr = &unescape($1);
         } else {
             $descr = &unescape($courses{$course});
@@ -196,18 +197,36 @@ sub display_matched_courses {
             my $cleandesc=&HTML::Entities::encode($description,'<>&"');
             $cleandesc=~s/'/\\'/g;
             my ($cdom,$cnum)=split(/\_/,$course);
-            my ($descr,$instcode,$owner,$ttype) = split/:/,$courses{$course};
+            my ($descr,$instcode,$ttype,@owners);
+            if (ref($courses{$course}) eq 'HASH') {
+                $descr = $courses{$course}{'description'};
+                $instcode =  $courses{$course}{'inst_code'};
+                $ttype =  $courses{$course}{'type'};
+                push(@owners,&unescape($courses{$course}{'owner'}));
+                if (ref($courses{$course}{'co-owners'}) eq 'ARRAY') {
+                    foreach my $item (@{$courses{$course}{'co-owners'}}) {
+                        push(@owners,&unescape($item));
+                    }
+                }
+            } else {
+                my $singleowner; 
+                ($descr,$instcode,$singleowner,$ttype)=split(/:/,$courses{$course});
+                push(@owners,&unescape($singleowner));
+            }
+            my $owner = join(', ',@owners);
             $r->print(&course_chooser($multiple,$cdom,$cnum,$cleandesc));
             $r->print($description.'('.
-                      ($Apache::lonnet::domaindescription{$cdom}?
-                       $Apache::lonnet::domaindescription{$cdom}:$cdom).")");
-            unless ($instcode eq '') {
+                      (&Apache::lonnet::domain($cdom,'description')?
+                       &Apache::lonnet::domain($cdom,'description'):$cdom).")");
+            if ($instcode ne '') {
                 $r->print(" - ".&unescape($instcode));
             }
-            unless ($owner eq '') {
-                $r->print(", owner - ".&unescape($owner));
+            if (@owners > 1) {
+                $r->print(', '.&mt('owners').' - ',join(', ',@owners)); 
+            } elsif (@owners == 1) {
+                $r->print(', '.&mt('owner').' - '.$owner);
             }
-            unless ($ttype eq '') {
+            if ($ttype ne '') {
                 $r->print('('.&unescape($ttype).')');
             }
             if ($multiple) { $r->print("</label>\n"); }
@@ -217,12 +236,10 @@ sub display_matched_courses {
     if (!%courses) {
         $r->print(&mt('None found'));
     } elsif ($multiple) {
-        $r->print('<input type="button" value="Submit" onClick="gochoose('."'','','',1)".'" />');
+        $r->print('<input type="button" value="Submit" onClick="gochoose('."'','','')".'" />');
     }
     $r->print('<input type="hidden" name="form" value="'.$env{'form.form'}.'" />'.
               "\n".'<input type="hidden" name="pickedcourse" value="" />'."\n".
-              '<input type="hidden" name="cnumelement" value="'.$env{'form.cnumelement'}.'" />'."\n".
-              '<input type="hidden" name="cdomelement" value="'.$env{'form.cdomelement'}.'" />'."\n".
               '<input type="hidden" name="type" value="'.$type.'" />'."\n");
     if ((exists($env{'form.roleelement'})) && ($env{'form.form'} eq 'rolechoice')) {
         $r->print('<input type="hidden" name="roleelement" value="'.
@@ -233,6 +250,14 @@ sub display_matched_courses {
         $r->print('<input type="hidden" name="cdom" value="" />');
         $r->print('<input type="hidden" name="setroles" value="'.$env{'form.setroles'}.'" />');
         $r->print('<input type="hidden" name="action" value="rolepicker" />');
+    } elsif ($env{'form.form'} eq 'modifycourse') {
+        $r->print('<input type="hidden" name="phase" value="menu" />'."\n");
+        $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','pickedcourse','type','form']));
+    } else {
+        $r->print('<input type="hidden" name="cnumelement" value="'.
+                  $env{'form.cnumelement'}.'" />'."\n".  
+                  '<input type="hidden" name="cdomelement" value="'.
+                  $env{'form.cdomelement'}.'" />'."\n");
     }
     $r->print("</form>\n");
     return;
@@ -246,21 +271,43 @@ sub multiples_tag {
 }
 
 sub build_filters {
-    my ($filterlist,$type,$roleelement,$multelement,$filter) = @_;
+    my ($filterlist,$type,$roleelement,$multelement,$filter,$action,
+        $caller) = @_;
     my $list;
+    my $formname;
+    if (defined($env{'form.form'})) {
+         $formname = $env{'form.form'};
+    } else {
+         $formname = $caller;
+    }
     my ($domainselectform,$sincefilterform,$ownerdomselectform,
         $instcodeform,$typeselectform);
     foreach my $item (@{$filterlist}) {
         $filter->{$item} = $env{'form.'.$item};
         if ($item ne 'descriptfilter' && $item ne 'instcodefilter') {
-            $filter->{$item} =~ s/\W//g;
+	    if ($item eq 'domainfilter' || $item eq 'ownerdomfilter') {
+		$filter->{$item} = &LONCAPA::clean_domain($filter->{$item});
+	    } elsif ($item eq 'coursefilter') {
+		$filter->{$item} = &LONCAPA::clean_courseid($filter->{$item});
+	    } elsif ($item eq 'ownerfilter') {
+		$filter->{$item} = &LONCAPA::clean_username($filter->{$item});
+	    } else {
+		$filter->{$item} =~ s/\W//g;
+	    }
             if (!$filter->{$item}) {
                 $filter->{$item} = '';
             }
         }
         if ($item eq 'domainfilter') {
+	    my $allow_blank = 1;
+	    if ($formname eq 'portform') {
+		$filter->{$item} ||= $env{'user.domain'};
+		$allow_blank=0;
+	    }
             $domainselectform =
-     &Apache::loncommon::select_dom_form($filter->{$item},'domainfilter',1);
+		&Apache::loncommon::select_dom_form($filter->{$item},
+						    'domainfilter',
+						    $allow_blank);
         } elsif ($item eq 'ownerdomfilter') {
             $ownerdomselectform =
      &Apache::loncommon::select_dom_form($filter->{$item},'ownerdomfilter',1);
@@ -295,54 +342,73 @@ sub build_filters {
               'cog' => &mt('Course Type')
              );
 
-    $typeselectform =  '<select name="type" size="1"';
-    $typeselectform .= ">\n";
+    $typeselectform =  '<select name="type" size="1">'."\n";
     if ($type eq 'Course') {
-        $instcodeform = $lt{'cin'}.': <input type="text" name="instcodefilter"
- size="10" value="'.$list->{'instcodefilter'}.'" /><br />';
+        $instcodeform = 
+                '<input type="text" name="instcodefilter" size="10" value="'.
+                $list->{'instcodefilter'}.'" />';
     }
-    foreach my $posstype ('Course','Non-standard course') {
+    foreach my $posstype ('Course','Non-standard Course') {
         $typeselectform.='<option value="'.$posstype.'" "'.
             ($posstype eq $type ? 'selected="selected" ' : ''). ">$posstype</option>\n";
     }
     $typeselectform.="</select>";
-    my $name_input;
-    if ($env{'form.cnameelement'} ne '') {
-        $name_input ='<input type="hidden" name="cnameelement" value="'.
-                     $env{'form.cnameelement'}.'" />';
-    }
-    my $courseidtag;
-    if (exists($filter->{'coursefilter'})) {
-        $courseidtag=&mt('LON-CAPA course ID').
-                     '<input type="text" name="coursefilter" size="25" value="'.                     $list->{'coursefilter'}.'" /><br />';
-    }
-    my $output = <<"END";
-<form method="post" name="filterpicker" action="/adm/pickcourse">
+    my $output = qq|
+<form method="post" name="filterpicker" action="$action">
+<input type="hidden" name="form" value="$formname" />
+|;
+    if ($formname eq 'modifycourse') {
+        $output .= '<input type="hidden" name="phase" value="courselist" />';
+    } else {     
+        my $name_input;
+        if ($env{'form.cnameelement'} ne '') {
+            $name_input = '<input type="hidden" name="cnameelement" value="'.
+                          $env{'form.cnameelement'}.'" />';
+        }
+        $output .= qq|
 <input type="hidden" name="cnumelement" value="$env{'form.cnumelement'}" />
 <input type="hidden" name="cdomelement" value="$env{'form.cdomelement'}" />
 $name_input
-<input type="hidden" name="form" value="$env{'form.form'}" />
 $roleelement
 $multelement
-$lt{'cac'}: $sincefilterform
-<br />
-$lt{'cdo'}: $domainselectform
-<br />
-$lt{'cog'}: $typeselectform
-<br />
-$instcodeform
-$lt{'cow'}:
-<input type="text" name="ownerfilter" size="10" value="$list->{'ownerfilter'}" />
-<br />
-$lt{'cod'}: $ownerdomselectform
-<br />
-$courseidtag
-$lt{'cde'}:
-<input type="text" name="descriptfilter" size="40" value="$list->{'descriptfilter'}" />
+|;
+        if ($formname eq 'portform') {
+            $output .= '<input type="hidden" name="setroles" value="'.$env{'form.setroles'}.'" />';
+        }
+    }
+    if ($sincefilterform) { 
+        $output .= $lt{'cac'}.': '.$sincefilterform.'<br />'."\n";
+    }
+    if ($domainselectform) {
+        $output .= $lt{'cdo'}.': '.$domainselectform.'<br />'."\n";
+    }
+    if ($typeselectform) {
+        $output .= $lt{'cog'}.': '.$typeselectform.'<br />'."\n";
+    }
+    if ($instcodeform) {
+        $output .= $lt{'cin'}.': '.$instcodeform.'<br />'."\n";
+    }
+    if (exists($filter->{'ownerfilter'})) {
+        $output .= $lt{'cow'}.': '.
+                   '<input type="text" name="ownerfilter" size="10" value="'.
+                   $list->{'ownerfilter'}.'" /><br />'."\n".
+                   $lt{'cod'}.': '.$ownerdomselectform.'<br />'."\n";
+    }
+    if (exists($filter->{'coursefilter'})) {
+        $output .= &mt('LON-CAPA course ID').': '.
+                   '<input type="text" name="coursefilter" size="25" value="'.
+                    $list->{'coursefilter'}.'" /><br />';
+    }
+    if (exists($filter->{'descriptfilter'})) {
+        $output .=$lt{'cde'}.': '.
+                  '<input type="text" name="descriptfilter" size="40" value="'.
+                  $list->{'descriptfilter'}.'" />'."\n";
+    }
+    $output .= qq|
 <p><input type="submit" name="gosearch" value="Search" /></p>
 </form>
 <hr />
-END
+|;
     return $output; 
 }
 
@@ -376,8 +442,9 @@ sub search_courses {
                                           undef,undef,$type);
     } else {
         $r->print('<br />');
-        foreach my $cid (sort(&Apache::loncommon::findallcourses())) {
-            $courses{$cid} = $env{'course.'.$cid.'.description'};
+        my %coursehash = &Apache::loncommon::findallcourses(); 
+        foreach my $cid (sort(keys(%coursehash))) {
+            $courses{$cid}{'description'} = $env{'course.'.$cid.'.description'};
         }
     }
     return %courses;
@@ -396,67 +463,73 @@ sub course_chooser {
 }
 
 sub gochoose_javascript {
-    my ($type,$autosubmit,$lastaction) = @_;
+    my ($type,$multiple,$autosubmit,$lastaction) = @_;
     my %elements = (
                      'Course' => {
                                  name  => 'coursepick',
                                  total => 'coursetotal',
                                  list  => 'courselist',
                                  },
-                     'Non-standard course' => {
+                     'Non-standard Course' => {
                                  name  => 'grouppick',
                                  total => 'grouptotal',
                                  list  => 'grouplist',
                               },
                     );
-    my $name_code;
-    if ($env{'form.cnameelement'} ne '') {
-        $name_code = 'opener.document.'.$env{'form.form'}.'.'.
-                      $env{'form.cnameelement'}.'.value=cdesc;';
-    }
-    my $output .= <<"ENDSCRIPT";
+    my $output .= qq|
 <script type="text/javascript">
-function gochoose(cname,cdom,cdesc,multiple,caller) {
+function gochoose(cname,cdom,cdesc) {
     var openerForm = "$env{'form.form'}";
     courseCount = 0;
     var courses = '';
-    if (multiple) {
-        if (typeof(document.courselist.course_id.length) == 'undefined') {
-            // only 1 course checkbox was created
-            if (document.courselist.course_id.checked) {
-                courses = courses + document.courselist.course_id.value + "&&";
+|;
+    if ($multiple) {
+        $output .= <<"ENDSCRIPT";
+    courseCount = 0;
+    var courses = '';
+    if (typeof(document.courselist.course_id.length) == 'undefined') {
+        // only 1 course checkbox was created
+        if (document.courselist.course_id.checked) {
+            courses = courses + document.courselist.course_id.value + "&&";
+            courseCount ++;
+        }
+    } else {
+        for (var j=0; j<document.courselist.course_id.length; j++) {
+            if (document.courselist.course_id[j].checked) {
+                courses = courses + document.courselist.course_id[j].value + "&&";
                 courseCount ++;
             }
+        }
+    }
+    opener.document.$env{'form.form'}.$elements{$type}{'total'}.value = courseCount;
+    if (typeof(opener.document.$env{'form.form'}.$elements{$type}{'name'}.length) ==
+        'undefined') {
+        if (opener.document.$env{'form.form'}.$elements{$type}{'name'}.value == 'specific') {
+            opener.document.$env{'form.form'}.$elements{$type}{'name'}.checked = true;
         } else {
-            for (var j=0; j<document.courselist.course_id.length; j++) {
-                if (document.courselist.course_id[j].checked) {
-                    courses = courses + document.courselist.course_id[j].value + "&&";
-                    courseCount ++;
-                }
-            }
+            opener.document.$env{'form.form'}.$elements{$type}{'name'}.checked = false;
         }
-        opener.document.$env{'form.form'}.$elements{$type}{'total'}.value = courseCount;
-        if (typeof(opener.document.$env{'form.form'}.$elements{$type}{'name'}.length) ==
-            'undefined') {
-            if (opener.document.$env{'form.form'}.$elements{$type}{'name'}.value == 'specific') {
-                opener.document.$env{'form.form'}.$elements{$type}{'name'}.checked = true;
+    } else {
+        for (var j=0; j<opener.document.$env{'form.form'}.$elements{$type}{'name'}.length; j++) {
+            if (opener.document.$env{'form.form'}.$elements{$type}{'name'}\[j].value == 'specific') {
+                opener.document.$env{'form.form'}.$elements{$type}{'name'}\[j].checked = true;
             } else {
-                opener.document.$env{'form.form'}.$elements{$type}{'name'}.checked = false;
-            }
-        } else {
-            for (var j=0; j<opener.document.$env{'form.form'}.$elements{$type}{'name'}.length; j++) {
-                if (opener.document.$env{'form.form'}.$elements{$type}{'name'}\[j].value == 'specific') {
-                    opener.document.$env{'form.form'}.$elements{$type}{'name'}\[j].checked = true;
-                } else {
-                    opener.document.$env{'form.form'}.$elements{$type}{'name'}\[j].checked = false;
-                }
+                opener.document.$env{'form.form'}.$elements{$type}{'name'}\[j].checked = false;
             }
         }
-        if (courseCount > 0) {
-            courses = courses.substr(0,courses.length-2);
-            opener.document.$env{'form.form'}.$elements{$type}{'list'}.value = courses;
-        }
+    }
+    if (courseCount > 0) {
+        courses = courses.substr(0,courses.length-2);
+        opener.document.$env{'form.form'}.$elements{$type}{'list'}.value = courses;
+    }
+ENDSCRIPT
     } else {
+        my $name_code;
+        if ($env{'form.cnameelement'} ne '') {
+            $name_code = 'opener.document.'.$env{'form.form'}.'.'.
+                          $env{'form.cnameelement'}.'.value=cdesc;';
+        }
+        $output .= qq|
         $name_code
         opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname;
         var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'};
@@ -469,7 +542,9 @@ function gochoose(cname,cdom,cdesc,multi
                 if (slct.options[i].value==cdom) { slct.selectedIndex=i; }
             }
         }
+|;
     }
+    $output .= qq|
     if (openerForm == 'portform') {
         document.courselist.cnum.value = cname;
         document.courselist.cdom.value = cdom;
@@ -478,7 +553,7 @@ function gochoose(cname,cdom,cdesc,multi
     $lastaction
 }
 </script>
-ENDSCRIPT
+|;
     return $output;
 }
 
@@ -512,7 +587,7 @@ Course Activity - how recently was cours
 Course Domain - the domain of the course
 
 =item *
-Course Type - Course or Non-standard course
+Course Type - Course or Non-standard Course
 
 =item *
 Course Institutional Code - the institutional identifier assigned to the course
@@ -565,7 +640,7 @@ Following selection, and/or submission,
 X<create_user_javascript()>
 B<create_user_javascript($type)>:
 
-Input: 1 - $type  - the course type - Course or Non-standard course
+Input: 1 - $type  - the course type - Course or Non-standard Course
 
 Output: 1 - $output - javascript wrapped in E<lt>scriptE<gt>E<lt>/scriptE<gt> tags 
 
@@ -576,9 +651,9 @@ javascript code for reporting selected s
 
 =item *
 X<display_matched_courses()>
-B<display_matched_courses($r,$type,$multiple,%courses)>:
+B<display_matched_courses($r,$type,$multiple,$action,%courses)>:
 
-Input: 4 - request object, course type, multiple (0 or 1), hash of courses.
+Input: 5 - request object, course type, multiple (0 or 1), form action; hash of courses.
 
 Output: 0
 
@@ -597,10 +672,10 @@ Side Effects: None
 
 =item *
 X<build_filters()>
-B<build_filters($filterlist,$type,$roleelement,$multelement,$filter)>:
+B<build_filters($filterlist,$type,$roleelement,$multelement,$filter,$action)>:
 
 
-Input: 5 - anonymous array of search criteria; course type; $roleelement ; $multelement ; anonymous hash of criteria and their values.
+Input: 6 - anonymous array of search criteria; course type; $roleelement ; $multelement ; anonymous hash of criteria and their values; form action.
 
 Output: 1 - $output - HTML for display of search criteria, and hidden form elements. 
 
@@ -631,9 +706,9 @@ Side Effects: None
 
 =item *
 X<gochoose_javascript()>
-B<gochoose_javascript($type,$autosubmit,$lastaction)>:
+B<gochoose_javascript($type,$multiple,$autosubmit,$lastaction)>:
 
-Input: 3 - course type; in context of DC selecting a CC role in a course: javascript code from Apache::lonroles::processpick(); final action to take after user chooses course(s):  either close window, or submit form for display of next page etc.
+Input: 4 - course type; single (0) or multiple courses (1); in context of DC selecting a CC role in a course: javascript code from Apache::lonroles::processpick(); final action to take after user chooses course(s):  either close window, or submit form for display of next page etc.
 
 Output: 1  $output - javascript wrapped in E<lt>scriptE<gt>E<lt>/scriptE<gt> tags