--- loncom/interface/lonparmset.pm 2003/03/14 21:15:39 1.80.2.1 +++ loncom/interface/lonparmset.pm 2002/12/30 14:10:58 1.81 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.80.2.1 2003/03/14 21:15:39 albertel Exp $ +# $Id: lonparmset.pm,v 1.81 2002/12/30 14:10:58 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -72,8 +72,6 @@ my %mapp; my %typep; my %keyp; -my %maptitles; - my $uname; my $udom; my $uhome; @@ -98,13 +96,13 @@ Returns: A list, the first item is the 11- resource default 10- map default 9 - General Course -8 - Map or Folder level in course +8 - Map level in course 7 - resource level in course 6 - General for section -5 - Map or Folder level for section +5 - Map level for section 4 - resource level in section 3 - General for specific student -2 - Map or Folder level for specific student +2 - Map level for specific student 1 - resource level for specific student =cut @@ -290,6 +288,10 @@ sub startpage { my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', 'onUnload="pclose()"'); + my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. + &Apache::loncommon::selectstudent_link('parmform','uname','udom'); + my $selscript=&Apache::loncommon::studentbrowser_javascript(); + $r->print(< @@ -343,6 +345,7 @@ sub startpage { newWin.focus(); } +$selscript $bodytag
@@ -360,7 +363,7 @@ For User or ID at Domain - +$chooseopt @@ -546,7 +549,6 @@ sub extractResourceInformation { my $defp = shift; my $mapp = shift; my $symbp = shift; - my $maptitles=shift; foreach (keys %$bighash) { if ($_=~/^src\_(\d+)\.(\d+)$/) { @@ -587,9 +589,6 @@ sub extractResourceInformation { &Apache::lonnet::declutter($$bighash{'map_id_'.$mapid}); $$mapp{$mapid}=$$mapp{$id}; $$allmaps{$mapid}=$$mapp{$id}; - $$maptitles{$mapid}= - $$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}}; - $$maptitles{$$mapp{$id}}=$$maptitles{$mapid}; $$symbp{$id}=$$mapp{$id}. '___'.$resid.'___'. &Apache::lonnet::declutter($srcf); @@ -757,7 +756,7 @@ sub assessparms { } # --------------------------------------------------------- Get all assessments - extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles); + extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp); $mapp{'0.0'} = ''; $symbp{'0.0'} = ''; @@ -916,13 +915,13 @@ sub assessparms { $r->print('
'); - $r->print('Select Enclosing Map or Folder'); + $r->print('Select Enclosing Map'); $r->print('\n"); } else { @@ -985,7 +984,7 @@ sub assessparms { $r->print('Sort list by'); $r->print('