projects
/
tpope-extra.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Modified command line arguments
[tpope-extra.git]
/
perl
/
sctweb
diff --git
a/perl/sctweb
b/perl/sctweb
index 8f514bbd782ad9422a3b4b679bbecef760ca72fd..fc96328f3e79256617dbdbd1cb8e04a5e0e28675 100755
(executable)
--- a/
perl/sctweb
+++ b/
perl/sctweb
@@
-668,7
+668,7
@@
sub do_transcripts {
}
}
}
}
-if ($arg eq "-s") {
+if ($arg eq "-s"
|| $arg eq "-h"
) {
do_html_schedule(@ARGV);
} elsif ($arg eq "-m") {
do_mhc_schedule(@ARGV);
do_html_schedule(@ARGV);
} elsif ($arg eq "-m") {
do_mhc_schedule(@ARGV);
@@
-676,14
+676,14
@@
if ($arg eq "-s") {
do_csv_schedule(@ARGV);
} elsif ($arg eq "-v") {
do_vcalendar_schedule(@ARGV);
do_csv_schedule(@ARGV);
} elsif ($arg eq "-v") {
do_vcalendar_schedule(@ARGV);
-} elsif ($arg eq "-x") {
- do_xml_schedule(@ARGV);
} elsif ($arg eq "-g") {
do_html_grades(@ARGV);
} elsif ($arg eq "-t") {
do_transcripts;
} elsif ($arg eq "-f") {
do_faculty;
} elsif ($arg eq "-g") {
do_html_grades(@ARGV);
} elsif ($arg eq "-t") {
do_transcripts;
} elsif ($arg eq "-f") {
do_faculty;
+} elsif ($arg eq "-x" || 1) {
+ do_xml_schedule(@ARGV);
}
$ua->get("$url&tserve_trans_config=alogout.cfg"); # Logout
}
$ua->get("$url&tserve_trans_config=alogout.cfg"); # Logout