[system] / branches / rel-2-3-dev / webwork2 / lib / WeBWorK / ContentGenerator / Instructor / SendMail.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-3-dev/webwork2/lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 4268 Revision 4269
1################################################################################ 1################################################################################
2# WeBWorK Online Homework Delivery System 2# WeBWorK Online Homework Delivery System
3# Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ 3# Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/
4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm,v 1.47 2006/07/08 14:07:35 gage Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm,v 1.48 2006/07/12 01:19:15 gage Exp $
5# 5#
6# This program is free software; you can redistribute it and/or modify it under 6# This program is free software; you can redistribute it and/or modify it under
7# the terms of either: (a) the GNU General Public License as published by the 7# the terms of either: (a) the GNU General Public License as published by the
8# Free Software Foundation; either version 2, or (at your option) any later 8# Free Software Foundation; either version 2, or (at your option) any later
9# version, or (b) the "Artistic License" which comes with this package. 9# version, or (b) the "Artistic License" which comes with this package.
… …
582 print CGI::Tr({-align=>'left',-valign=>'top'}, 582 print CGI::Tr({-align=>'left',-valign=>'top'},
583############################################################################################# 583#############################################################################################
584# first column 584# first column
585############################################################################################# 585#############################################################################################
586 586
587 CGI::td({},
587 CGI::td(CGI::strong("Message file: "), $input_file,"\n",CGI::br(), 588 CGI::strong("Message file: "), $input_file,"\n",CGI::br(),
588 CGI::submit(-name=>'action', -value=>'Open'), '    ',"\n", 589 CGI::submit(-name=>'action', -value=>'Open'), '    ',"\n",
589 CGI::popup_menu(-name=>'openfilename', 590 CGI::popup_menu(-name=>'openfilename',
590 -values=>\@sorted_messages, 591 -values=>\@sorted_messages,
591 -default=>$input_file 592 -default=>$input_file
592 ), 593 ),
… …
611 612
612 ), 613 ),
613############################################################################################# 614#############################################################################################
614# second column 615# second column
615############################################################################################# 616#############################################################################################
616# CGI::td({-align=>'left',style=>'font-size:smaller'}, 617
617#
618# CGI::strong("Send to:"),
619# CGI::radio_group(-name=>'radio', -values=>['all_students','studentID'],
620# -labels=>{all_students=>'All students in course',studentID => 'Selected'},
621# -default=>'studentID',
622# -linebreak=>0
623# ), CGI::br(),CGI::br(),
624## Edit by Mark to insert scrolling list 618## Edit by Mark to insert scrolling list
625 CGI::td({-style=>"width:33%"},CGI::strong("Send to:"), 619 CGI::td({-style=>"width:33%"},
620 CGI::strong("Send to:"),
621 CGI::radio_group(-name=>'radio',
626 CGI::radio_group(-name=>'radio', -values=>['all_students','studentID'], 622 -values=>['all_students','studentID'],
627 -labels=>{all_students=>'All students in course',studentID => 'Selected students'}, 623 -labels=>{all_students=>'All students in course',studentID => 'Selected students'},
628 -default=>'studentID', -linebreak=>0), 624 -default=>'studentID', -linebreak=>0),
629 CGI::br(),$scrolling_user_list, 625 CGI::br(),$scrolling_user_list,
630 CGI::i("Preview set to: "), $preview_record->last_name, 626 CGI::i("Preview set to: "), $preview_record->last_name,
631 CGI::submit(-name=>'action', -value=>'preview',-label=>'Preview message'),'  ', 627 CGI::submit(-name=>'action', -value=>'preview',-label=>'Preview message'),'  ',
632 ), 628 ),
633 629
… …
657 653
658############################################################################################# 654#############################################################################################
659# third column 655# third column
660############################################################################################# 656#############################################################################################
661 CGI::td({align=>'left'}, 657 CGI::td({align=>'left'},
662# "<b>Merge file:</b> $merge_file", CGI::br(), 658
663# CGI::submit(-name=>'action', -value=>'Set merge file to:'),CGI::br(),
664# CGI::popup_menu(-name=>'merge_file',
665# -values=>\@sorted_merge_files,
666# -default=>$merge_file,
667# ), "\n",
668# CGI::hr(),
669# CGI::b("Viewing email for: "), "$preview_user",CGI::br(),
670# CGI::submit(-name=>'action', -value=>'resize', -label=>$REFRESH_RESIZE_BUTTON),'&nbsp;',
671# CGI::popup_menu(-name=>'preview_user',
672# -values=>\@users,
673# #-labels=>\%classlistLabels,
674# -default=>$preview_user,
675# ),
676# CGI::br(),
677# CGI::submit(-name=>'action', -value=>'preview',-label=>'Preview message'),'&nbsp;&nbsp;',
678#
679# CGI::br(),
680#
681# CGI::hr(),
682 " Rows: ", CGI::textfield(-name=>'rows', -size=>3, -value=>$rows), 659 " Rows: ", CGI::textfield(-name=>'rows', -size=>3, -value=>$rows),
683 " Columns: ", CGI::textfield(-name=>'columns', -size=>3, -value=>$columns), 660 " Columns: ", CGI::textfield(-name=>'columns', -size=>3, -value=>$columns),
684 CGI::br(), 661 CGI::br(),
685# CGI::i('Press any action button to update display'),CGI::br(), 662# CGI::i('Press any action button to update display'),CGI::br(),
686 #show available macros 663 #show available macros
… …
737 714
738############################################################################################# 715#############################################################################################
739# action button table 716# action button table
740############################################################################################# 717#############################################################################################
741 print CGI::table( { -border=>2,-cellpadding=>4}, 718 print CGI::table( { -border=>2,-cellpadding=>4},
742 CGI::Tr( 719 CGI::Tr( {},
743 CGI::td( CGI::submit(-name=>'action', -value=>'Send Email') ), "\n", 720 CGI::td({}, CGI::submit(-name=>'action', -value=>'Send Email') ), "\n",
744 CGI::td(CGI::submit(-name=>'action', -value=>'Save')," to $output_file"), " \n", 721 CGI::td({}, CGI::submit(-name=>'action', -value=>'Save')," to $output_file"), " \n",
745 CGI::td(CGI::submit(-name=>'action', -value=>'Save as:'), 722 CGI::td({}, CGI::submit(-name=>'action', -value=>'Save as:'),
746 CGI::textfield(-name=>'savefilename', -size => 20, -value=> "$output_file", -override=>1) 723 CGI::textfield(-name=>'savefilename', -size => 20, -value=> "$output_file", -override=>1)
747 ), "\n", 724 ), "\n",
748 CGI::td(CGI::submit(-name=>'action', -value=>'Save as Default')), 725 CGI::td(CGI::submit(-name=>'action', -value=>'Save as Default')),
749 ) 726 )
750 ); 727 );
Legend:
Removed from v.4268  
changed lines
  Added in v.4269
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9