Index: /trunk/pstamp/scripts/pstampparse.pl
===================================================================
--- /trunk/pstamp/scripts/pstampparse.pl	(revision 30015)
+++ /trunk/pstamp/scripts/pstampparse.pl	(revision 30016)
@@ -126,4 +126,26 @@
 }
 
+# Adjust the label for requests coming in over the web interaface
+
+my $label_changed = 0;
+if ($label and $label eq "WEB.UP") {
+    my $lcname = lc($req_name);
+    if ($lcname =~ /pitt/) {
+        $label = "PITT";
+        $label_changed = 1;
+    } elsif ($lcname =~ /cfa/) {
+        $label = "CFA";
+        $label_changed = 1;
+    } elsif ($lcname =~ /durham/) {
+        $label = "DURHAM";
+        $label_changed = 1;
+    } elsif ($lcname =~ /qub/) {
+        $label = "QUB";
+        $label_changed = 1;
+    }
+    print "Setting label for $req_name to $label\n" if $label_changed;
+}
+
+
 if ($req_id and !$no_update) {
     # update the database with the request name. This will be used as the
@@ -131,4 +153,5 @@
     my $command = "$pstamptool -updatereq -req_id $req_id  -set_name $req_name";
     $command .= " -set_outProduct $product";
+    $command .= " -set_label $label" if $label_changed;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => $verbose);