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

Diff for /loncom/interface/groupsort.pm between versions 1.14 and 1.15

version 1.14, 2002/08/16 17:03:23 version 1.15, 2002/08/27 12:18:13
Line 39  use strict; Line 39  use strict;
   
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use GDBM_File;  use GDBM_File;
   use Apache::loncommon;
   
 my %hash; # variable to tie to user specific database  my %hash; # variable to tie to user specific database
 my $iconpath; # variable to be accessible to multiple subroutines  my $iconpath; # variable to be accessible to multiple subroutines
Line 130  function orderchange(val,newval) { Line 131  function orderchange(val,newval) {
 }  }
 </script>  </script>
 </head>  </head>
 <body bgcolor="#FFFFFF">  
 END  END
       $r->print(&Apache::loncommon::bodytag('Sort Imported Resources'));
     # read pertinent machine configuration      # read pertinent machine configuration
     my $domain  = $r->dir_config('lonDefDomain');      my $domain  = $r->dir_config('lonDefDomain');
     $iconpath = $r->dir_config('lonIconsURL') . "/";      $iconpath = $r->dir_config('lonIconsURL') . "/";
Line 284  END Line 284  END
     my $ctr = 0;      my $ctr = 0;
     my $clen = scalar(keys %shash);      my $clen = scalar(keys %shash);
    $r->print(<<END);     $r->print(<<END);
 <h2><font color="#888888">  
     The LearningOnline Network With CAPA Group Sorter  
     </font></h2>  
 <b><font color="#888888">Finalize order of resources</font></b>  <b><font color="#888888">Finalize order of resources</font></b>
 <form method='post' action='/adm/groupsort' name='groupsort'  <form method='post' action='/adm/groupsort' name='groupsort'
       enctype='application/x-www-form-urlencoded'>        enctype='application/x-www-form-urlencoded'>
Removed from v.1.14  
changed lines
  Added in v.1.15

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