loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.87 and 1.93

-version 1.87, 2003/03/10 20:21:45
+version 1.93, 2003/04/03 03:08:12
  Line 346  sub selectstudent_link {
          return '';
     }
      return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele.
-         '","'.$udomele.'");'."'>Select</a>";
+         '","'.$udomele.'");'."'>Select User</a>";
+ }
+ sub coursebrowser_javascript {
+    return (<<'ENDSTDBRW');
+ <script type="text/javascript" language="Javascript" >
+     var stdeditbrowser;
+     function opencrsbrowser(formname,uname,udom) {
+         var url = '/adm/pickcourse?';
+         var filter;
+         if (filter != null) {
+            if (filter != '') {
+                url += 'filter='+filter+'&';
+ 	   }
+         }
+         url += 'form=' + formname + '&cnumelement='+uname+
+                                     '&cdomelement='+udom;
+         var title = 'Course Browser';
+         var options = 'scrollbars=1,resizable=1,menubar=0';
+         options += ',width=700,height=600';
+         stdeditbrowser = open(url,title,options,'1');
+         stdeditbrowser.focus();
+     }
+ </script>
+ ENDSTDBRW
+ }
+ sub selectcourse_link {
+    my ($form,$unameele,$udomele)=@_;
+     return "<a href='".'javascript:opencrsbrowser("'.$form.'","'.$unameele.
+         '","'.$udomele.'");'."'>Select Course</a>";
  }
  ###############################################################
- Line 601  sub get_domains {
+ Line 631  sub get_domains {
  =pod
- =item select_dom_form($defdom,$name)
+ =item select_form($defdom,$name,%hash)
+ Returns a string containing a <select name='$name' size='1'> form to
+ allow a user to select options from a hash option_name => displayed text.
+ See lonrights.pm for an example invocation and use.
+ =cut
+ #-------------------------------------------
+ sub select_form {
+     my ($def,$name,%hash) = @_;
+     my $selectform = "<select name=\"$name\" size=\"1\">\n";
+     foreach (sort keys %hash) {
+         $selectform.="<option value=\"$_\" ".
+             ($_ eq $def ? 'selected' : '').
+                 ">".$hash{$_}."</option>\n";
+     }
+     $selectform.="</select>";
+     return $selectform;
+ }
+ #-------------------------------------------
+ =pod
+ =item select_dom_form($defdom,$name,$includeempty)
  Returns a string containing a <select name='$name' size='1'> form to
  allow a user to select the domain to preform an operation in.
  See loncreateuser.pm for an example invocation and use.
+ If the $includeempty flag is set, it also includes an empty choice ("no domain
+ selected");
  =cut
  #-------------------------------------------
  sub select_dom_form {
-     my ($defdom,$name) = @_;
+     my ($defdom,$name,$includeempty) = @_;
      my @domains = get_domains();
+     if ($includeempty) { @domains=('',@domains); }
      my $selectdomain = "<select name=\"$name\" size=\"1\">\n";
      foreach (@domains) {
          $selectdomain.="<option value=\"$_\" ".
- Line 1658  END
+ Line 1718  END
      if ($bodyonly) {
          return $bodytag;
      } elsif ($ENV{'browser.interface'} eq 'textual') {
+ #
+ # Accessibility rendering
+ #
+         return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
+                                                       $forcereg).
+                '<h1>LON-CAPA: '.$title.'</h1>';
+     } elsif ($ENV{'environment.remote'} eq 'off') {
+ #
+ # No-Remote rendering
+ #
          return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
                                                        $forcereg).
                 '<h1>LON-CAPA: '.$title.'</h1>';
      } else {
+ #
+ # Remote rendering
+ #
          return(<<ENDBODY);
  $bodytag
  <table width="100%" cellspacing="0" border="0" cellpadding="0">

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

Removed from v.1.87
changed lines
	Added in v.1.93