[BACK]Return to groupsort.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/groupsort.pm between versions 1.8 and 1.10

version 1.8, 2002/05/09 20:57:26 version 1.10, 2002/05/13 16:00:53
Line 46  my $iconpath; # variable to be accessibl Line 46  my $iconpath; # variable to be accessibl
 # ---------------------------------------------------------------- Main Handler  # ---------------------------------------------------------------- Main Handler
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
    
      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                              ['acts','catalogmode','mode']);
   
     # color scheme      # color scheme
     my $fileclr = '#ffffe6';      my $fileclr = '#ffffe6';
Line 60  sub handler { Line 63  sub handler {
     if ($ENV{'form.mode'} eq 'simple') {      if ($ENV{'form.mode'} eq 'simple') {
         $finishimport=(<<ENDSMP);          $finishimport=(<<ENDSMP);
 function finish_import() {  function finish_import() {
     alert("Finishing a simple import");      opener.document.forms.simpleedit.importdetail.value='';
       for (var num=0; num<document.forms.groupsort.fnum.value; num++) {
    opener.document.forms.simpleedit.importdetail.value+='&'+
                 escape(eval("document.forms.groupsort.title"+num+".value"))+'='+
         escape(eval("document.forms.groupsort.filelink"+num+".value"));
       }
       opener.document.forms.simpleedit.submit();
       self.close();
 }  }
 ENDSMP  ENDSMP
     } else {      } else {
Line 130  END Line 140  END
   
     my %shash; # sort order (key is resource location, value is sort order)      my %shash; # sort order (key is resource location, value is sort order)
     my %thash; # title (key is resource location, value is title)      my %thash; # title (key is resource location, value is title)
     foreach (split(/&/,$ENV{'QUERY_STRING'})) {  
        my ($name, $value) = split(/=/,$_);  
        $value =~ tr/+/ /;  
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;  
        if ($name eq 'acts') {  
            $ENV{'form.'.$name}=$value;  
        }  
        if ($name eq 'catalogmode') {  
            $ENV{'form.'.$name}=$value;  
        }  
     }  
     my $diropendb;      my $diropendb;
     if ($ENV{'form.catalogmode'} eq 'groupsearch') {      if ($ENV{'form.catalogmode'} eq 'groupsearch') {
  $diropendb =    $diropendb = 
Removed from v.1.8  
changed lines
  Added in v.1.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>