loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.90, 2003/03/26 19:34:42
+version 1.91, 2003/03/27 20:56:30
  Line 349  sub selectstudent_link {
          '","'.$udomele.'");'."'>Select</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>";
+ }
  ###############################################################
  =pod